Scribd
Upload
58 views1 page

Delphi Delete File Pascal

Uploaded by

lexman 771
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
58 views1 page

Delphi Delete File Pascal

Uploaded by

lexman 771
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 1

procedure TMain.

btnDeleteClick(Sender: TObject);
var
CurrentDirectory : String;
begin
CurrentDirectory := GetCurrentDir;

DeleteFile(CurrentDirectory + '\input.txt');
RmDir(PChar(CurrentDirectory + '\docs'));

DeleteFile('c:\input.txt');
RmDir(PChar('c:\docs'));
end;

You might also like