Forum: Win32/Win64 API (native code)
Delphi
by Takeo,
15. Jul 2014
Achso alles klar. Hab es ja jetzt eh ohne die Funktion gelöst. Ich hoff meine Lösung ist "gut" programmiert:
procedure TForm1.GetDrives;
var
Drive: Char;
DriveMask: Integer;
Flag: Integer;
FileInfo: TSHFileInfo;
begin
Forum: Win32/Win64 API (native code)
Delphi
by Takeo,
15. Jul 2014
Hallo,
danke für die Antworten.
himitsu dein Link hat mir eine gute Antwort geliefert! Das mit SHGetFileInfo funktioniert.
Ehrlich gesagt habe ich den Code irgendwo aus dem Internet kopiert und da ich mich erst seit ner Woche mit Delphi beschäftige sehe ich nicht sofort, ob alles passt. Für mich reicht es erstmal wenn die Funktionalität gegeben ist, alles weitere kommt noch :-D
Gruß...
Forum: Win32/Win64 API (native code)
Delphi
by Takeo,
15. Jul 2014
Hallo liebe Community,
ich arbeite mit Delphi XE2 und habe folgendes Problem:
Ich möchte eine Combobox mit allen angeschlossenen USB-Sticks oder SD-Karten füllen. Dafür frage ich mit GetDriveType alle Laufwerkbuchstaben durch und fülle eine Liste mit allen, die auf "2" zutreffen (also Removeable_Drive).
Nun möchte ich dazu noch die Namen der Datenträger abfragen. Durch die Suche bin ich...