MsiGetProductInfoFromScriptA

function MsiGetProductInfoFromScriptA(

  szScriptFile: LPCSTR;

  lpProductBuf39: LPSTR;

  plgidLanguage: PLANGID;

  pdwVersion: LPDWORD;

  lpNameBuf: LPSTR;

  pcchNameBuf: LPDWORD;

  lpPackageBuf: LPSTR;

  pcchPackageBuf: LPDWORD

):UINT;