[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;