Başlangıç > Kodlar > Delphi’de handle(PID) ile aktif pencerelerin isimlerini almak

Delphi’de handle(PID) ile aktif pencerelerin isimlerini almak

Pencere isimlerini alma kodları:

procedure TForm1.Button1Click(Sender: TObject);
var cName : Array[0..63] of Char;
Handle: THandle;
begin
ListBox1.Items.Clear;
ListBox1.Sorted := True;
Handle := Self.Handle;
GetClassName(Self.Handle, cName, 64);
ListBox1.Items.Add (StrPas(cName) + ' ('+IntToStr(Handle)+')');
While Handle > 0 do begin
Handle := GetNextWindow(Handle, GW_HWNDNEXT);
GetClassName(Handle, cName, 64);
ListBox1.Items.Add (StrPas(cName) + ' ('+IntToStr(Handle)+')');
end;
end;

Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: