Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2003.01.30;
Скачать: [xml.tar.bz2];

Вниз

помогите плиз!!!   Найти похожие ветки 

 
Bukerman   (2002-12-16 16:06) [0]

Господа мастаки, бьюсь второй день, не могу понять, может кто подскажет, есть такой код

var
Wnd : HWND;
lpdwProcessId : LPDWORD;
hProcess : Cardinal; // handle to the process
jjj : DWORD;

begin
Wnd := GetWindow(Handle, gw_HWndFirst);
GetWindowThreadProcessId(Wnd, lpdwProcessId);
jjj:=lpdwProcessId^;
hProcess:=OpenProcess(PROCESS_ALL_ACCESS, FALSE, jjj);

в таком виде работает, но выдает warning, что lpdwProcessId may not be initialized, если сначала проинициализировать: lpdwProcessId:=nil;
то компилируется нормально, но в runtime на строке GetWindowThreadProcessId(Wnd, lpdwProcessId);
ругается access violation в модуле user32.dll. Но самое интересное, что если оставить в таком виде (весь остальной код закомментирован), то хоть и выдает ворнинги, но работает, а если
его раскомментировать, то на строке
jjj:=lpdwProcessId^;
опять же access violation, что я делаю не так?


 
Zz_   (2002-12-16 16:18) [1]

lpdwProcessId := @jjj;
GetWindowThreadProcessId(Wnd, lpdwProcessId);


 
MBo   (2002-12-16 16:18) [2]

ProcessId : DWORD;
GetWindowThreadProcessId(Wnd, ProcessId);


 
MBo   (2002-12-16 16:25) [3]

Пардон
ProcessId : DWORD;
GetWindowThreadProcessId(Wnd, @ProcessId);




 
Bukerman   (2002-12-16 17:00) [4]

Бооольшое спасибо!Вроде помогло.



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

Форум: "WinAPI";
Текущий архив: 2003.01.30;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.01 c
3-96636
Сергей
2003-01-10 10:36
2003.01.30
Добавление записи илди изменение ее значения


14-96991
veles
2003-01-13 10:56
2003.01.30
Работа с Excel_м


14-96997
Song
2003-01-10 07:12
2003.01.30
А я на новой работе. Теперь уже непосредственно програмистом


1-96823
viper
2003-01-20 14:24
2003.01.30
Add Icon in Tray


3-96554
Dracula2000
2003-01-10 14:38
2003.01.30
Левый перенос заголовка в QReport





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский