var
VolumeName: String;
FileSystemName: AnsiString;
VolumeSerialNo, MaxComponentLength, FileSystemFlags: Longint;
function GetVolumeInformation(PathName,VolumeName: PAnsiChar; VolumeNameSize,VolumeSerialNumber,MaxComponentLength,FileSystemFlags: Longint; FileSystemName: PAnsiChar; FileSystemNameSize: Longint): Longint; external 'GetVolumeInformationA@kernel32.dll stdcall';
procedure InitializeWizard;
begin
FileSystemName:= StringOfChar(' ', 32); VolumeName:= StringOfChar(' ', 256);
GetVolumeInformation('c:\', VolumeName, 255, VolumeSerialNo, MaxComponentLength, FileSystemFlags, FileSystemName, 31);
WizardForm.WelcomeLabel1.Caption:=DelSP(FileSystemName);
end;
function NextButtonClick(CurPageID: Integer): Boolean;
var
s: string;
begin
Result := True;
if CurPageID = wpSelectDir then
begin
if DelSP(FileSystemName)='FAT' then
begin
s := 'У выбранного раздела файловая система FAT32, что недопустимо.'#13'Пожалуйста, измените путь установки.';
MsgBox(s, mbError, mb_Ok);
Result := False ;
exit;
end
else Result := True;
end;
end; |
