Главная страница
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.007 c
8-11621
ram2003
2003-08-04 17:28
2003.12.04
OpenGL


11-11601
chum
2003-03-21 16:55
2003.12.04
Как проверить конец файла в TStream


6-11646
Lony
2003-10-07 15:30
2003.12.04
Соединение с Интернетом


4-11752
Demetrius2003
2003-10-04 17:49
2003.12.04
Оброботка OnClick


6-11686
alexb
2003-10-03 23:28
2003.12.04
Нужна программа для упр. удалённым компом!