DeleteVolumeMountPoint funktioniert nicht

**himitsu**

Die Definition stimmt:

Delphi-Quellcode:

			Function SetVolumeMountPointW(VolumeMountPoint, VolumeName: PWideChar): LongBool;

  External 'kernel32.dll' Name 'SetVolumeMountPointW';

Function DeleteVolumeMountPointW(VolumeMountPoint: PWideChar): LongBool;

  External 'kernel32.dll' Name 'DeleteVolumeMountPointW';

Aufrufen tu ich es so:

markieren

Delphi-Quellcode:

			If DeleteVolumeMountPointW(PWideChar(GetText(D.ComboBox4))) Then

  Button1.Click Else ShowLastError;

Was in meinem Testfall dem entspricht:
DeleteVolumeMountPoint('Y:\'#0); Aber es kommt immer nur:

Zitat:

---------------------------
Fehler
---------------------------
Die Syntax für den Dateinamen, Verzeichnisnamen oder die Datenträgerbezeichnung ist falsch.

---------------------------
OK
---------------------------

Hab schon alles Mögliche versucht,

Zitat:

'Y:\'
'Y:'
'\\.\Y:\'
'\\.\Y:'

obwohl die Erste Angabe schon stimmen sollte.

Zitat:

[in] Pointer to a string that indicates the volume mount point to be unmounted. This may be a root directory (X:\, in which case the DOS drive letter assignment is removed) or a directory on a volume (X:\mnt\). A trailing backslash is required.

Im PSDK zwar sowas

Zitat:

To compile an application that uses this function, define the _WIN32_WINNT macro as 0x0500 or later. For more information, see Using the SDK Headers.

aber wie soll ich das in Delphi machen, wenn überhaupt nötig?

System: WinXP SP2

Die beiden Funktionen, wie sie sich hinter den Buttons "Add" und "Delete" bei den "Locical Drives" in

http://www.delphipraxis.net/internal...=587272#587272 (siehe Anhang) verstecken:

zusammenfalten · markieren

Delphi-Quellcode:

			Procedure TForm1.Button4Click(Sender: TObject);

  Var Di: Integer;

    D: TVolumeMountPoint_AddDialog;

  Begin

    Di := TreeView2.Selected.Index;

    D := TVolumeMountPoint_AddDialog.Create(Self);

    Try

      SetText(D.Label2, LogicalDrives[Di].VolumeName);

      If D.ShowModal = mrOK Then

        If SetVolumeMountPointW(PWideChar(GetText(D.Edit4)),

          PWideChar(LogicalDrives[Di].VolumeName + '\')) Then

          Button1.Click Else ShowLastError;

    Finally

      D.Free;

    End;

  End;

Procedure TForm1.Button5Click(Sender: TObject);

  Var Di, i: Integer;

    D: TVolumeMountPoint_DeleteDialog;

    S: WideString;

  Begin

    Di := TreeView2.Selected.Index;

    If LogicalDrives[Di].VolumePathNames = '' Then Exit;

    D := TVolumeMountPoint_DeleteDialog.Create(Self);

    Try

      SetText(D.Label2, LogicalDrives[Di].VolumeName);

      S := LogicalDrives[Di].VolumePathNames;

      While S <> '' do Begin

        i := Pos(#9, S);

        If i = 0 Then i := Length(S) + 1;

        D.ComboBox4.Items.Add(Copy(S, 1, i - 1));

        Delete(S, 1, i);

      End;

      D.ComboBox4.ItemIndex := 0;

      If D.ShowModal = mrOK Then

        If DeleteVolumeMountPointW(PWideChar(GetText(D.ComboBox4))) Then

          Button1.Click Else ShowLastError;

    Finally

      D.Free;

    End;

  End;

Hab's natürlich auch schon in einogen Tests mit direkten Aufrufen, mit Sringconstanten, Stringvariablen und auch mit den AnsiVersionen versucht

DeleteVolumeMountPoint funktioniert nicht

DeleteVolumeMountPoint funktioniert nicht

Forumregeln