内容列表
Delphi编程:完全控制桌面的实现
田志刚 (2000-10-19)   在Windows 9x中系统桌面和开始菜单可以说是它的一大特色,其实我们可以利用Delphi轻易地在应用程序中实现这种技术 :   新建一个应用程序, 将Form1窗体的BorderStyle属性设置为bsNone,FormStyle属性设置为 fsStayOnTop,WindowState属性设置为wsMaximized。   如有必要可在
分类:Delphi 查阅全文
用Delphi编写DelTree程序
  Delphi提供了关于文件操作的许多函数,其中关于目录操作的有目录的创建与删除、设置当前目录、获取当前目录等。目录的删除有函数(Function)RemoveDir和过程(Procedure)RmDir,但它们都只能删除空目录,对于非空目录则不能删除。要实现删除整个目录树(DelTree)必须编写程序来删除其中的子目录和文件。   目录中的文件可以通过调用函数DeleteFile来删除
分类:Delphi 查阅全文
用程序设置打印纸张类型
var   Device:Array[0..cchDeviceName-1] of Char;   Driver:Array[0..(MAX_PATH-1)] of Char;   Port:Array[0..32] of Char;   hDMode:THandle;   pDMode:PDevM
分类:Delphi 查阅全文
用 Delphi 编写 VxD 设备驱动程序(转)
用 Delphi 编写 VxD 设备驱动程序(转)关键词:Delphi控件杂项作者:Emil Biserov([email protected])(Russion) 英语翻译:Vitaly Zayko([email protected]) 中文翻译改编:Riceball([email protected]) 前言   用 Delphi 3.0 编写 VxD 设备驱
分类:Delphi 查阅全文
在DELPHI中用线程排序
     在数据处理量很大的情况下,如何在数据处理的同时响应用户操作?Windows95/98和WindowsNT作为多线程的多任务操作系统,其调度单元是线程,即线程是系统分配处理器时间资源的基本单元,所以我们可以利用线程实现在处理大批量数据的同时响应用户操作。     DELPHI作为一个优秀的开发平台,对开发多线程应用程序提供了强有力
