| |
|
|
Roberto | i want whom wastebasket through klick on a Button open have too whom code for but if I on the Button click happens nothing
var x% = 280
var y% = 75
PROC PRG_START
var ergebnis& = WinExec(wastebasket.exe,1)
var ergebnis& = WinExecWait(wastebasket.exe,1)
if ergebnis& = 0
Messagebox(Error at started the Program,F E H L E R,4112)
end
endif
ENDPROC
Window Style 31
Window Title Externes Program started
Window (%MaxX - x%)/ 2,(%MaxY - y%)/ 2 - x%,y%
var Papierkorb& = Create(Button,%HWnd,wastebasket öffnen,5,Height(%HWnd) - 30,140,25)
var exit& = Create(Button,%HWnd,terminate,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.^^ | 02/18/09 ▲ |
|
|
|
|
Roberto | can me because none help? |
|
|
| Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 02/18/09 ▲ |
|
|
|
|
Paul Glatz | Hi, whom wastebasket call You so on:
var x% = 280
var y% = 75
PROC PRG_START
var ergebnis& = WinExec(explorer /n,::{645FF040-5081-101B-9F08-00AA002F954E},1) wastebasket open!
var ergebnis& = WinExecWait(wastebasket.exe,1)
if ergebnis& = 0
Messagebox(Error at started the Program,F E H L E R,4112)
end
endif
ENDPROC
Window Style 31
Window Title Externes Program started
Window (%MaxX - x%)/ 2,(%MaxY - y%)/ 2 - x%,y%
var Papierkorb& = Create(Button,%HWnd,wastebasket öffnen,5,Height(%HWnd) - 30,140,25)
var exit& = Create(Button,%HWnd,terminate,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.^^ | 02/18/09 ▲ |
|
|
|
|
Paul Glatz | Hi, I can't nachvollzihen what with DIR not works. Giebt it a Message or what?? |
|
|
| |
|
|
|
Roberto | No by me happens simply yarn nothing if I on the Button click |
|
|
| Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 02/19/09 ▲ |
|
|
|
|
Paul Glatz | Hi,
attempt time Please whether the following klapt:
|
|
|
| |
|
|
|
Roberto | Klappt but what shall The whole numbers mean means the wastebasket becomes How pseudo opened |
|
|
| Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 02/19/09 ▲ |
|
|
|
|
Paul Glatz | Hi, attempt time Please:
var x% = 280
var y% = 75
PROC PRG_START
declare Result%
Result% = WinExec(explorer /n,::{645FF040-5081-101B-9F08-00AA002F954E},1) wastebasket open!
var ergebnis& = WinExecWait(wastebasket.exe,1)
if Result% = 0
Messagebox(Error at started the Program,F E H L E R,4112)
end
endif
ENDPROC
Window Style 31
Window Title Externes Program started
Window (%MaxX - x%)/ 2,(%MaxY - y%)/ 2 - x%,y%
var Papierkorb& = Create(Button,%HWnd,wastebasket öffnen,5,Height(%HWnd) - 30,140,25)
var exit& = Create(Button,%HWnd,terminate,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 | Yes perfect but I wants too yet others Files open. means what mean The whole numbers to EXLPORER |
|
|
| Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 02/19/09 ▲ |
|
|
|
|
Paul Glatz | Hi, the says the windows-Explorer the it whom wastebasket open should. Weche programs wilst You open?? |
|
|
| |
|
|
|
Roberto | |
|
| Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 02/19/09 ▲ |
|
|
|