摘要:
Delphi code//譬如 %WINDIR% 是表示系统目录的系统变量, 可以这样获取:var s: string;begin s := GetEnvironmentVariable('WINDIR'); ShowMessage(s); {C:\WINDOWS}end;一些系统目录变量列表... 阅读全文
摘要:
以下是一篇很值得看的关于Delphi多线程编程的文章,内容很全面,建议收藏。一、入门㈠、functionCreateThread(lpThreadAttributes:Pointer;{安全设置}dwStackSize:DWORD;{堆栈大小}lpStartAddress:TFNThreadStartRoutine;{入口函数}lpParameter:Pointer;{函数参数}dwCreationFlags:DWORD;{启动选项}varlpThreadId:DWORD{输出线程ID}):THandle;stdcall;{返回线程句柄}在 Windows 上建立一个线程, 离不开 Creat 阅读全文
摘要:
最近Ken在比较系统地学习Delphi多线程编程方面的知识,在网络上查阅了很多资料。现在Ken将对这些资料进行整理和修改,以便收藏和分享。内容基本上是复制粘贴,拼拼凑凑,再加上一些修改而来。各个素材的来源已经很难搞清楚,因此不再一一说明。一些资料可能有点老,但仍然有参考价值。篇幅比较长,耐心点看完吧。多线程共存于应用程序中是现代操作系统中的基本特征和重要标志。为了提高程序的运行效率,在操作系统中提出了进程和线程的概念,在一个进程中可以包含多个线程,进程作为资源分配的基本单位,线程作为独立运行和独立调度的基本单位。关于多线程的更详细说明建议粗略地阅读下百度百科《多线程》。现在PC的硬件性能越来越 阅读全文
摘要:
1 unit CommonUnit; 2 3 interface 4 5 uses 6 Windows, SysUtils, DateUtils; 7 8 Const 9 CPUVendorIDs: array [0 .. 5] of string = ('GenuineIntel', 'UMC UMC UMC', 10 'AuthenticAMD', 'CyrixInstead', 'NexGenDriven', 'CentaurHauls'); 11 // 将CPU厂家信息转换成字串形式 12 阅读全文
摘要:
1 unit Main; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 Dialogs, Registry, StdCtrls, ComCtrls, IOUtils, Types; 8 9 type 10 TForm2 = class(TForm) 11 pgc1: TPageControl; 12 ts1: TTabSheet; 13 lst1: TListBox; 14 ... 阅读全文