分类:Delphi 查阅全文
怎样编写支持多国语言的程序, 让它能够根据所运行的操作系统自动显示相应的文字。
Q:怎样编写支持多国语言的程序, 让它能够根据所运行的操作系统自动显示相应的文字。 而且不但要替换Windows标准对话框, 还要自动替换窗口标题、 按钮标题等所有显示的文字和所有错误提示。 A:使用Delphi 5的Integrated Translation Environment (ITE)可以轻易得完成这个工作。 我们创建一个示意性的工程MultiLanguage, 在Form上放一
分类:Delphi 查阅全文
一个可以自己布局的推箱子游戏 (附源码)
大家看看我这个推箱子游戏 此处下载 相信有很多朋友都见过此类游戏。但是都只能玩而不能自己设计, 本程序的特点就是可以自己设计布局,就象坦克大战中的布阵一样。 注意:设计功能未放在菜单上,在玩时按 Ctrl+G 即可。 觉得好,要源码的话,去我的主页Delphi客栈(http://gxg.3322.net)下吧!
分类:Delphi 查阅全文
如何设置delphi/cbuilder/BDE/MSSQL
本文假定大家的informix使用是从零起步的,将介绍从零至最大化使用informix的各个详细步骤。    本文中关于vi编辑的内容均放在两行等号之间,你要编辑后存盘.一:下载informix-online数据库服务器LINUX试用系统地址:http://www.intraware.com,注册成为informix试用系统的用户,并告诉正确的email地址,然后intrawa
分类:Delphi 查阅全文
Linux上最新的Kylix截屏画面
  最新的Kylix截屏画面 Scotts Valley, CA,2000-6-22   - Inprise/Borland 公布了Kylix最新Building的KDE(the K Desktop Environment)下的四幅截屏画面。Kylix是Inprise/Borland 的内部项目代码,该项目将把Delphi与C++ Builder带向Lin
分类:Delphi 查阅全文
执行控制台程序并且获得它的输出结果
前几日遇到的问题在各位的帮助下已经圆满解决,现在吧这段代码写出来,可能会有一点用处。procedure CheckResult(b: Boolean);begin  if not b then    Raise Exception.Create(SysErrorMessage(GetLastError));end;function RunDOS(const Prog
分类:Delphi 查阅全文
Borland回来了!
2000-10-31 Borland回来了!     今天访问www.inprise.com和www.borland.com发现网站的风格已变化了,变得更加富有活力,更加亲切,更加明快了。最重要的是Borland单独出现在了显著的位置,而不再是以前的Inprise/Borland了。主要产品的门户统一在了Made in Borland这个响亮的口号之下。
分类:Delphi 查阅全文
半透明窗体的制作
半透明窗体并不是Win2000的新特效,凡是用过金山词霸的同志都会发现在屏幕取词设置中有一个半透明背景的选项,这说明在Win98下是可以实现半透明窗口的。但我还是要首先谈谈在Win2000实现半透明窗体的新函数SetLayeredWindowAttributes。利用这个函数就可以轻松创建一个半透明窗体,但是利用这个函数的程序编译后在Win98下是无法运行的。 SetLayeredWin
分类:Delphi 查阅全文
追捕oicq探测技术
追捕是怎样得到检测结果的呢?下面是具体实现的程序段: MyStream := TMemoryStream.Create; try NMUDP1.ReadStream(MyStream); SetLength(TmpStr,NumberBytes); MyStream.Read(TmpStr[1],NumberBytes); finally MyStream.Free; end; j := Pos(
分类:Delphi 查阅全文
《用Delphi设计代理服务器》原文及源程序
  自从电脑报刊登在下的文章《用Delphi设计代理服务器》以来,我收到了很多朋友的来信,要求提供源程序,现在在此将原文与源程序一并提供给各位朋友。参见http://www.csdn.net/develop/read_article.asp?id=10964 。在下的主页http://www.yuanzn.com
分类:Delphi 查阅全文
Delphi中用于读写(I/O)的三种文件类型
Delphi中用于读写(I/O)的三种文件类型 一.旧pascal文件类型    用旧文件变量表示的文件类型,比如 F:text,F:File. 定义了三类:有类型,无类型,字符类型以及一些Delphi的文件操作函数.比如:AssignPrn,Writeln,这些文件类和Windows文件句柄不兼容 二.Windows文件句柄(handle)  
分类:Delphi 查阅全文
OICQ中用户图标选择的实现
unit Unit1; interface uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  StdCtrls; type  TForm1 = class(TForm)    List1: TComboBox; 
分类:Delphi 查阅全文
移动没有CAPTION的窗体
procedure WMMOVE(VAR Message: TWMNCHITTEST); Message WM_NCHITTEST; procedure TForm1.WMMOVE(VAR Message: TWMNCHITTEST);begin  Message.Result := HTCAPTION;end;
分类:Delphi 查阅全文
得到当前的光驱的盘符。
procedure GetCDROM(var CD:char);varstr:string;Drivers:Integer;driver:char;i,temp:integer;beginDrivers:=GetLogicalDrives;temp:=(1 and Drivers);for i:=0 to 26 dobegin  if temp=1 then  &nb
分类:Delphi 查阅全文
AccesS密码的打击
  type  TForm1 = class(TForm)    Button1: TButton;    Chk2000: TCheckBox;    Edit1: TEdit;    Button2: TButton;   
分类:Delphi 查阅全文
有关字符的加密与解密
   本人在日常的MIS的开发中常用到的些口令处理中常用的个字符处理过程 现在帖在这里请大家多提意见! function CryptStr(const S:String; sType: DWord):String;var  i: Integer;  FKey: Integer;begin  result:='';  case sTyp
分类:Delphi 查阅全文
<< 1 2 3 4 5 6 7 8 9 10 11 12 13 >>