ダミーファイルを作成するには (ID:39866)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 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;