cześć
Próbuje sobie zrobić program, który pokaże mi wszystkie otwarte okna a do nich nazwę exe jeśli są programem
kod żeby pobrać listę otwartych okien
function EnumWindowsProc(wHandle: HWND): Boolean; StdCall; Export;
var title,className: array[0..128] of Char; sTitle,sClass,sLine: String;
begin
Result:=True;
GetWindowText(wHandle,title,128);
GetClassName(wHandle,className,128);
sTitle:=title;
sClass:=className;
if IsWindowVisible(wHandle)
then
begin
sLine:=sTitle;
Form1.memo1.Lines.add(sLine);
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
EnumWindows(@EnumWindowsProc,0);
end;
Szukam w necie jak pobrać do tego nazwy exe ale z kiepskim skutkiem tzn znalazłem jak pobrać liste procesów itp ale <ort>w ogóle </ort>nie mam pojęcia jak pobrać nazwy exe do tej funkcji wyżej
Może się nie da??
proszę o pomoc