Problema con procedimiento y paso de parametros

[dec]

Hola,

Cuando hablemos de errores, es bien que se especifiquen los mensajes de error correspondientes, porque, esto ayudará, como se sabe, a encontrar una posible solución al problema. En este caso, y, si se trata sólo de convertir un "string" a "WideChar", si no me equivoco, es posible usar un "cast", sencillamente:

Código Delphi [-]
var
  s: string;
  wc: PWideChar;
begin
  s := 'This is a string';
  wc := PWideChar(s);
  (* ... *)
end;

[MaMu]

SOLUCIONADO

El problema estaba en que en la funcion para obtener el thumbnails, el parametro esta apuntado hacia un pointer, por lo que la unica forma de poder pasarle los parametros correctamente, fue trabajando sobre el vector:

Código Delphi [-]
var MiWideChar:array[0..255] of WideChar;
     a,d,ruta:string;
     ar,di:PWideChar;
begin
   a:=ExtractFileName(Lista.Strings[w]);
   ar:=StringToWideChar((a),archivo,255);
   d:=ExtractFilePath(Lista.Strings[w]);
   di:=StringToWideChar(d,directorio,255);
   Image1.Picture.Assign(GetThumbnail(di,ar, 96, 96));
end;