PsAPI. GetProcessImageFileName. Привести LPTSTR к string

[Человек_Борща]

Доброго времени суток!


Вопрос по WinAPI. Модераторы, отправьте тему туда.

Разгребаю PsAPI.



пытаюсь написать перебор списка процессов, основываясь на примере.

Есть функция: GetProcessImageFileName

Её почему-то посчитали нужным не обьявить в Windows.PsAPI модуле XE2.

Сделал это сам:

function GetProcessImageFileName(hProcess:THandle; lpImageFileName:LPTSTR; nSize:DWORD):DWORD; stdcall;
 external 'PSAPI.dll' name 'GetProcessImageFileNameW';

Далее пишу её использование:

function TProcessForm.GetProcessName(aPID: Cardinal): string;
var
 cProcName:array[0..MAX_PATH] of PChar;
begin
  Result:='';
  if GetProcessImageFileName(aPID,@cProcName,SizeOf(cProcName)) <> 0 then
  begin
    Result:=  << - сюда нужно вернуть string-версию cProcName.
 Привидение типов не работает :( как быть? 
  end;
end;

Правильно ли обьявил эксп. функцию и её использование?
Как вернуть строкой то, что вернулось в массив?

[обновил]

Написал грабли:

function TProcessForm.GetProcessName(aPID: Cardinal): string;
var
 cProcName:array[0..MAX_PATH] of PChar;
 i:Integer;
 s:string;
begin
  Result:='';
  if GetProcessImageFileName(aPID,@cProcName,SizeOf(cProcName)) <> 0 then
  begin
   for i:=0 to Length(cProcName) do
   begin
     s:=s+cProcName[i];
   end;
    Result:=s;
  end;
end;

Но есть способ проще, однако я его не разгледел. Кто подскажет ?

[Аватар]

var s: String;
..
s:=cProcName;

ADD

Только нужно var cProcName:array[0..MAX_PATH] of Char;

[3D Hunter]

Не уверен, попробуйте так:

function TProcessForm.GetProcessName(const aPID: Cardinal): string;
begin
  Result:='';
  SetLength(Result,MAX_PATH);
  GetProcessImageFileName(aPID,PWideChar(Result),SizeOf(Result));
end;

[Человек_Борща]

Спасибо. с Char сработало. Я в шоке!
Мне вернуло:
\Device\HarddiskVolume1\WINDOWS\sys tem32\lsass.exe

с какого перепугу такие сабжи? кАк сделать привычный вид?

[Аватар]

Кстати если в Д7, то name 'GetProcessImageFileNameA'

кАк сделать привычный вид?

DevicePathToWin32Path(cProcName) подойдет?

[Человек_Борща]

ага. А по поводу стремных путей к файлам, можно что-то подсказать?
Навскидку:



Мне это кажется совсем лоулевел пути. Мне нужно что-то к юзеру близкое.

Обновлено

The GetProcessImageFileName function returns the path in device form, rather than drive letters. For example, the file name C:\Windows\System32\Ctype.nls would look as follows in device form:

\Device\Harddisk0\Partition1\Window s\System32\Ctype.nls

To retrieve the module name of the current process, use the GetModuleFileName function with a NULL module handle. This is more efficient than calling the GetProcessImageFileName function with a handle to the current process.

А мне нужен путь к чужому процессу.

[Аватар]

Можно было бы и с DevicePathToWin32Path поработать

[Человек_Борща]

о_О в каком оно модуле?

[Аватар]

Её нет в модулях. Можно погуглить и найти разные вариации кода на нескольких языках

[Человек_Борща]

Обгуглился... но нагуглил! Вопрос закрыт.

function DevicePathToWin32Path(path:string):string;
var
  c:char;
  s:string;
  i:integer;
  _path : String;
begin
  _path := path;
  i:=posex('\', path, 2);
  i:=posex('\', path, i+1);
  result:=copy(path, i, length(path));
  delete(path, i, length(path));
  for c:='A' to 'Z' do
  begin
    setlength(s, 1000);
    if querydosdevice(pchar(string(c)+':'), pchar(s), 1000)<>0 then
    begin
      s:=pchar(s);
      if sametext(path, s) then
      begin
        result:=c+':'+result;
        exit;
      end;
    end;
  end;
  result := _path;
end;