WONG BODOH NGAKU PINTER
Minggu, 15 Juli 2012
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
Tidak ada komentar:
Posting Komentar
Posting Lebih Baru
Posting Lama
Beranda
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar