Проблема с получением имени

[zumm]

Вообщем имеется проблема с получением полного имени процесса. Вот код:

procedure DeleteProcess(i: integer);
var
 cm: cardinal;
 ModName: array[0..max_path] of char;
 mh: hmodule;
 ph: THandle;
begin
 ph:=OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, false, proclist[i]);
 EnumProcessModules(ph, @mh, 4, cm);
 GetModuleFileNameEx(ph, mh, ModName, sizeof(ModName));
 ShowMessage(string(ModName));
 DeleteFileWithUndo(string(ModName));
 CloseHandle(ph);
end;

Небольшое пояснение:
Процедура получает атрибут 'i', это указатель на элемент массива с записью о ID процесса(proclist). DeleteFileWithUndo это полностью рабочая самописная функция удаления файлов.

Проблема состоит в том что я никак не могу получить полное имя процесса в переменную ModName после исполнения процедуры она остаётся пустой...

Помогите...

[Terran]

Я проверил Вашу процедуру. У меня всё работает. Возможно Вы не верно указываете ID процесса.

[Пепел Феникса]

во первых используйте SetLastError(0) перед каждым действием(перед любым АПИ) и соответственно GetLastError после(если вернет не 0 то ошибка была)
и далее, функции возвращают значение по которому можно судить об ошибке.
и отладчик на что?
используйте ShowMessage на крайняк.

это я про отладку конечно

[zumm]

Всем спасибо, я разобрался. Я пытался использовать OpenProcess уже после того как убил процесс. Осознанние этого пришло не сразу)

PS

используйте ShowMessage на крайняк.

Так а я чем проверяю =)