Hola, prueba cambiando
por
El error ya te esta dando una pista de cual es el problema, que los tipos deben ser identicos, y si te fijas el tipo del parametro pfd es TWin32FindDataW y no TWin32FindData.
Cita:
function GetPath(pszFile: PWideChar; cchMaxPath: Integer; var pfd: TWin32FindDataW; fFlags: DWORD): HResult; stdcall;
|
Saludos.