FMXInno - Windows Fluent Design Installer UI for Inno

[hitman797]

Originally Posted by crachlow

You didn't look at the constants.
const
HDD_MEDIA_TYPE_UNKNOWN = $0000;
HDD_MEDIA_TYPE_HDD = $0003;
HDD_MEDIA_TYPE_SSD = $0004;
HDD_MEDIA_TYPE_SCM = $0005;
[IMG]
https://i.ibb.co/HC1cpzn/2023-08-24-202555.png
[/IMG]

var
  FMXLabel  : FLabel;

procedure FMXInnoInit;
begin
  FMXLabel  := InitLabelHandle;
end;

procedure FMXDesigning;
begin
  FMXLabel.FCreate(FMXForm.Handle, '');
  if wGetDriveMediaType('D') = 0 then
  begin
   FMXLabel.Text('UNKNOWN');
  end;
  if wGetDriveMediaType('D') = 3 then
  begin
   FMXLabel.Text('HDD');
  end;
  if wGetDriveMediaType('D') = 4 then
  begin
   FMXLabel.Text('SSD');
  end;
  if wGetDriveMediaType('D') = 5 then
  begin
   FMXLabel.Text('SCM');
  end;
  FMXLabel.Left(50);
  FMXLabel.Top(50);
  FMXLabel.FontSetting('Segoe UI', 16, ALBlack);
end;

var
  FMXLabel  : FLabel;

procedure FMXInnoInit;
begin
  FMXLabel  := InitLabelHandle;
end;

procedure FMXDesigning;
begin
  FMXLabel.FCreate(FMXForm.Handle, '');
  case wGetDriveMediaType('D') of
  0: FMXLabel.Text('UNKNOWN');
  3: FMXLabel.Text('HDD');
  4: FMXLabel.Text('SSD');
  5: FMXLabel.Text('SCM');
  end;
  FMXLabel.Left(50);
  FMXLabel.Top(50);
  FMXLabel.FontSetting('Segoe UI', 16, ALBlack);
end;

[crachlow]

Originally Posted by audiofeel

and if like this? even better...

procedure DiskListOnChange(Sender: TObject);
var
  S: String;
begin
  S := DirEdt.GetText;
  StringChange(S, ExtractFileDrive(S), DiskList.GetSelectedDisk);
  DirEdt.Text(S);
   case wGetDriveMediaType(S) of
   0: FMXLabel.Text('Unknown');
   3: FMXLabel.Text('HDD');
   4: FMXLabel.Text('SSD');
   5: FMXLabel.Text('SCM');
   end;
end;

Well, what did you do?