24-08-2023, 10:45
|
 |
Registered User
|
|
Join Date: Nov 2017
Location: Eka-burg
Posts: 22
Thanks: 44
Thanked 11 Times in 7 Posts
|
|
Quote:
Originally Posted by audiofeel
and if like this? even better...
Code:
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?
|