| |
|
|
Roberto | Yo möchte el Papierkorb por klick en una Button abierto habe auch el código dafür pero si I el 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 Programmes,F E H L E R,4112)
end
endif
ENDPROC
Ventana de Estilo 31
Título de la ventana Externes Programa starten
Ventana (%MaxX - x%)/ 2,(%MaxY - y%)/ 2 - x%,y%
var Papierkorb& = Crear(Button,%HWnd,Papierkorb öffnen,5,Height(%HWnd) - 30,140,25)
var exit& = Crear(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 me porque keiner Helfen? |
|
|
| Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 18.02.2009 ▲ |
|
|
|
|
Paul Glatz | ¡Hola, el Papierkorb rufst du así en:
var x% = 280
var y% = 75
PROC PRG_START
var ergebnis& = WinExec(explorer /n,::{645FF040-5081-101B-9F08-00AA002F954E},1) Papierkorb abierto!
var ergebnis& = WinExecWait(Papierkorb.exe,1)
if ergebnis& = 0
Messagebox(Fehler beim Starten des Programmes,F E H L E R,4112)
end
endif
ENDPROC
Ventana de Estilo 31
Título de la ventana Externes Programa starten
Ventana (%MaxX - x%)/ 2,(%MaxY - y%)/ 2 - x%,y%
var Papierkorb& = Crear(Button,%HWnd,Papierkorb öffnen,5,Height(%HWnd) - 30,140,25)
var exit& = Crear(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 | ¡Hola, Yo kann no nachvollzihen qué en DIR no klappt. Giebt lo una Meldung oder qué?? |
|
|
| |
|
|
|
Roberto | Nein en me passiert simplemente garn nichts si yo en el Button klicke |
|
|
| Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 19.02.2009 ▲ |
|
|
|
|
Paul Glatz | ¡Hola,
versuch veces Por favor, si folgendes klapt:
|
|
|
| |
|
|
|
Roberto | Klappt aber qué debería el ganzen zahlen bedeuten Also el Papierkorb se como gewollt geöffnet |
|
|
| Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 19.02.2009 ▲ |
|
|
|
|
Paul Glatz | ¡Hola, versuch veces Por favor,:
var x% = 280
var y% = 75
PROC PRG_START
declarar ergebnis%
ergebnis% = WinExec(explorer /n,::{645FF040-5081-101B-9F08-00AA002F954E},1) Papierkorb abierto!
var ergebnis& = WinExecWait(Papierkorb.exe,1)
if ergebnis% = 0
Messagebox(Fehler beim Starten des Programmes,F E H L E R,4112)
end
endif
ENDPROC
Ventana de Estilo 31
Título de la ventana Externes Programa starten
Ventana (%MaxX - x%)/ 2,(%MaxY - y%)/ 2 - x%,y%
var Papierkorb& = Crear(Button,%HWnd,Papierkorb öffnen,5,Height(%HWnd) - 30,140,25)
var exit& = Crear(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 | Sí Perfekt pero yo voluntad auch todavía otro Archivos abierto. Also qué bedeuten el ganzen zahlen después de EXLPORER |
|
|
| Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 19.02.2009 ▲ |
|
|
|
|
Paul Glatz | ¡Hola, el sagt el Windows-Explorer el él el Papierkorb abierto se. Weche Programas wilst du abierto?? |
|
|
| |
|
|
|
Roberto | |
|
| Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 19.02.2009 ▲ |
|
|
|