如何在inno-setup中使用指针参数调用函数

Question

我用VC在DLL中写了一个函数：

extern "C" __declspec(dllexport) HRESULT  GetDiskType(INT64* nTypeRet, LPWSTR szDisk)
{
    USES_CONVERSION;
    CString strDisk = CW2CT(szDisk);

    *nTypeRet = GetDriveType(strDisk);

    return TRUE;
}

我在inno-setup中使用它：

procedure InitializeWizard();
var nDrType:any;

begin
    GetDiskType(nDrType, 'D:\\');
    //MsgBox(IntToStr(nDrType), mbInformation, MB_OK);
    if (nDrType=3) or (nDrType=6) then
    begin        
      WizardForm.DirEdit.Text := 'D:\\{#MyAppPublisher}\{#MyAppName}';   
    end;    
end;

运行时，它显示错误:write of address 00000000

Answer 1

我找到了答案1，更改dll中的declare函数：

//extern "C" __declspec(dllexport) HRESULT  GetDiskType(INT64* nTypeRet, LPWSTR szDisk)
extern "C" __declspec(dllexport) HRESULT  GetDiskType(int* nTypeRet, LPWSTR szDisk)

2 .在inno-setup use keyword var中声明函数：

function GetDiskType(var pKeyRet:integer; pszDirName: String) : integer; external 'GetDiskType@files:AppRegDll.dll cdecl setuponly'; 

感谢Martin Prikryl的帮助！