Von BlockRead/BlockWrite wegkommen - IFileOperation steht bereit, aber kein CallBack

[dGeek]

Meine stupide Lösung:

Delphi-Quellcode:

function getComputerName: string;
var
 Len: DWord;
begin
 Len := MAX_COMPUTERNAME_LENGTH + 1;
 SetLength(Result, Len);

 if Windows.getComputerName(PChar(Result), Len) then
  SetLength(Result, Len)
 else
  Result := '';
end;

function getUNCPath(aPath: string; aComputerName: string = ''): string;
var
 sTmp: string;
begin

 if aComputerName <> '' then
  sTmp := aComputerName
 else
  sTmp := getComputerName;

 Result := '\\' + sTmp + '\' + StringReplace(aPath, ':', '$');
end;

// Aufruf (bei einmaligem Aufruf)
showmessage( getUNCPath('D:\verzeichnis1\datei1.txt' );

// oder (bei mehreren Aufrufen in einer Schleife)
sComputerName := getComputer; // vor der Schleife

showmessage( getUNCPath('D:\verzeichnis1\datei1.txt', sComputerName ); // in der Schleife

// Vorher:
// D:\verzeichnis1\datei1.txt

// Nachher:
// \\DeinComputer\D$\verzeichnis1\datei1.txt