ファイルを削除します。
function fnDeleteFile(strFilePath:string):integer; begin if DeleteFile(Pchar(strFilePath)) then begin fnDeleteFile := 1 end else begin fnDeleteFile := -1; end; end;
function fnDeleteFile(strFilePath:string):integer;
begin
if DeleteFile(Pchar(strFilePath)) then begin
fnDeleteFile := 1
end else begin
fnDeleteFile := -1;
end;