Des wären die Netzlaufwerke die muss ich so auslesen da ich die Namen von den Netzlaufwerken brauch geht weiter alphabetisch so bis Z.
Delphi-Quellcode:
begin // Netzwerk A
regist := TRegistry.Create;
try
regist.RootKey := HKEY_CURRENT_USER;
try
regist.OpenKey('Network\A', false);
ListboxDrives.Items.add(regist.CurrentPath[9] + ': ' + regist.ReadString('RemotePath'));
except
end;
finally
regist.free;
end;
begin // Netzwerk B
regist := TRegistry.Create;
try
regist.RootKey := HKEY_CURRENT_USER;
try
regist.OpenKey('Network\B', false);
ListBoxDrives.Items.add(regist.CurrentPath[9] + ': ' + regist.ReadString('RemotePath'));
except
end;
finally
regist.free;
So les ich die lokalen Laufwerke aus
Delphi-Quellcode:
procedure TfrmSystemInfo.GetDrives(const AItems: TStrings); //lokale Laufwerke
const
DriveTypeTexts: array[DRIVE_UNKNOWN..DRIVE_RAMDISK] of string =
('Unbekannt', 'Kein Wurzelverzeichnis', 'Diskettenlaufwerk', 'Festplatte','',
'DVD-Laufwerk', 'RAMDisk');
var
Drive: Char;
DriveType: Integer;
DriveMask: Integer;
Flag: Integer;
begin
DriveMask := GetLogicalDrives;
flag := 1;
for Drive := 'A' to 'Z' do //Jeden Buchstaben gegenprüfen
begin
if (flag and DriveMask) <> 0 then
begin
DriveType := GetDriveType(PChar(Format('%S:\',[Drive]) ) ) ;
AItems.Add(Format('%s: %s', [Drive, DriveTypeTexts[DriveType]]));
end;
flag := flag shl 1;
end;
end;
GetDrives(ListBoxDrives.Items);
Ich hoffe du kommst damit klar wenn net, ruhig fragen
