VolumeMountPoints

[Neutral General]

Hi,

Ich verzweifel noch. Kann mir jemand eindeutig erklären wie ich SetVolumeMountPoint aufrufe?
Bei MSDN steht zwar ein Beispiel aber sonst stehts im Internet immer anders. Klappen tut beides nicht.

Delphi-Quellcode:

SetVolumeMountPoint('W:\','\C:\Test\') // oder
SetVolumeMountPoint('\C:\Test\','W:\')

GetLastError:

Zitat:

Falscher Parameter.

Delphi-Quellcode:

SetVolumeMountPoint('W:\','\C:\Test')  // oder
SetVolumeMountPoint('\C:\Test','W:\')

GetLastError:

Zitat:

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

Delphi-Quellcode:

GetVolumeNameForVolumeMountPoint(PChar('C:\\'),@Buffer[0],SizeOf(Buffer));
SetVolumeMountPoint('\C:\Test\',Buffer)

Delphi-Quellcode:

GetVolumeNameForVolumeMountPoint(PChar('C:\\'),@Buffer[0],SizeOf(Buffer));
SetVolumeMountPoint(Buffer,'\C:\Test\')

GetLastError:

Zitat:

Das Verzeichnis ist nicht leer.

Und wie das leer ist! -.-

In Buffer steht immer sowas (oder so ähnlich halt):

Delphi-Quellcode:

\\?\Volume{dafc6733-ff88-11d9-b411-806d6172696f}\

Was is da jetzt noch falsch dran ?-.-

Gruß
Neutral General

[ste_ett]

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. :)

[Neutral General]

Ok danke es geht :)

Gruß
Neutral General

[Neutral General]

Sry für den Push aber grad is was komisches aufgetaucht... Warum geht das nur mit Ordnern auf C: ?
Bei allen anderen Festplatten geht das nicht o.O :wall:

Gruß
Neutral General

[ste_ett]

Zeig mal deinen Code, bei mir geht es überall. :)

[Neutral General]

Delphi-Quellcode:

function MountDir(Dir: String): Boolean;
var Buffer: Array[0..MAX_PATH] of Char;
    DriveLetter: String;
begin
  Result := false;
  DriveLetter := ExtractFileDrive(Dir) + '\\';
  Dir := StringReplace(Dir,'\','\\',[rfReplaceAll]) + '\\';
  if (GetVolumeNameForVolumeMountPoint(PChar(DriveLetter), Buffer, SizeOf(Buffer))) then
    Result := SetVolumeMountPoint(PChar(Dir),Buffer);
end;

So. Aber kann man nicht auch irgendwie den Inhalt eines Ordners als Festplatte anzeigen lassen?

Mit DefineDosDevice hab ichs probiert:

Delphi-Quellcode:

if not DefineDosDevice(DDD_RAW_TARGET_PATH,'R:','C:\Test\') then
  ShowMessage(SysErrorMessage(GetLastError));

... R: Wird dann auch angezeigt im Explorer aaaber.. Man kann nicht drauf zugreifen...

Dann hab ich mal zuerst C:\Test\ gemountet und dann obigen Quelltext ausprobiert.. Bringt aber auch nix.. Hatte auch mal eine Version wo GetLastError gesagt hat das ein Analysepunkt fehlt.. Damit konnte ich aber nix anfangen :|

Gruß
Neutral General

[ste_ett]

"DefineDosDevice" dient zum Mounten von pysischen Laufwerken, z.B. "C:" auf "\Device\HarddisVolume0". :)

Das Mounten von Verzeichnissen als eigene Laufwerke hat bei mir auch nicht funktioniert.

[Neutral General]

Zitat:

Zitat von ste_ett

Das Mounten von Verzeichnissen als eigene Laufwerke hat bei mir auch nicht funktioniert.

Und wie kann man das machen?

[Neutral General]

Zitat:

Zitat von Neutral General

Zitat:

Zitat von ste_ett

Das Mounten von Verzeichnissen als eigene Laufwerke hat bei mir auch nicht funktioniert.

Und wie kann man das machen?

*PUSH* :)

Gruß
Neutral General

[himitsu]

QueryDosDevice ... nimm das doch endlich mal :!:
Damit kannst du sowas machen, wie auch mit dem "DOS-Befehl" SUBST :zwinker:

Als Beispiel könntest du dir ja mal subst4nt von Olli ansehn.




Und VolumeMountPoint ... fällt dir was an dem Namen auf? ... da geht es um Volumes, also ganze Laufwerke die über 'nen Laufwerksbuchstaben (X:\), oder als Verzeichnis (X_\dir...) gemountet werden sollen ... mit Verzeichnissen is da nüschts. :angel:

Verzeichnis als Laufwerk, oder Verzeichnis als anderes Verzeichnis geht damit demnach nicht.

PS: \\?\Volume{dafc6733-ff88-11d9-b411-806d6172696f} dieses ist die "interne" Bezeichning, mit welcher Windows dein Laufwerk, welches bei dir als C:\ gemountet ist verwaltet.
Jedes Volume (Partition) hat soeinen "Namen" und der bleibt "immer" gleich ... ist vorallem praktisch wenn das Volume mal nicht gemountet ist, so hat man dann dennoch 'ne Möglichkeit darauf zuzugreifen u.a.

[Neutral General]

Zitat:

Zitat von himitsu

QueryDosDevice ... nimm das doch endlich mal :!:
Damit kannst du sowas machen, wie auch mit dem "DOS-Befehl" SUBST :zwinker:

Vielleicht stell ich mich ja blöd an aber jetzt hab ich QueryDosDevice ausgeführt und zurück bekomme ich sowas wie

Zitat:

\Device\HarddiskVolume8

Und was mach ich jetzt damit ? :X

Gruß
Neutral General

[himitsu]

Upss ja, ich meinte eigentlich DefineDosDevice ... auf welches übrigens bei QueryDosDevice verlinkt wird. :zwinker:

C:\Programme\ als L:\ "mounten":

Delphi-Quellcode:

// verbinden
DefineDosDevice(DDD_RAW_TARGET_PATH, 'L:', '\??\C:\Programme');

// trennen
DefineDosDevice(DDD_REMOVE_DEFINITION, 'L:', nil);

kannt es ja mal bei Olli testen :angel:
hier 'ne nette BatchFile (test.bat):

Code:

subst4nt.exe L: C:\Programme
pause
subst4nt.exe L: -r
pause

[Neutral General]

Hi,

Delphi-Quellcode:

// verbinden
DefineDosDevice(DDD_RAW_TARGET_PATH, 'L:', '\??\C:\Programme');

// trennen
DefineDosDevice(DDD_REMOVE_DEFINITION, 'L:', nil);

... Das einzige was mir immer gefehlt hat war '\??\' vor dem eigentlichen Pfad... Ich hab mich auch tot-gegoogelt und NIRGENDWO stand das so :roll:

Aber danke :)

Gruß
Neutral General

[himitsu]

keine Sorge ... diese Variante kannte ich vor Olli's Tool auch noch nicht ... halt nur die UNC-Varianten ( \\.\ und \\?\ ) ^^

und im MSDN/PSDK is mir sowas demnach auch noch nicht untergekommen :shock:

[davtix]

Zitat:

Zitat von Neutral General (Beitrag 596726)

Hi,

Ich verzweifel noch. Kann mir jemand eindeutig erklären wie ich SetVolumeMountPoint aufrufe?
Bei MSDN steht zwar ein Beispiel aber sonst stehts im Internet immer anders. Klappen tut beides nicht.

Delphi-Quellcode:

SetVolumeMountPoint('W:\','\C:\Test\') // oder
SetVolumeMountPoint('\C:\Test\','W:\')

GetLastError:

Zitat:

Falscher Parameter.

Delphi-Quellcode:

SetVolumeMountPoint('W:\','\C:\Test')  // oder
SetVolumeMountPoint('\C:\Test','W:\')

GetLastError:

Zitat:

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

Delphi-Quellcode:

GetVolumeNameForVolumeMountPoint(PChar('C:\\'),@Buffer[0],SizeOf(Buffer));
SetVolumeMountPoint('\C:\Test\',Buffer)

Delphi-Quellcode:

GetVolumeNameForVolumeMountPoint(PChar('C:\\'),@Buffer[0],SizeOf(Buffer));
SetVolumeMountPoint(Buffer,'\C:\Test\')

GetLastError:

Zitat:

Das Verzeichnis ist nicht leer.

Und wie das leer ist! -.-

In Buffer steht immer sowas (oder so ähnlich halt):

Delphi-Quellcode:

\\?\Volume{dafc6733-ff88-11d9-b411-806d6172696f}\

Was is da jetzt noch falsch dran ?-.-

Gruß
Neutral General

hi Neutral General ,
hast du nu rausgefunden wie du die GUID herrausbekommst???

bei mir kommt immer ne fehlermeldung der ntdll.dll.

Delphi-Quellcode:

  Function GetVolumeNameForVolumeMountPoint(
             lpszVolumeMountPoint: PAnsiChar;
             lpszVolumeName: PAnsiChar;
             cchBufferLength: DWORD): Boolean;
             stdcall;
             external 'C:\Windows\SysWOW64\kernel32.dll' name 'GetVolumeNameForVolumeMountPointA';

Delphi-Quellcode:

procedure TForm1.Button21Click(Sender: TObject);
var
  vmp : PAnsiChar;
  vn : PAnsiChar;
  i : cardinal;

begin
  vmp := ('D:\\');
  //GetVolumeNameForVolumeMountPoint(vmp, vn, i);

  GetVolumeNameForVolumeMountPoint(vmp,vn, i);

//  GetVolumeNameForVolumeMountPoint(PChar('C:\\'),@Buffer[0],SizeOf(Buffer));

 ListBox2.Items.Add( string( vn));
end;

[Neutral General]

Hallo,

Habs grad ausprobiert und bei mir gehts so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Buffer: Array[0..100] of AnsiChar; // Je nachdem wie viel du willst/kannst/sollst
begin
  GetVolumeNameForVolumeMountPoint('D:\\',@Buffer[0], Length(Buffer));
  Caption := Buffer; // \\?\Volume{6f55826c-bfa1-11e1-86d0-20cf30e33243}\
end;

Der Fehler war, dass du für den Volume name Speicher bereitstellen musst. Bei mir sind es die 101 Bytes/AnsiChars des "Buffer"-Arrays. Im 3. Parameter musst du die länge des Buffers übergeben den du bereitstellst. Da hast du einfach das uninitialisierte "i" übergeben in der irgendeine beliebige Zahl drin stehen kann.
Daher hat Windows versucht in nicht angeforderten Speicher zu schreiben, was mit einer Exception geendet hat.

[davtix]

ein RIESIGEN DANK AN DICH... endlich , hab seit 5 tagen probiert und gelesen.
:thumb::thumb::thumb::thumb::thumb: