bikin folder autorun.inf dengan delphi

kali ini saya pengen share cara bikin sebuah folder autorun.inf seperti punya smadav ..!!! ^,^ 

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, FileCtrl; type TForm1 = class(TForm) Button1: TButton; DriveComboBox1: TDriveComboBox; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var myfile1,myfile2 : textfile; text,lokasi : string ; begin lokasi:=DriveComboBox1.Drive+':\autorun.inf'; CreateDir(lokasi); AssignFile(myfile1, lokasi+'\desktop.ini'); Rewrite(myfile1); Writeln(myfile1, '[.ShellClassInfo]'); Writeln(myfile1, 'CLSID={2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}'); CloseFile(myfile1); AssignFile(myfile2, 'c:\folder_con.bat'); Rewrite(myfile2); Writeln(myfile2, 'mkdir '+lokasi+'\con\'); Writeln(myfile2, 'mkdir '+lokasi+'\con\aux\'); Writeln(myfile2, 'mkdir '+lokasi+'\con\aux\nul\'); Writeln(myfile2, 'del c:\folder_con.bat'); CloseFile(myfile2); FileSetAttr(lokasi,faSysFile+faHidden); WinExec('c:\folder_con.bat',SW_SHOWMINIMIZED); end; end. </div>


download source code