Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Buffer: array[0..50] of Char;
begin
if (GetVolumeNameForVolumeMountPoint(PChar('C:\\'), Buffer, SizeOf(Buffer))) then
begin
if (CreateDir('C:\\Test\\')) then
begin
if (SetVolumeMountPoint('C:\\Test\\', Buffer)) then
begin
MessageBox(Application.Handle, 'OK', '', MB_OK);
end;
end;
end;
end;
Bei "SetVolumeMountPoint" ist bei dir die Reihenfolge der Parameter falsch.
Der Pfad zum Mount-Ordner darf kein "\" am Anfang haben.
Der Ordner, in den du mounten möchtest, muss existierten, ggf. vorher anlegen.
