Seite 1 von 1
Datei ausführen
Verfasst: 04.07.2005 15:24
von Jules
Hi Leute ich hätte mal ne frage wie kann ich den Dateien ausführen
nachdem ich sie mit
aufgelistet habe ?
Verfasst: 04.07.2005 15:27
von Green Snake
was meinst du mit ausführen?
also starten?
falls ja, dann musst du das mit RunProgram("Pfad zur datei .s")
machen.
der pfad muss zu jeden deiner programme gehe, also wenn du folgende hast
Programm1.exe
Programm2.exe
Dan musst du jedes aufrufen, eigentlich logisch
RunProgram("Programm1.exe")
RunProgram("Programm2.exe")
ich denke aber nicht, das du das meinst, oder doch?
Verfasst: 04.07.2005 15:31
von Jules
Ja das hab ich mir schon gedacht doch woher weiß das programm welches programm es aufrufen soll......
daraus ergibt sich die frage wie liest man dateiendungen aus ?
Verfasst: 04.07.2005 15:36
von DarkDragon
Jules hat geschrieben:Ja das hab ich mir schon gedacht doch woher weiß das programm welches programm es aufrufen soll......
daraus ergibt sich die frage wie liest man dateiendungen aus ?
RunProgram("C:\test.txt") geht ja genauso gut. Da öffnet sich einfach Notepad
.
Verfasst: 04.07.2005 15:38
von Jules
Axo ok danke damit hat sich meine frage schon geklärt danke
Verfasst: 06.07.2005 09:25
von Jules
Hätte dann noch ne frage zum thema und zwar:
Code: Alles auswählen
Repeat
If WindowEvent() = #PB_Eventtype_leftdoubleclick And GetGadgetItemState(3,#pb_explorer_file)
RunProgram(GetGadgetText(3))
EndIf
wieso funktioniert das nicht ?
Verfasst: 06.07.2005 10:02
von DarkDragon
Code: Alles auswählen
If WindowEvent() = #PB_Event_Gadget And EventType() = #PB_Eventtype_leftdoubleclick And GetGadgetItemState(3,#pb_explorer_file)
was allerdings GetGadgetItemState(3,#pb_explorer_file) machen soll bei dir weiß ich auch nicht O_o
Verfasst: 06.07.2005 10:59
von Jules
ich danke dir bin dann auch drauf gekommen aber schau dir das mal an und sag mir warum der nicht im rechten fenster anzeigt was ich im linken angeklickt habe ?
Code: Alles auswählen
OpenWindow(0,100,130,800,600,#PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget,"eXplorer")
CreateGadgetList(WindowID())
ExplorerListGadget(3,0,30,300,531,"C:\")
ExplorerListGadget(4,300,30,500,531,verzeichnis.s)
Repeat
If EventType() = #PB_EventType_LeftDoubleClick
verzeichnis.s = GetGadgetText(3)
OpenFile(1,"C:\file.txt")
WriteString(GetGadgetText(3))
CloseFile(1)
EndIf
Until WaitWindowEvent() = #PB_Event_CloseWindow
Das mit der textdatei hab ich nur zur überprüfung mit rein gemacht[/code]
Verfasst: 06.07.2005 11:50
von DarkDragon
Code: Alles auswählen
OpenWindow(0,100,130,800,600,#PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget,"eXplorer")
verzeichnis.s = "C:\"
CreateGadgetList(WindowID())
ExplorerListGadget(3,0,30,300,531,"C:\")
ExplorerListGadget(4,300,30,500,531,verzeichnis.s)
Repeat
Event = WaitWindowEvent()
If Event = #PB_Event_Gadget And EventGadgetID() = 3
verzeichnis.s = GetGadgetText(3)
Debug verzeichnis
SetGadgetText(4, verzeichnis)
EndIf
Until Event = #PB_Event_CloseWindow
EventType wird vom ExplorerListGadget nicht so unterstützt. Außerdem fehlte SetGadgetText(4, verzeichnis)
Die Textdatei brauchst du nich, dafür hast du den Debugger.
Verfasst: 06.07.2005 13:19
von Jules
Achso ich danke dir...