Скачать: CL | DM;

помогите с 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]

спасибо

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.005 c