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
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."