Wie erhalte ich den Namen eines Laufwerkes?

[Daniel B]

Hi,

hier ist die Funktion:

Delphi-Quellcode:

function LWName(DriveChar: Char): string;
var
  OldErrorMode      : Integer;
  NotUsed, VolFlags : DWORD;
  Buf               : array [0..MAX_PATH] of Char;
begin
  OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
  try
    GetVolumeInformation(PChar(DriveChar + ':\'), Buf,
                         sizeof(Buf), nil, NotUsed, VolFlags,
                         nil, 0);
    Result := Format('Das Laufwerk ' + DriveChar + ' heisst, ' + '%s', [Buf]);
  finally
    SetErrorMode(OldErrorMode);
  end;
end;

Aufgerufen wird sie hiermit:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(LWName('C')); //Hier nur den LW-Buchstaben eingeben;
                            //egal ob gross oder klein geschrieben
end;

[edit=fkerber]Code-Tags durch Delphi-Tags ersetzt. Mfg, fkerber[/edit]