Puffer Dateien erstellen (DLL oder Funktion)

[DelphiSecurity]

Hallo ich habe etwas gefunden:

Delphi-Quellcode:

var  hf: THandle;
begin
hf := CreateFile('test.fil', GENERIC_WRITE, 0, nil, CREATE_ALWAYS, 0, 0);// In den Stammpfad würde ich sagen...
SetFilePointer(hf, 1000000000, nil, FILE_BEGIN); // 1Gb
SetEndOfFile(hf);
CloseHandle(hf);
end;

Geht das auch mit einer ProccessBar?

DANKE

DS