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
|
implementation
{$R *.DFM}
function EnumWindowsCallback(hWnd: HWND; lParam: LPARAM): BOOL; stdcall;
var
Caption, ClassName: array[0..255]of Char;
IsExplorerWindow: Boolean;
begin
if IsWindowVisible(hWnd) then
begin
GetWindowText(hWnd, Caption, SizeOf(Caption));
GetClassName(hWnd, ClassName, SizeOf(ClassName));
IsExplorerWindow := (ClassName = 'ExploreWClass');
Form1.Memo1.Lines.Add('Caption: ' + Caption + ' ' +
'ClassName: ' + ClassName + ' ' +
'ExplorerWindow: ' + BoolToStr(IsExplorerWindow, True));
end;
Result := True; // Pour éviter d'interrompre l'énumération
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear;
EnumWindows(@EnumWindowsCallback, 0);
end;
end. |
Partager