摘要：
function MacAddress: string;var Lib: Cardinal; Func: function(GUID: PGUID): Longint;stdcall;GUID1, GUID2: TGUID;begin Result := ''; Lib := LoadLibrary('rpcrt4.dll'); if Lib <> 0 then begin if Wi... 阅读全文
摘要：
一些delphi开发的小技巧2008-04-22 21:16这是我从网上收集到的一些delphi开发的小技巧，现在与大家一起分享◇[DELPHI]网络邻居复制文件uses shellapi;copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false);◇[DELPHI]产生鼠标拖动效果通过Mous... 阅读全文
摘要：
本例子为在Form1的Panel中显示Form2窗体，请注意例子中的reintroduce关键字//Form1 父窗体usesunit2;procedureTForm1.FormCreate(Sender:TObject);beginform2:=TForm2.Create(Panel,self);form2.BorderStyle:=bsNone;form2.WindowState:=wsMax... 阅读全文
摘要：
http://www.taoyue.com/tutorials/pascal/contents.html 阅读全文
摘要：
Delphi的经典书籍：1、《Delphi 技术手册》 Ray Liscbner著 632页 65元 中国电力出版社2、《Delphi 5 开发人员指南》 Steve Teixeira & Xavier Pacheco著 1263页 138元 机械工业出版社3、《Delphi COM 深入编程》 Eric Harmon著 473页 48元 机械工业出版社4、《Delphi DirectX图... 阅读全文
摘要：
写代码是一种艺术。使用Delphi，任何人都可以轻而易举地开发出某种软件、完成某些任务。而完美的代码则只有真正的高手才能写出。除了正确的缩进、大小写、命名规则之外，请时刻牢记爱因斯坦的名言--简单就是美。下面将谈及的五个代码问题，可能是初学者、甚至一些老鸟都会犯的错误。忠告一布尔型变量的赋值操作应该是直接的。例如，在一个if/then/else语句中，if子句将布尔型变量赋值为True，而else... 阅读全文
摘要：
WINDOWS下进程详解.system process 进程文件: [system process] or [system process] 进程名称: Windows内存处理系统进程 描述: Windows页面内存管理进程，拥有0级优先。 是否为系统进程: 是 alg.exe 进程文件: alg or alg.exe 进程名称: 应用层网关服务 描述: 这是一个应用层网关服务用于网络共享。 是否... 阅读全文
摘要：
{=======================================================================================================================关闭Windows函数ExitWindowsEx(UINT uFlag,DWORD:dwReserved)说明：控制WINDOWS的开关：如关闭WINDOWS，... 阅读全文
摘要：
一、安装SQL Server 遇到错误提示：以前的某个程序安装已在安装计算机上创建挂起的文件操作。运行安装程序之前必须重新启动计算机 安装SQL Server 2000个人版用作开发，可是每次安装都提示“以前的某个程序安装已在安装计算计上创建挂起的文件操作。运行安装程序之前必须重新启动计算机。”重新启动了计算机之后，问题却丝毫没有解决，依然提示这样的话。 解决方法：1）添... 阅读全文
摘要：
var FirstDay, LastDay: TDateTime;begin FirstDay := StrToDate(FormatDateTime('yyyy-MM-01', Now)); LastDay := IncMonth(FirstDay) - 1; ShowMessage(FormatDateTime('yyyy-MM-01', Now)); //本月第一天 ShowMessage(... 阅读全文
摘要：
Delphi中-ExtractStrings，分割的同时还可以去空字符串和去空白（可以自定义）。UnitClassesSyntaxExtractStrings(Separators: TSysCharSet; WhiteSpace: TSysCharSet; Content: PAnsiChar; Strings: TStrings): Integer;Description < by sp... 阅读全文
摘要：
一、Format的用法Format是一个很常用，却又似乎很烦的方法，本人试图对这个方法的帮助进行一些翻译，让它有一个完整的概貌，以供大家查询之用：首先看它的声明：function Format(const Format: string; const Args: array of const): string; overload;事实上Format方法有两个种形式，另外一种是三个参数的，主要区别在于... 阅读全文