[Redddd]

Хочу узнать полное имя и директорию файла, который запустил процесс.
Делаю так:

Код:

var
  buffer: array[0..260] of Char;
  FileName : string;
   hp:integer;
  ProcessId: Dword;
begin
 h:=FindWindow(nil,name);
 GetWindowThreadProcessId(h,ProcessId);
 hp:=OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);// hp- хэндл процесса,
 SetString( FileName, buffer, GetModuleFileName(hp,buffer,SizeOf(buffer)) );

Результат - пустой и FileName и hp . Хде ошибка?