Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi VolumeMountPoints (https://www.delphipraxis.net/87754-volumemountpoints.html)

Neutral General 5. Mär 2007 18:57


VolumeMountPoints
 
Hi,

Ich verzweifel noch. Kann mir jemand eindeutig erklären wie ich MSDN-Library durchsuchenSetVolumeMountPoint 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 5. Mär 2007 20:22

Re: VolumeMountPoints
 
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 6. Mär 2007 09:59

Re: VolumeMountPoints
 
Ok danke es geht :)

Gruß
Neutral General

Neutral General 6. Mär 2007 10:39

Re: VolumeMountPoints
 
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 6. Mär 2007 17:27

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

Neutral General 6. Mär 2007 18:19

Re: VolumeMountPoints
 
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 6. Mär 2007 20:26

Re: VolumeMountPoints
 
"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 6. Mär 2007 20:28

Re: VolumeMountPoints
 
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 8. Mär 2007 12:56

Re: VolumeMountPoints
 
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 8. Mär 2007 13:52

Re: VolumeMountPoints
 
MSDN-Library durchsuchenQueryDosDevice ... 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.


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:46 Uhr.
Seite 1 von 2  1 2      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz