Dateieigenschaftsdialog einer best. Datei wie öffnen?

[AND51]

Hallo!

Ich möchte gern ähnlich wie mit RunProgram() den Dateieigenschaftsdialog einer Datei öffnen, aber alles was ich bisher erfahren habe ist der Befehl ShellExecuteEx_().

Der ist mir aber zu schwer bzw. ich verstehe da ganze Hichhack mit den Pointern/Strukturen nicht.

Ich weiß aber den Pfad und Namen sowie die Größe der Datei.

Kann mir jemand helfen?

[AND51]

Hat keiner eine Idee

[Agent]

HI AND51.

Schau mal hier:
http://www.purebasic.fr/english/viewtop ... lexecuteex

Hoffe das hilft weiter

[AND51]

Danke, aber darauf bin ich auch schon gestoßen.

Ich möchte einfach nur, dass der echte Windows-Eigenschaftsdoalog einer Datei aufgeht, (fast) egal wie.

Wie gesagt, trotzdem danke!

[PBZecke]

Habe das Beispiel mal vereinfacht, weil es eigentlich macht, was Du suchst!

Code: Alles auswählen

verb$ = "properties"
SEI.SHELLEXECUTEINFO
SEI\cbSize = SizeOf(SHELLEXECUTEINFO)
SEI\fMask = #SEE_MASK_NOCLOSEPROCESS | #SEE_MASK_INVOKEIDLIST | #SEE_MASK_FLAG_NO_UI
SEI\lpVerb = @verb$
SEI\lpParameters = 0
SEI\lpDirectory = 0
SEI\nShow = 0
SEI\hInstApp = 0
SEI\lpIDList = 0

File$ = "c:\windows\notepad.exe"
SEI\lpFile = @File$
ShellExecuteEx_(@SEI)



OpenWindow(0, 100,100,100,100,"Eigenschaften von Notepad.exe")

Repeat

Until WaitWindowEvent() = #PB_Event_CloseWindow

[AND51]

Supi, danke! Geeeeeeeenau das habe ich gesucht... Geht aber nur bei irgendeinem geöffnetem Fenster, hm? Egal, ich hae ja eines...

Und ich wollts schon hiermit versuchen:

Code: Alles auswählen

RunProgram("explorer.exe", "/n,/select,C:\and.ico", "")
Delay(1111)
keybd_event_(#VK_MENU, 0, 0, 0)
keybd_event_(#VK_RETURN, 0, 0, 0)
keybd_event_(#VK_RETURN, 0, #KEYEVENTF_KEYUP, 0)
keybd_event_(#VK_TAB, 0, 0, 0)
keybd_event_(#VK_TAB, 0, #KEYEVENTF_KEYUP, 0)
keybd_event_(#VK_F4, 0, 0, 0)
keybd_event_(#VK_F4, 0, #KEYEVENTF_KEYUP, 0)
keybd_event_(#VK_MENU, 0, #KEYEVENTF_KEYUP, 0)

C:\and.ico bitte durch eine beliebige, andere Datei inkl. Pfad ersetzen...