помогите с EnumWindows

← →
Pavels (2003-10-10 10:16) [0]

код

function GetWin(H:THandle; lParam:Longint):Boolean;
Var
P:PChar;
S:String;
begin
Result:=true;
if H>0 then
if IsWindow(H) then // проблема !! хендлер не окно
begin
GetMem(P,100);
GetWindowText(H,P,100);
S:=P;
Result:=true
end;
end;

Top:=GetDesktopWindow();
while EnumWindows(@GetWin,0) do
begin

end;

помогите кто знает грабли
ps. с WinApi не ас ...

← →
FireHack (2003-10-10 10:33) [1]

stdcall !!!!!

← →
Pavels (2003-10-10 10:46) [2]

сделал
function GetWin(H:THandle; lParam:Longint):Boolean; stdcall;
гм ..
непомогло

в чем проблема ??

← →
FireHack (2003-10-10 10:54) [3]

да не
while EnumWindows(@GetWin,0) do begin end;

а просто EnumWindows

и где у тебя FreeMem

что это за S:=P
лучше
SetLength(S,100);
SetLength(S,GetWindowText(H, @S[1], 100));

← →
Pavels (2003-10-10 11:05) [4]

спасибо

разобрася ...

помогите с EnumWindows Найти похожие ветки