Dateieigenschaftsdialog einer best. Datei wie öffnen?

[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...