pencere listesi hazırlama

[nturk]

Windows da açılmış olan pencerelerin isimlerini listbox'a aktarmak için ne gibi metod uygulamamız gerekli?findwindow ile çalışma yapılabilirmi?

[mkysoft]

arama yaparsanız bulabilirsiniz.

[uince]

Aşağıdaki fonksiyonla isteğinizi gerçekleştirebilirsiniz...

function EnumWindowsProc(wHandle: HWND; lb: TListBox): Bool; stdcall; export;
var
Title, ClassName: array[0..255] of char;
begin
Result := True;
GetWindowText(wHandle, Title, 255);
GetClassName(wHandle, ClassName, 255);
if IsWindowVisible(wHandle) then
lb.Items.Add(string(Title) + '-' + string(ClassName));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
EnumWindows(@EnumWindowsProc, Integer(Listbox1));
end;