Delphi Drawers

ファイルを削除

ファイルを削除します。

function fnDeleteFile(strFilePath:string):integer;
begin
  if DeleteFile(Pchar(strFilePath)) then begin
    fnDeleteFile := 1
  end else begin
    fnDeleteFile := -1;
  end;
end;
Copyright © 2006 Hikijishi All Rights Reserved.
[] [delphi][0.00102114677429199]