Arsip: Menampilkan Aplikasi Yang Berjalan (visible)


by LuriDarmawan in Form more 13 years ago 1610
Kita coba temukan semua windows, kecuali yang invisible atau yang tidak mempunyai caption atau yang merupakan MDI-Child.
procedure TForm1.Button1Click(Sender: TObject);
var
Wnd: hWnd;
Buff: array [0..127] of Char;
begin
ListBox1.Clear;
Wnd:=GetWindow(Handle, gw_HWndFirst);
while Wnd<>0 do
begin
if (Wnd<>Application.Handle) and
IsWindowVisible(Wnd) and
(GetWindow(Wnd, gw_Owner)=0) and
(GetWindowText(Wnd, Buff, sizeof(buff))<>0) then
begin
GetWindowText(Wnd, Buff, SizeOf(Buff));
ListBox1.Items.Add(StrPas(Buff));
end;
Wnd:=GetWindow(Wnd, gw_hWndNext);
end;
ListBox1.ItemIndex:=0;
end;
Syntax Highlighted with https://pascal-id.org/syntax
ref: http://www.greatis.com
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com