Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Name eines Datenträgers auslesen (https://www.delphipraxis.net/116224-name-eines-datentraegers-auslesen.html)

Nils_13 25. Jun 2008 11:09


Name eines Datenträgers auslesen
 
Hi,

ich habe einen Laufwerksbuchstaben und möchte den dazugehörigen Namen auslesen. Welche Funktion der API wäre dafür geeignet, ich finde keine?

DeddyH 25. Jun 2008 11:13

Re: Name eines Datenträgers auslesen
 
Versuch es mal mit GetVolumeInformation.

Luckie 25. Jun 2008 11:17

Re: Name eines Datenträgers auslesen
 
@Nils: Du bist jetzt schon so lange Mitglieder im Forum, die Suche solltest du langsam aber kennen.

Nils_13 25. Jun 2008 11:20

Re: Name eines Datenträgers auslesen
 
Klar, aber wenn ich die Suchbegriffe nicht kenne, finde ich nichts. Danke Deddy für den Begriff. Das hier ist die fertige Funktion - leserlicher als der Müll der hier sonst so rumfliegt:
Delphi-Quellcode:
function GetVolumeLabel(Drive : Char) : String;
var VolLab           : Array [0..MAX_PATH] of Char;
    MaxLength,SysFlag : DWORD;
    OldErrorMode     : Integer;
begin
  OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
  try
    if GetVolumeInformation(PChar(Drive+':\'), VolLab, 255, nil, MaxLength, SysFlag, nil, 255) then
      Result := VolLab;
    else
      Result := '';
  finally
    SetErrorMode(OldErrorMode);
  end;
end;

Luckie 25. Jun 2008 11:29

Re: Name eines Datenträgers auslesen
 
Hier im Forum suchenlaufwerk name. Damit findet man zum Beispiel das: Laufwerksbuchstaben aus Laufwerksnamen ermitteln


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:09 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz