摘要：
library 系统钩子;uses System.SysUtils, windows, System.Classes;{$R *.res}var //定义全局变量hHook:integer;function HookProc(iCode: Integer; //处理系统钩子的函数wParam: WPARAM;lParam: LPARAM): LRESULT; stdcall; export; //书写调用规则,记得加 stdcallbegin Result := 0;//注意返回值必须为0，允许对窗口的操作 try if iCode = HCBT_DESTROYWND then begin// 阅读全文
摘要：
在uses 申明 Inifiles MyStream:TMemIniFile; MyStream:=TMemIniFile.Create('c:\proxy.ini'); memo1.Text:=MyStream.readstring('gae','appid',''); MyStream.Free; 读取'c:\proxy.ini' 文件appid 字符串MemIniFile 能有效 解决 TiniFILE读取数据限制的问题！ 阅读全文
摘要：
functionRC4(Expression,Password:string):string;varRB:array[0..255]ofInteger;X,Y,Z:longint;Key:arrayofbyte;ByteArray:arrayofWord;//原来delphi7下面是byte;Temp:byte;Counter:integer;beginIf(Length(Expression)=0)thenExit;If(Length(Password)=0)thenExit;If(Length(Password)>256)thenbeginPassword:=Copy(Passwor 阅读全文
摘要：
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click( 阅读全文
摘要：
function CheckTask(ExeFileName: string): Boolean;constPROCESS_TERMINATE=$0001;varContinueLoop: BOOL;FSnapshotHandle: THandle;FProcessEntry32: TProcessEntry32;beginresult := False;FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);FProcessEntry32.dwSize := Sizeof(FProcessEntry32);Conti 阅读全文