Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.011 c
14-11699
alex134
2003-11-12 23:18
2003.12.04
Microsoft Project


3-11595
Ich Hasse
2003-11-16 13:21
2003.12.04
Как переименовать и переместить столбец?


9-11577
Vin_Ghost
2003-05-20 23:18
2003.12.04
алгоритм поиска пути


6-11677
TButton
2003-10-05 01:18
2003.12.04
Socket. Восстановление связи.


11-11597
mega-chel
2003-03-24 13:56
2003.12.04
Нужны diskinfo, и dsgnintf под 7 delphi,