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

Вниз

Люди неужели ни кто не поможет   Найти похожие ветки 

← →
Pit ©   (2006-01-29 18:59) [0]

Подскажите почему возвращает путь только собственной программы
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;

---

← →
нет   (2006-01-29 21:32) [1]

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

---

← →
Pit ©   (2006-01-29 21:36) [2]

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

---

← →
SekelaS ©   (2006-01-30 01:20) [3]

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

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

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

---

← →
McSimm ©   (2006-01-30 01:51) [4]

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

спасибо

---

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

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

Наверх

Память: 0.45 MB
Время: 0.071 c