Example-DiskList.iss
Code:
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;