Kod: Tümünü seç
procedure TForm1.Timer1Timer(Sender: TObject);
Var
IExplorer : Thandle;
Buffer : Array[0..99] of char;
begin
IExplorer := FindWindow('IEFrame',nil);
If IExplorer <> 0 Then GetWindowText(IExplorer,Buffer,100);
form1.label1.caption:=buffer;
end;
aynı sekılde msn ve msn konusmalarında acılan her pencerenın title sini nasıl oğrenebilirim;yada msn nin class name ni?
FindWindow('messenger',nil);
yazdım ama olmadı
bu konuda yardımcı olurmusunuz?