VolumeMountPoints

[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