Текущий архив: 2003.12.04;
Скачать: 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 вся ветка
Текущий архив: 2003.12.04;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.006 c
