Delphi Drawers

ファイルを削除

ファイルを削除します。

function fnDeleteFile(strFilePath:string):integer;
begin
  if DeleteFile(Pchar(strFilePath)) then begin
    fnDeleteFile := 1
  end else begin
    fnDeleteFile := -1;
  end;
end;

[] [delphi][0.00174808502197266]