Открыть место хранения файла" - Как реализовать?

[Serge_Bliznykov]

в uses допишите PsAPI и ShellAPI

и примерно такой код реализации (нагло вырван отсюда):

function ProcessFileName(PID: DWORD): string;
var
  Handle: THandle;
begin
  Result := '';
  Handle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, PID);
  if Handle <> 0 then
    try
      SetLength(Result, MAX_PATH);
        if GetModuleFileNameEx(Handle, 0, PChar(Result), MAX_PATH) > 0 then
          SetLength(Result, StrLen(PChar(Result)))
        else
          Result := '';
    finally
      CloseHandle(Handle);
    end;
end;

procedure Tmainform.N1Click(Sender: TObject);
var FullFName, dir : string;
begin
   FullFName := ProcessFileName( strtoint(processlist.Cells[1,processlist.Row]));
   if (Length(FullFName)>0) and FileExists(FullFName) then begin
      dir:=extractfiledir(FullFName);
      ShellExecute(Handle,nil,PChar(dir),nil,nil,SW_RESTORE);
   end
   else
     Application.MessageBox(Pchar(' файл '+ FullFName + ' не существует!'),
          'Отладка', MB_OK);
end;

p.s. исправьте опечатку... "Открыть директорию"