Código
F: TextFile;
Begin
AssignFile(F, 'C:AUTOEXEC.BAT');
Append(F);
Writeln(F, 'REM http://www.delphi.eti.br');
CloseFile(F);
End;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009