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