Problemas con la api GetProcessImageFileNameW

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