ja das hätte ich gern gewusst ob es möglich ist und wenn ja wie.
bei mir wird immer nur 1 prozess beendet ...
schonmal danke für eure hilfe dafür gibs bestimmt ne
ganz einfache antwort wo ich nicht drauf gekommen bin
und das ist mein quellcode
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
| procedure TForm7.Button1Click(Sender: TObject);
begin
h := FindWindow('IEFrame',nil);
if h <> 0 then SendMessage(h, WM_SYSCOMMAND, SC_CLOSE, 0);
Progressbar1.Min:=0;
Progressbar1.Max:=80000;
for I:=0 to 10000-1 do Progressbar1.Position:=I;
Progressbar1.Min:=0;
Progressbar1.Max:=80000;
for I:=10000 to 20000-1 do Progressbar1.Position:=I;
h := FindWindow('IEFrame1',nil);
if h <> 0 then SendMessage(h, WM_SYSCOMMAND, SC_CLOSE, 0);
Progressbar1.Min:=0;
Progressbar1.Max:=80000;
for I:=20000 to 30000-1 do Progressbar1.Position:=I;
h := FindWindow('IEFrame2',nil);
if h <> 0 then SendMessage(h, WM_SYSCOMMAND, SC_CLOSE, 0);
Progressbar1.Min:=0;
Progressbar1.Max:=80000;
for I:=30000 to 40000-1 do Progressbar1.Position:=I;
h := FindWindow('IEFrame3',nil);
if h <> 0 then SendMessage(h, WM_SYSCOMMAND, SC_CLOSE, 0); |
end;
Moderiert von 
Tino: Delphi-Tags hinzugefügtModeriert von Narses: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Di 21.04.2009 um 15:09
