Alternative für String Assign

[bra]

Funktioniert das nicht (erste Antwort):

http://stackoverflow.com/questions/4...physical-media

Delphi-Quellcode:

function GetFileSizeEx(hFile: THandle; var lpFileSize: Int64): BOOL;
    stdcall; external 'kernel32.dll';
function SetFilePointerEx(hFile: THandle; liDistanceToMove: Int64;
    lpNewFilePointer: PInt64; dwMoveMethod: DWORD): BOOL;
    stdcall; external 'kernel32.dll';