| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
помогите с EnumWindows [D7, WinXP]
Pavels © (2003-10-10 10:16:00)
код
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 не ас ...
Pavels (2003-10-10 11:05:00) [1]
спасибо
разобрася ...
FireHack (2003-10-10 10:54:00) [2]
да не
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 10:46:00) [3]
сделал
function GetWin(H:THandle; lParam:Longint):Boolean; stdcall;
гм ..
непомогло
в чем проблема ??
FireHack (2003-10-10 10:33:00) [4]
stdcall !!!!!
| |
