Problemas con la api GetProcessImageFileNameW

[Suriu]

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)WORD; 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.

[Lord Delfos]

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...

[Suriu]

Empezado por Lord Delfos

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.

[Lord Delfos]

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.

[[escafandra]]

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

Saludos.