1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60
|
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption:=inttostr(findwindow(pchar(edit1.text),''));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
label2.Caption:=inttostr(findwindowex(strtoint(label1.Caption),$0,pchar(edit2.Text),''));
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
label3.Caption:=inttostr(findwindowex(strtoint(label2.Caption),$0,pchar(edit3.Text),pchar(contenu1.Text)));
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
label4.Caption:=inttostr(findwindowex(strtoint(label3.Caption),$0,pchar(edit4.Text),pchar(contenu2.Text)));
end;
procedure TForm1.bcach1Click(Sender: TObject);
begin
showwindow(strtoint(label1.Caption),SW_HIDE);
end;
procedure TForm1.bmontr1Click(Sender: TObject);
begin
showwindow(strtoint(label1.Caption),SW_SHOW);
end;
procedure TForm1.bcach2Click(Sender: TObject);
begin
showwindow(strtoint(label2.Caption),SW_HIDE);
end;
procedure TForm1.bmontr2Click(Sender: TObject);
begin
showwindow(strtoint(label2.Caption),SW_SHOW);
end;
procedure TForm1.bcach3Click(Sender: TObject);
begin
showwindow(strtoint(label3.Caption),SW_HIDE);
end;
procedure TForm1.bmontr3Click(Sender: TObject);
begin
showwindow(strtoint(label3.Caption),SW_SHOW);
end;
procedure TForm1.bcach4Click(Sender: TObject);
begin
showwindow(strtoint(label4.Caption),SW_HIDE);
end;
procedure TForm1.bmontr4Click(Sender: TObject);
begin
showwindow(strtoint(label4.Caption),SW_SHOW);
end; |
Partager