| |
|
|
Roberto | Ich möchte den Papierkorb durch klick auf einen Button öffnen habe auch den Code dafür aber wenn ich auf den Button klicke passiert nichts
var x% = 280
var y% = 75
PROC PRG_START
var ergebnis& = WinExec(Papierkorb.exe,1)
var ergebnis& = WinExecWait(Papierkorb.exe,1)
if ergebnis& = 0
Messagebox(Fehler beim Starten des Programmi,F E H L E R,4112)
end
endif
ENDPROC
WindowStyle 31
WindowTitle Externes Programm starten
Window (%MaxX - x%)/ 2,(%MaxY - y%)/ 2 - x%,y%
var Papierkorb& = Create(Button,%HWnd,Papierkorb öffnen,5,Height(%HWnd) - 30,140,25)
var exit& = Create(Button,%HWnd,Beenden,Width(%HWnd) - 85,Height(%HWnd) - 30,80,25)
var e% = 0
whilenot e%
waitinput
if Clicked(exit&)
e% = 1
elseif Clicked(Papierkorb&)
PRG_START
endif
endwhile
end
|
|
|
| Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 18.02.2009 ▲ |
|
|
|
|
Roberto | Kann mir denn keiner Helfen? |
|
|
| Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 18.02.2009 ▲ |
|
|
|
|
Paul Glatz | Ciao, den Papierkorb rufst du so auf:
var x% = 280
var y% = 75
PROC PRG_START
var ergebnis& = WinExec(explorer /n,::{645FF040-5081-101B-9F08-00AA002F954E},1) Papierkorb öffnen!
var ergebnis& = WinExecWait(Papierkorb.exe,1)
if ergebnis& = 0
Messagebox(Fehler beim Starten des Programmi,F E H L E R,4112)
end
endif
ENDPROC
WindowStyle 31
WindowTitle Externes Programm starten
Window (%MaxX - x%)/ 2,(%MaxY - y%)/ 2 - x%,y%
var Papierkorb& = Create(Button,%HWnd,Papierkorb öffnen,5,Height(%HWnd) - 30,140,25)
var exit& = Create(Button,%HWnd,Beenden,Width(%HWnd) - 85,Height(%HWnd) - 30,80,25)
var e% = 0
whilenot e%
waitinput
if Clicked(exit&)
e% = 1
elseif Clicked(Papierkorb&)
PRG_START
endif
endwhile
end
|
|
|
| |
|
|
|
Roberto | |
|
| Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 18.02.2009 ▲ |
|
|
|
|
Paul Glatz | Ciao, ich kann nicht nachvollzihen was bei DIR nicht klappt. Giebt es eine Meldung oder was?? |
|
|
| |
|
|
|
Roberto | Nein bei mir passiert einfach garn nichts wenn ich auf den Button klicke |
|
|
| Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 19.02.2009 ▲ |
|
|
|
|
Paul Glatz | Ciao,
versuch mal bitte ob folgendes klapt:
|
|
|
| |
|
|
|
Roberto | Klappt aber was sollen die ganzen zahlen bedeuten Also der Papierkorb wird wie gewollt geöffnet |
|
|
| Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 19.02.2009 ▲ |
|
|
|
|
Paul Glatz | Ciao, versuch mal bitte:
var x% = 280
var y% = 75
PROC PRG_START
declare ergebnis%
ergebnis% = WinExec(explorer /n,::{645FF040-5081-101B-9F08-00AA002F954E},1) Papierkorb öffnen!
var ergebnis& = WinExecWait(Papierkorb.exe,1)
if ergebnis% = 0
Messagebox(Fehler beim Starten des Programmi,F E H L E R,4112)
end
endif
ENDPROC
WindowStyle 31
WindowTitle Externes Programm starten
Window (%MaxX - x%)/ 2,(%MaxY - y%)/ 2 - x%,y%
var Papierkorb& = Create(Button,%HWnd,Papierkorb öffnen,5,Height(%HWnd) - 30,140,25)
var exit& = Create(Button,%HWnd,Beenden,Width(%HWnd) - 85,Height(%HWnd) - 30,80,25)
var e% = 0
whilenot e%
waitinput
if Clicked(exit&)
e% = 1
elseif Clicked(Papierkorb&)
PRG_START
endif
endwhile
end
|
|
|
| |
|
|
|
Roberto | Ja Perfekt aber ich will auch noch andere File öffnen. Also was bedeuten die ganzen zahlen nach EXLPORER |
|
|
| Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 19.02.2009 ▲ |
|
|
|
|
Paul Glatz | Ciao, das sagt dem Windows-Explorer das er den Papierkorb öffnen soll. Weche Programme wilst du öffnen?? |
|
|
| |
|
|
|
Roberto | |
|
| Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 19.02.2009 ▲ |
|
|
|