编程时也许需要产生一些临时文件，但这些文件最好是有唯一的文件名 才不会产生冲突，Windows API 提供了这一函数，具体用法如下，记得退出 之后，要把临时目录下一些的临时文件删掉。 unit frmCreateTempFile; interface uses Windows, Messages, SysUt……继续阅读 » 搞代码 7年前 (2018-08-09) 151浏览 0评论0个赞
Unit CPUid; Interface Type tcpuType = (cpu8086, cpu286, cpu386, cpu486, cpuPentium); Function CpuType : TCpuType; Function CpuTypeString : String; http://www.gaodaima.……继续阅读 » 搞代码 7年前 (2018-08-09) 139浏览 0评论0个赞
Delphi是一个优秀的可视化软件开发环境，并已广泛应用于数据库软件的开发。在DelphiC／S版环境中，结合其优化的数据库操作，以及BorlandDatabaseEngine（即：BDE，数据库引擎），对开发客户机／服务器系统下的网络数据库软件提供了更加快速有效的途径。在客户机／服务器系统中，服务器端我们采用Microsoft SQL Serve……继续阅读 » 搞代码 7年前 (2018-08-09) 218浏览 0评论0个赞
中南大学湘雅二医院信息中心 朱洪涛 随着Internet的不断普及，网络安全越来越受到人们的重视。除了计算机病毒以外，网上不断出现的的各类黑客软件、远程控制软件等，更让人们对自己的机器越来越不放心。而这类软件的多样性及不断更新等，使得单靠一些防病毒软件已不能完全保护自己的机器。 有没有什么好的方法防止来历不明的软件安装在自己的机器上呢？答案就是密切……继续阅读 » 搞代码 7年前 (2018-08-09) 145浏览 0评论0个赞
type TPtArray = array[0..0] of TPoint; PPtArray = ^TPtArray; procedure DrawDynamicPolyArray(NumPoints : integer; ……继续阅读 » 搞代码 7年前 (2018-08-09) 164浏览 0评论0个赞
Procedure EmptyRecycleBin ; Const SHERB_NOCONFIRMATION = $00000001 ; SHERB_NOPROGRESSUI = $00000002 ; SHERB_NOSOUND ……继续阅读 » 搞代码 7年前 (2018-08-09) 166浏览 0评论0个赞
—- 现在很多的应用程序都有这样一种功能，当用户选择最小化窗口时，窗口不是象平常那样最小化到任务栏上，而是“最小化”成一个任务栏图标。象FoxMail 3.0 NetVampire 3.0等都提供了这样的功能。实现这样的功能实际上并不复杂，在窗口最小化时，窗口会发出WM_SYSCOMMAND消息，你只要需要截取Windows的WM_SYSC……继续阅读 » 搞代码 7年前 (2018-08-09) 217浏览 0评论0个赞
//主窗体 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type http://www.gaodaima.com/?p=65918给自己……继续阅读 » 搞代码 7年前 (2018-08-09) 164浏览 0评论0个赞
文/张国军 对于RealPlayer网络播放软件大家一定不会陌生。其强大的网络视频、音频等媒体播放功能让人很是羡慕。如果自己也能做一个，心里肯定感觉不错。 RealPlayer软件本身有一个RealPlayer插件。由于它采用的是Active技术，这就为我们创建自己的RealPlayer播放器创造了条件。因为应用ActiveX技术做成的……继续阅读 » 搞代码 7年前 (2018-08-09) 176浏览 0评论0个赞
—- 一般系统的ABOUT窗口中都含有当前系统的信息(如:CPU类型,硬盘容量,内存容量等),一个标志系统的图标,一个OK按钮等内容。笔者在工作中用DEPHI 3.0实现了动画效果的ABOUT窗口。 一． 创建含有如下控件的窗体： 控件属性 值 FORM1&nb……继续阅读 » 搞代码 7年前 (2018-08-09) 167浏览 0评论0个赞
