摘要：
用win32 API的CreateMutex来实现。HANDLE CreateMutex( LPSECURITY_ATTRIBUTES lpMutexAttributes, // 指向安全属性的指针 BOOL bInitialOwner, // 初始化互斥对象的所有者 LPCTSTR lpName // 指向互斥对象名的指针 );例如：var hMutex:... 阅读全文
摘要：
//例1:begin raise Exception.Create('抛出异常');end;//例2:begin raise Exception.CreateFmt('%s %d', ['错误代码:', 999]);end;//例3:var exc: Exception;begin exc := Exception.Create('发现异常'); raise exc;end;——————... 阅读全文
摘要：
**.Create(AOwner:TComponent); //AOwner:创建者Create(nil);//这种方式创建的对象需要自己释放内存 Create(Self);//由self对象负责释放创建的对象，当Self释放时自动触发释放Create(Application);//当Application释放时自动释放————————————————版权声明：本文为CSDN博主「踏雪寻梅i」的... 阅读全文
摘要：
转载地址：https://www.cnblogs.com/jijm123/p/11367393.htmlnil：空指针，空地址，对象也是指针，所以可以object := nil;null：null是一个未定义值的变量，既不是0也不代表空字符串，它是未定义的。判断对象为不为空：if assigned(object) then 和if object = nil then 都一样可以。nil是空指针，而... 阅读全文
摘要：
转载地址：https://www.cnblogs.com/findumars/p/7147523.html1.启动delphi7。2.File-->Open Project ...打开TMS component 源目录下的“tmsd7.bpg”。3.在打开的窗口列表中，依次在各选项上点击鼠标右键，选择“Install”。4.将源目录下所有的pas文件、dfm文件及“tmsdefs.inc”文件拷贝... 阅读全文