ダミーファイルを作成するには

解決

きむらぱん 2011-01-20 00:58:49 No: 39865

初めまして。
WindowsXPのコマンドにfsutilというのがあり、指定したサイズのファイルが一瞬で作れますが、あれをTurbo Delphiで実現することは出来ないでしょうか。
コマンド窓を表示させない、というのではなくて、Delphiのプログラミングで、ということです。

KHE00221 2011-01-20 05:24:31 No: 39866

procedure CreateNewFile(FileName: String; FileSize: Integer);
var
    FileHandle: Integer;
    C: Char;
begin
    FileHandle := FileCreate (FileName);
    FileSeek(FileHandle,FileSize-1,0);
    C := Char(0);
    FileWrite (FileHandle,C,1);
    FileClose (FileHandle);
end;

きむらぱん 2011-01-25 23:04:26 No: 39867

KHE00221殿

あっさり解決してしまいました。ありがとうございます。