procedure TF_HapusDirektori.Button1Click(Sender: TObject);
begin
if RemoveDir('c:\coba')=true then
showmessage('Managed to create a directory --> c:\coba') else
showmessage('Failed to create a directory --> c:\coba');
end;
begin
if RemoveDir('c:\coba')=true then
showmessage('Managed to create a directory --> c:\coba') else
showmessage('Failed to create a directory --> c:\coba');
end;

No comments:
Post a Comment