Dateieigenschaftsdialog einer best. Datei wie öffnen?

Windowsspezifisches Forum , API ,..
Beiträge, die plattformübergreifend sind, gehören ins 'Allgemein'-Forum.
Benutzeravatar
AND51
Beiträge: 5220
Registriert: 01.10.2005 13:15

Dateieigenschaftsdialog einer best. Datei wie öffnen?

Beitrag von 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?
PB 4.30

Code: Alles auswählen

Macro Happy
 ;-)
EndMacro

Happy End
Benutzeravatar
AND51
Beiträge: 5220
Registriert: 01.10.2005 13:15

Beitrag von AND51 »

Hat keiner eine Idee :?:
PB 4.30

Code: Alles auswählen

Macro Happy
 ;-)
EndMacro

Happy End
Agent
Beiträge: 296
Registriert: 13.09.2004 11:28
Kontaktdaten:

Beitrag von Agent »

HI AND51.

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

Hoffe das hilft weiter ;)
Agent_Sasori
It's not a bug - it's a feature!
http://www.StephenKalisch.de | http://www.ria-tec.com | http://www.dirsync.de
Benutzeravatar
AND51
Beiträge: 5220
Registriert: 01.10.2005 13:15

Beitrag von 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!
PB 4.30

Code: Alles auswählen

Macro Happy
 ;-)
EndMacro

Happy End
Benutzeravatar
PBZecke
Beiträge: 399
Registriert: 02.09.2004 17:34

Beitrag von 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
Nein, ich habe die Suche nicht benutzt, und deshalb auch nichts dazu gefunden... :lol:
Benutzeravatar
AND51
Beiträge: 5220
Registriert: 01.10.2005 13:15

Beitrag von 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...
PB 4.30

Code: Alles auswählen

Macro Happy
 ;-)
EndMacro

Happy End
Antworten