Laufwerksbuchstaben ändern

[ThoPos]

Hallo Zusammen,

ich habe heute schon mal etwas getestet und versucht die Funktion GetVolumeNameForVolumeMountPoint zu importieren.

Delphi-Quellcode:

Function  GetVolumeNameForVolumeMountPoint(
             lpszVolumeMountPoint: PAnsiChar;
             lpszVolumeName: PAnsiChar;
             cchBufferLength: DWORD): Boolean;
             stdcall;
             external 'kernel32.dll' name 'GetVolumeNameForVolumeMountPointW';

Soweit klar. Aber wie baue ich die Funktion ein?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  vmp     : PAnsiChar;
  vn      : PAnsiChar;
  i       : Integer;
begin
  vmp := PAnsiChar('D:\');
  GetVolumeNameForVolumeMountPoint(vmp, vn, i);
  showmessage(string(vn));
end;

Bei mir ist vn immer leer.
Kann mir einer helfen?

Gruß aus Köln
Thomas