#1
|
|||
|
|||
Inno setup - NoSD Code (plz help me)
Can anyone tell me what's wrong this?
const DRIVE_UNKNOWN = 0; DRIVE_NO_ROOT_DIR = 1; DRIVE_REMOVABLE = 2; DRIVE_FIXED = 3; DRIVE_REMOTE = 4; DRIVE_CDROM = 5; DRIVE_RAMDISK = 6; SHCNE_ASSOCCHANGED = $08000000; SHCNF_IDLIST = $00000000; function GetLogicalDrives: DWord; external '[email protected] stdcall'; function GetDriveTypeA(lpRootPathName: AnsiString): UInt; external '[email protected] stdcall'; function NoSD(s: String): String; var x, bit, i: Integer; tp: Cardinal; sd: string; Begin sd := ExpandConstant('{sd}'); x := GetLogicalDrives; if x <> 0 then begin for i:= 1 to 64 do begin bit := x and 1; if bit = 1 then begin tp := GetDriveTypeA(PAnsiChar(Chr(64 + i) + ':')); if tp = DRIVE_FIXED then begin if Chr(64 + i) <> Copy(sd, 1, 1) then begin Result := Chr(64 + i) + ':'; Break; end; end; end; x := x shr 1; end; end; end; |
The Following User Says Thank You to sakila(playboy) For This Useful Post: | ||
GaMEr_2077 (31-05-2021) |
Sponsored Links |
#2
|
||||
|
||||
The code is working correctly.
It returns the first drive unit found that is fixed (HD/SSD) and is not the system drive. |
The Following User Says Thank You to Cesar82 For This Useful Post: | ||
sakila(playboy) (27-04-2020) |
#3
|
|||
|
|||
Work: Red = you add Green = delete Code:
var x, bit, i: Integer; tp: Cardinal; sd: string; Begin sd := ExpandConstant('{sd}'); Result := ExpandConstant('{pf}\'); x := GetLogicalDrives; If x <> 0 Then For i:= 1 To 64 Do Begin bit := x and 1; If bit = 1 Then Begin tp := GetDriveType(PAnsiChar(Chr(64 + i) + ':')); If tp = DRIVE_FIXED Then If Chr(64 + i) <> Copy(sd, 1, 1) Then Begin Result := Chr(64 + i) + ':\Games\'; Break; End; End; x := x shr 1; End; End; End; Last edited by Emorian; 25-05-2020 at 18:19. |
The Following User Says Thank You to Emorian For This Useful Post: | ||
sakila(playboy) (04-06-2020) |
![]() |
Thread Tools | |
Display Modes | |
|
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
[CIUv3] Custom Installer Ultimate v3 | KaktoR | Conversion Tutorials | 917 | 06-02-2025 08:50 |
BlackBox v2 | y_thelastknight | Conversion Tutorials | 567 | 25-01-2025 04:52 |
INNO TROUBLESHOOT - Tutorials and Answers about INNO Setup | REV0 | Conversion Tutorials | 129 | 21-05-2021 06:51 |
Useful Dll for Inno Setup users | peterf1999 | Conversion Tutorials | 88 | 01-12-2017 17:00 |
INNO TUTORIAL - Using Unicode and ANSI Versions of INNO Setup | REV0 | Conversion Tutorials | 51 | 26-03-2015 07:57 |