如何檢查inno安裝程序中的分區類型？

Question

我有任務需要執行安裝程序，他將檢查分區類型（例如FAT32，NTFS），如果分區不支持大於4GB的文件，將不允許安裝。

說實話，我不知道我該如何做到這一點。你是否有任何想法如何去做？也許一些執行分區類型驗證的代碼？

我會很感激任何想法執行此任務。

Answer 1

有問題的答案here。

這個簡單的例子檢查wpSelectDir頁面上的分區類型，如果在目標分區上檢測到NTFS，它允許進行安裝過程。

它是爲舊版本的Inno Setup的所寫的，所以需要一些改變（例如，以MsgBox的Format2） 如果您正在使用Unicode的Inno你將不得不雖然小改。

下面您會發現更新了最新版本的Unicode Inno Setup的腳本。

[Setup] 
AppName=Filesystem 
AppVerName=Filesystem 
Uninstallable=false 
UpdateUninstallLogAppName=false 
DisableDirPage=false 
DisableProgramGroupPage=true 
DefaultDirName={pf}\Filesystem 
DisableStartupPrompt=true 

[Code] 
#ifdef UNICODE 
    #define AW "W" 
#else 
    #define AW "A" 
#endif 

const 
    MAX_PATH = 260; 

function GetVolumeInformation(lpRootPathName: string; lpVolumeNameBuffer: string; 
    nVolumeNameSize: DWORD; out lpVolumeSerialNumber: DWORD; 
    out lpMaximumComponentLength: DWORD; out lpFileSystemFlags: DWORD; 
    lpFileSystemNameBuffer: string; nFileSystemNameSize: DWORD): BOOL; 
    external 'GetVolumeInformation{#AW}@kernel32.dll stdcall'; 

function NextButtonClick(CurPage: Integer): Boolean; 
var srcdisk : String; 
    sernum, dummy1, dummy2: DWORD; 
    fstype: String; 
begin 
    Result := true; 
    if CurPage = wpSelectDir then 
    begin 
    srcdisk := AddBackslash(ExtractFileDrive(WizardDirValue)); 
    fstype := StringOfChar(#0, MAX_PATH + 1); 
    if not GetVolumeInformation(srcdisk, '', 0, sernum, dummy1, dummy2, fstype, Length(fstype)) then 
    begin 
     MsgBox(SysErrorMessage(DLLGetLastError), mbError, mb_Ok); 
     Result := false; 
    end else 
    begin 
     fstype := Uppercase(Trim(fstype)); 
     MsgBox (Format('Volume %s has filesystem type (%s)', [srcdisk, fstype]), mbInformation, MB_OK); 
     // Only carry on if the file system is NTFS. 
     Result := (fstype = 'NTFS'); 
    end; 
    end; 
end;