| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Люди неужели ни кто не поможет [D7, XP]

Pit ©   (2006-01-29 18:59:00) 

Подскажите почему возвращает путь только собственной программы
C:\Program Files\Borland\Delphi7\Projects\CreateToolhelp32Snapshot\Project1.exe

procedure TForm1.Button1Click(Sender: TObject);
var hSnapShot:  THandle;
 modHandle:  HMODULE ;
 uProcess:   PROCESSENTRY32;
 r:          longbool;
 buf:        array [0..128] of char;
begin
 ListBox1.Clear;
 hSnapShot:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
 if(hSnapShot<>0)then
 begin
   r:=Process32First(hSnapShot, uProcess);
   while r <> false do
   begin
     modHandle:= GetModuleHandle(uProcess.szExeFile);
     GetModuleFileName(modHandle,buf,sizeOf(buf));
     ListBox1.Items.Add(buf);
     edit1.Text:= buf;
     r:=Process32Next(hSnapShot, uProcess);
   end;
   CloseHandle(hSnapShot);
 end;

end;

---

McSimm   (2006-01-30 01:51:00) [1]

просьба не создавать одинаковых сообщений в разных конференциях.
будут удаляться.

спасибо

---

SekelaS   (2006-01-30 01:20:00) [2]

хммм... Что-то не понятно с вопросом.. Если Вам надо пoлучить путь к Вашей прграме, то можно сделать проще:

1) showmessage(application.exename);
2) showmessage(paramstr(0));

---
www.n-admin.com - russian portal for Windows administrators

---

Pit   (2006-01-29 21:36:00) [3]

Уже ничего, мне уже помог человек с ником begin...end.

---

нет   (2006-01-29 21:32:00) [4]

а что ты хочешь сделать-то этим кодом?

---

Наверх