[hitman797]

Example-DiskList.iss

var
  FMXLabel  : FLabel;

procedure FMXInnoInit;
begin
  FMXLabel  := InitLabelHandle;
end;

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