写出一个不会造成资源分配崩溃的Delphi应用程序的 关键是确保如果程序中分配了资源，即使当故障发生，程 序也应能释放占用的资源。 文件、内存、WINDOWS资源和对象是一些必须时时加 以注意的需确保释放的资源。下面的事件控制代码例子中 先分配了内存，然后产生了一个...

2008-04-09 04:30:26

撰文/杜嵩 月光转载自程序员杂志第三期 忘掉extended extended很大（10字节，如果代码对齐就有12字节），读写运算都很慢，是优化的大敌。且Delphi2-4对extended的代码对齐有bug。因此，若非必要，不要用extended。 同时，在混合浮点类型的运算中，编译器为了不丢失精度...

2008-04-09 04:30:25

（1）创建一个工程文件 （2）选择File|New Form创建一个窗体，设置其Name := Form2 （3）设置Form2.BorderStyle := bsNone （4）在Form2上放置一个MedialPlayer构件 （5）在Form2上放置一个Panel构件，设置其Name := Panel1 （6）设置Panel1.Align := alClient （7）在...

2008-04-09 04:30:24

因为COM/DCOM对象都不在Client程序运行的内存空间(内进程COM对象除外，即便如此，为了统一接口，内进程的COM也不得传递指针),而且在Win32中所有的程序都有自己独立的2GB的内存空间,程序与程序之间传递指针(内存地址)是毫无意义的，而数组、字符串等大量的数据在程序中...

2008-04-09 04:30:24

在实际应用时 , 修改了系统的某些设置 , 必须重新启动 WINDOWS; 而有些时候演示完 一个软件后 , 必须关闭 WINDOWS; 同时在演示期间 , 又禁止用户强行关闭 WINDOWS. 如何 解决上述问题 , 笔者编制了一个程序全面地解决了上述问题 . 实现原理: 1. 重新启动 WINDOWS, 关闭...

2008-04-09 04:30:23

远程控制篇：模拟按键 模拟鼠标 鼠标移动(移动量dx,dy) mouse_event(MOUSEEVENTF_MOVE,dx,dy,0, 0 ); 鼠标在(x,y)处按下或释放 setcursorpos(x,y); mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 ); mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0 ); mouse_event(MO...

2008-04-09 04:30:23

远程控制篇：获得网络邻居所有机器名 procedure TForm1.Button1Click(Sender: TObject); VAR command:string ; comline: pchar ; begin command:=''''COMMAND.COM /C net viewc:~~~.txt''''; comline:=pchar(command); WinExec(comline, sw_hide); timer1.Enabled:=tr...

2008-04-09 04:30:22

远程控制篇：服务端程序的隐藏 1 按ctrl alt del时不出现在关闭程序框 function RegisterServiceProcess (dwProcessID, dwType: DWord) : DWord; stdcall; external ''''KERNEL32.DLL''''; 不出现 RegisterServiceProcess(GetCurrentProcessID, RSPSIMPLESERVICE)； 出...

2008-04-09 04:30:20

如何在注册表中注册BDE 只拷贝BDE文件是不行的，还要写注册表： 必需的注册表项目包括： 1. BDE动态连接库文件位置设置 Key : "HKEY_LOCAL_MACHINESoftwareBorlandDatabase Engine" Item : "DLLPATH" Value : BDE动态连接库文件所在位置，如"C:Program FilesBorla...

2008-04-09 04:30:19

因为COM/DCOM对象都不在Client程序运行的内存空间(内进程COM对象除外，即便如此，为了统一接口，内进程的COM也不得传递指针),而且在Win32中所有的程序都有自己独立的2GB的内存空间,程序与程序之间传递指针(内存地址)是毫无意义的，而数组、字符串等大量的数据在程序中...

2008-04-09 04:30:18