Форум: "Начинающим";
Текущий архив: 2006.02.19;
Скачать: [xml.tar.bz2];
ВнизЛюди неужели ни кто не поможет Найти похожие ветки
← →
Pit © (2006-01-29 18:59) [0]Подскажите почему возвращает путь только собственной программы
C:\Program Files\Borland\Delphi7\Projects\CreateToolhelp32Snapshot\Project1.exeprocedure 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.029 c