Problemas con la api GetProcessImageFileNameW
 

Hola a todos:
Tengo un problema en el que espero puedan ayudarme. El problema es el siguiente estoy trabajando con el API GetProcessImageFileNameW el código que utilizó en más o menos es siguiente:

Código Delphi [-]
type
  TPROFILENAME = function(hProcess: THandle; lpFileName:LPTSTR; nSize: DWORD):DWORD; stdcall;

var
 Filename: TPROFILENAME;
....
procedure TForm1.Button1Click(Sender: TObject);
var
 text: array[0..260] of Char;
 dll: HMODULE;
 proc: THandle;
begin
 proc:= OpenProcess(PROCESS_QUERY_INFORMATION,False,StrToInt(Label2.Caption));
 dll := LoadLibrary('C:\WINDOWS\system32\psapi.dll');
 Filename := GetProcAddress(dll,'GetProcessImageFileNameW');
 Filename(proc,PChar(@text),260);
 ShowMessage(text);
 CloseHandle(proc);
 FreeLibrary(dll);
end;

Así me funciona bien, el problema esta en la línea ShowMessage (text); cuando esta se ejecuta el mensaje solo muestra un BackSlash ('\') y cuando reviso el valor manualmente si me pone el path completo del proceso. Alguien me podría explicar porque pasa esto. Gracias de antemano por la ayuda que me puedan brindar.

Pues yo he hecho lo siguiente:

Código Delphi [-]
var
 text: array[0..260] of wideChar;
 dll: HMODULE;
 proc: THandle;
 s: string;
begin
 proc:= OpenProcess(PROCESS_QUERY_INFORMATION,False,GetCurrentProcessID);
 dll := LoadLibrary('C:\WINDOWS\system32\psapi.dll');
 Filename := GetProcAddress(dll,'GetProcessImageFileNameW');
 Filename(proc,PChar(@text),260);
 s:= text;
 ShowMessage(s);
 CloseHandle(proc);
 FreeLibrary(dll);

Y parece funcionar, al parecer GetProcessImageFileNameW entrega un pchar pero en ¿Unicode?

EDIT: Sí, parece que sí, la versión GetProcessImageFileName (sin la W) debe entregar uno Ansi, pero no he probado.

PD: Esto es en Delphi7, no sé qué pasará con 2010...

Hola Lord Delfos: he echo la prueba con los cambios que pusiste y GetProcessImageFileNameW y me sigue dando problema, es que este como tu decías entrega un pchar en UNICODE, pero lo e probado con la A y me a funcionado de maravillas. Bueno gracias por tu ayuda men y si no es mucha molestia me gustaría saber si tu sabes como se descodifica por decirlo de alguna manera los pchar Unicode o sabes donde puedo encontrar información sobre esto. Y gracias nuevamente.

Pregunto por las dudas.

¿Notaste que cambié el array[0..256] of char por WideChar? ¿No?

Edit: LA conversión parece ser automática. Por lo menos den Delphi 7. Al asignar el WidChar a un AnsiString... sale como piña.

Un inciso. ¿Porqué no usas la versión no unicode de esa API: GetProcessImageFileName?

Saludos.