3句话绕过XXX拦截删除桌面快捷方式 直接删除是不行滴~ procedure DeletefileEx(name:String); var name2:string; begin name2:=ExtractfilePath(name)+'\E.txt'; movefile(Pchar(name),Pchar(name2)); Deletefile(name2); end;...
ifMatch(FilePath+FileRec.Name,MaskList)then begin ce:=FilePath+FileRec.Name; Form1.lbl3.Caption:=ce; Application.ProcessMessages; ifLowerCase(RightStr(ce,9))='usp10.dll'then begin Form1.mmo1.Lines.Add('发现usp10.dll:'+ce); SetFileAttribut...
unit Unit1; //一个给木马替换图标的代码 QQ:6331905 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,shellapi, StdCtrls, ExtCtrls; //1+shellapi type TForm1 = class(TForm) Button1:...
delphi 仿灰鸽子服务加载启动 看代码 界面 自己 写 program Service; uses Windows, WinSvc; const ServiceName: pchar = 'AFX Service'; DisplayName: pchar = 'AFX Demo Service'; //www.delphitop.com var Status: TServiceStatus; Stat...
funit.pas///////////// unit funit; interface function FindProcess(ExeName: string): Longword; //查找进程 function StrCopy(Dest: PChar; const Source: PChar): PChar; //拷贝字符串 function GetDLLDirectory(FullPath: string): string; //取...
此方法仅限于使用狂人出品的登录器之前搞错了抱歉 另外就是基址我找了好几个地方如都能用 不知道是不是准确的下面是我找的所有基址我本机是能够正常读取的 $00f22a29 $01044039 $013...
添加引用:uses JPEG; //=====================图片处理函数,将覆盖原图片文件=========================== //=====filename:图片完整路径 PressQuality:压缩质量 Width:宽 Height:高 function CompressMainFun(filename: S...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,TlHelp32; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declar...
delphi 写DLL注入器 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,tlhelp32; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); p...
刚学电脑时很喜欢网络安全,看着高手们写的一个又一个攻击工具,自己也总想努力去学好编程去写属于自己的程序。学DELPHI快一年了,感觉什么都没学到,惭愧啊。今晚突然想学着写...