VerFindFileW

function VerFindFileW(

  uFlags: DWORD;

  szFileName: LPWSTR;

  szWinDir: LPWSTR;

  szAppDir: LPWSTR;

  szCurDir: LPWSTR;

  var lpuCurDirLen: UINT;

  szDestDir: LPWSTR;

  var lpuDestDirLen: UINT

):DWORD;