maison
Top.Mail.Ru Yandeks.Metrika
Forum: "WinAPI";
Archive actuelle: 2002.01.08;
Télécharger: [xml.tar.bz2];

vers le bas

Maîtres, aidez .. Trouver des branches similaires


YUS   (2001-11-01 03:13) [0]

Мастера, подскажите где ошибка? Нужно получить список окон и
имена ехе файлов.

utilise tlhelp32;
procédure TForm1.Button2Click (Sender: TObject);
var
Window:hWnd; hSn: THandle; lppe: TProcessEntry32;
buffer: array [0..127] of char; ht, hProc: Cardinal;
commencer
//Ищем хендл верхнего окна
Window:=GetForegroundWindow;
répéter
if (Window<>Application.Handle) and
(GetWindowText(Window,buffer,sizeof(buffer))<>0)
alors commence
//Ищем ID процесса
ht := GetWindowThreadProcessId(Window,@hProc);
//Делаем снимок процесса
hSn := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS ,hProc);
//Получаем список всех процессов
if Process32First(hSn, lppe) then
répéter
//Сравниваем ID и получаем имя ехе и путь ????????????????
if lppe.th32ProcessID = ht then
commencer
GetWindowText(Window,buffer,sizeof(buffer));
with ListView1.Items.Add do begin
Caption := buffer;
SubItems.Add(lppe.szExeFile);
fin;
fin;
until not Process32Next(hSn, lppe);
CloseHandle(hSn);
fin;
//Ищем следующее окно
Window:= GetNextWindow(window,GW_HWNDNEXT);
until Window =0;

fin;



troits   (2001-11-01 12:54) [1]

Так ,навскидку :
есть:
if lppe.th32ProcessID = ht then
devrait être
if lppe.th32ProcessID = hProc then

Да, в CreateToolHelp32Snapshot hProc передавать не нужно.



YUS   (2001-11-01 16:40) [2]

troits,
спасибо за направление все получилось.
Действительно if lppe.th32ProcessID = hProc then , а ht-ненужен
в ht := GetWindowThreadProcessId(Window,@hProc); ,но без CreateToolHelp32Snapshot не работает



troits   (2001-11-01 17:18) [3]

Я хотел сказать, что в функции
CreateToolHelp32Snapshot
при первом параметре TH32CS_SNAPPROCESS
второй игнорируется.
Можно поставить, например, 0.



Pages: 1 branche entière

Forum: "WinAPI";
Archive actuelle: 2002.01.08;
Télécharger: [xml.tar.bz2];

à l'étage















Mémoire: 0.82 MB
Heure: 0.042 c
7-22436
Serg2
2001-09-26 18:23
2002.01.08
Сворачивание всех окон


1-22002
BFG
2001-12-16 16:24
2002.01.08
Graphiques


1-22114
Aleksandr
2001-12-19 19:28
2002.01.08
Comment collecter les couleurs à partir de chiffres et de luminosité?


1-22145
MARCODEN
2001-12-15 17:42
2002.01.08
Bouton personnalisé


14-22379
Félix
2001-11-05 19:54
2002.01.08
Покажи? - А может не надо? -Покажи тебе говорят!





afrikaans albanais Arabic arménien azerbaïdjanais basque Biélorusse Bulgare catalan Chinois simplifié) Chinois (traditionnel) croate Tchèque Danois Néerlandais English estonien Filipino Finlandais Français
galicien géorgien Allemand Grecque Créole haïtien hébreu Hindi Hongrois Islandais Indonesian irlandais Italien Japonais Coréen letton lituanien macédonien Malay maltais Norvégien
persan Polonais Portugais roumain Russe serbe Slovaque Slovène Espagnol Swahili Suédois Thai turc ukrainien Urdu vietnamien gallois yiddish bengali bosniaque
Cebuano espéranto gujarati Hause hmong Igbo Javanais Kannada Khmer lao latin maori Marathi mongol népalais punjabi somali tamil telugu yoruba
zoulou
Английский Français Allemand Italien Португальский Русский Espagnol