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:

Delphi-Quellcode:

If DeleteVolumeMountPointW(PWideChar(GetText(D.ComboBox4))) Then
  Button1.Click Else ShowLastError;

Was in meinem Testfall dem entspricht:

Delphi-Quellcode:

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:

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 :cry:

[Muetze1]

Da PWideChar nur ein Pointer auf ein WideChar ist, weiss ich nicht, ob bei diesem Typecast im Aufruf die interne Umwandlung in WideString ordentlich ausgelöst wird. Ich könnte mir vorstellen, das er hier nur den Pointer Typen ändert aber nicht den String selber.

[himitsu]

eigentlich schon, denn GetText ist als

Code:

Function GetText(Var O): [b]WideString[/b];

definiert und wie gesagt, ich hab es auch schon mit direkten Angaben also wo ich versucht hatte das 'Y:\' direkt zu übergeben, weder Wide, noch Ansi (natürlich an die Funktion DeleteVolumeMountPointA mit PAnsiChar) nicht funktioniert, immer sagt der mir was von falscher Syntax? :gruebel:

Zitat:

Zitat von Daniel G

Und wenn du es mal so versuchst:
nur so als Idee, keine Ahnung, ob's funktioniert...

nicht ganz ... eher so

Code:

var Drive: String
begin
  Drive := 'X:\';
  DeleteVolumeMountPoint[color=#ff0000]A[/color](Pointer(Drive));
end;[/delphi]
[delphi]var Drive: [color=#ff0000]WideString[/color]
begin
  Drive := 'X:\';
  DeleteVolumeMountPointW(Pointer(Drive));
end;

Wobei Poiunter keinen Unterschied zu PWideChar ausmachen sollte ^^

Und nein, es funktioniert nicht :cry:

[Daniel G]

Und wenn du es mal so versuchst:

Delphi-Quellcode:

var
Drive: String
begin
Drive := 'X:\';
DeleteVolumeMountPointW(Pointer(Drive));
end;

nur so als Idee, keine Ahnung, ob's funktioniert...

[DGL-luke]

also wenn dann Pointer(@Drive[1]), und dann wird trotzdem irgendwas explodieren, weil der terminating 0-char fehlt....

[Dax]

Erinnere ich mich falsch, oder pappt Delphi nicht doch ein #0-Zeichen ans Ende jedes strings? ;)

[DGL-luke]

also wenn es schon die Längeninformation ins erste Byte tut, warum dann noch ein #0 ans Ende? afaik kann Delphi wunderbar mit #0 in strings umgehen, was dagegen spricht, dass das als terminator fungiert.

[Khabarakh]

Zitat:

Zitat von DGL-luke

also wenn es schon die Längeninformation ins erste Byte tut, warum dann noch ein #0 ans Ende?

Um eben diese Kompatibilität zu erreichen ;) ?

@Dax: Aber nur bei LongStrings :zwinker: :duck: .

[SirThornberry]

Das einzige was mir auffällt ist das die Aufrufkonvention bei dir nicht stimmen dürfte. Oder ist das nur ein Kopierfehler? Anonsten dürften die C-Dll's wohl kaum mit der Register-Convention klar kommen.

Ansonsten gibt mir

Delphi-Quellcode:

DeleteVolumeMountPointA('F:\')

False zurück mit der Meldung "...Zugriff verweigert...".

[Robert Marquardt]

Sir Thornberry hat recht. Die Aufrufkonvention muss stdcall sein.
Das er "Zugriff verweigert" bekommt duerfte daran liegen das er nicht Admin ist oder das noch ein offener Filehandle bzw eine aktuelle Directory auf das Volume zeigt.

Delphi-Quellcode:

var
  AName: string;
  WName: WideString;
begin
  AName := 'F:\';
  WName := 'F:\';
  DeleteVolumeMountPointA(PChar(AName));
  DeleteVolumeMountPointW(PWideChar(WName));
end;

Beim obigen Code scheitert natuerlich der zweite Aufruf wenn der erste erfolgreich ist. Es soll nur als Illustration zum korrekten Aufruf dienen.