typeTForm1=class(TForm)Button1:TButton;Chk2000:TCheckBox;Edit1:TEdit;Button2:TButton;Edit2:TEdit;OpenDialog1:TOpenDialog;Button3:TButton;Label1:TLabel;procedure...

[阅读全文]

Form的TEXT：objectForm1:TForm1Left=192Top=107BorderStyle=bsNoneCaption=Form1ClientHeight=348ClientWidth=536Color=clBtnFaceFont.Charset=DEFAULT_CHARSETFont.Color=c...

[阅读全文]

本人在日常的MIS的开发中常用到的些口令处理中常用的个字符处理过程现在帖在这里请大家多提意见！functionCryptStr(constS:String;sType:DWord):String;vari:Integer;FKey:Integer;beginresult:=;casesTypeof0:SetPass;b...

[阅读全文]

在Delphi中操作快捷方式快捷方式减少了系统的重复文件，是快速启动程序或打开文件或文件夹的方法，快捷方式对经常使用的程序、文件和文件夹非常有用。在Windows系统中，充斥着大量的快捷方式，那么如何操作这些快捷方式就是一个很头疼的问题，在Windows的编程中，无疑会经常碰到操作快捷方式文件的问题，例如为程序创建快捷...

[阅读全文]

（作者：孙航东　2000年12月07日10:01）　　众所周知，ASP技术是我们在以internet/intranet为平台的web程序的主要技术，在asp应用程序中我们一般使用vbscripts和javascripts两种脚本语言。但是脚本语言是一种非编译的语言，其所开发的web程序存在先天的安全性、执行效率扩张性方...

[阅读全文]

有人说现在的程序员成了组装工人，其实很有道理，利用控件模块+少量代码就可以实现,delphi5.0提供了丰富的internet控件，利用TCP/IP客户端-服务端就可以解决问题。关键的控件是ServerSocket,我们模仿IPhunter的界面用一个button1（按钮）,一个combobox1（用于显示），这三个最...

[阅读全文]

varDevice:Array[0..cchDeviceName-1]ofChar;Driver:Array[0..(MAX_PATH-1)]ofChar;Port:Array[0..32]ofChar;hDMode:THandle;pDMode:PDevMode;beginPrinter.GetPrinter(Dev...

[阅读全文]

　　Delphi提供了关于文件操作的许多函数，其中关于目录操作的有目录的创建与删除、设置当前目录、获取当前目录等。目录的删除有函数（Function）RemoveDir和过程（Procedure）RmDir，但它们都只能删除空目录，对于非空目录则不能删除。要实现删除整个目录树（DelTree）必须编写程序来删除其中的子...

[阅读全文]

田志刚　(2000-10-19)　　在Windows9x中系统桌面和开始菜单可以说是它的一大特色，其实我们可以利用Delphi轻易地在应用程序中实现这种技术：　　新建一个应用程序，将Form1窗体的BorderStyle属性设置为bsNone，FormStyle属性设置为fsStayOnTop，WindowState属...

[阅读全文]

　分为服务端和客户端两个部分，虽然不是一个完整的delphi工程，但是我们关心的其中有用的代码，对吧？下面是服务端unitServerDlg;interfaceusesWindows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls,S...

[阅读全文]

我把socket编程教程的第一个例子改写了一下服务器接受客户信息,再反送回去实际上是直接调用winapi在delphi4下用命令行编译dcc32-ccserver1.pas用windows自带的telnet测试server1.pas:programserver1;useswindows,winsock;constmyp...

[阅读全文]

Q：手册中关于怎样使用TQuery的误导A：用Delphi开发数据库时经常会用到TQuery，手册中有很多关于它的例子，大致结构如下：Query1.Close;Query1.ParamByName(ID).AsString:=001;Query1.Open;String:=Query1.FieldByName(ID)....

[阅读全文]

成员说明Pwfx一个TWaveFormatEX结构指针用来接收结果（这里我们实际上用的是TACMFormat）。Cbwfx接收结果的缓冲区大小。CbStruct结构大小。另一个值得一提的成员是fdwStyle,它包括用来指定格式额外信息的标志。特别是下面这个标志：ACMFORMATCHOOSE_STYLEF_INITT...

[阅读全文]

－使用AudioCompressionManager（ACM）作者／PeterMorris　翻译／陈省　　在几年以前IP电话被炒的沸沸扬扬，但用过的人都觉得这个技术非常不成熟，语音质量很差，时断时续，还经常有延迟，结果这项技术的应用没有普及开来。但随着Internet应用的越来越广泛以及相关技术发展的日新月异，声音质量...

[阅读全文]

(本来已一次贴上来了，后半部分却不显示，可能是太长了)(10)产品质量/稳定性有文章称“VC++的质量好，稳定性高”。真的是这样吗？VisualStudio的ServicePack不是都出到4了吗？什么是ServicePack？主要不就是BugFix+Patch吗？！Borland的工具也并不完...

[阅读全文]

Q：怎样让程序延时A：procedureDelay(msecs:integer);varFirstTickCount:longint;beginFirstTickCount:=GetTickCount;repeatApplication.ProcessMessages;until((GetTickCount-First...

[阅读全文]

RealProgrammersUsePascalRealProgrammersUsePascalbyRayLischner,authorofDelphiinaNutshellIncaseyouhaventheardthenewsyet,BorlandisportingtheirlandmarkDelphiproduct...

[阅读全文]

前几日遇到的问题在各位的帮助下已经圆满解决，现在吧这段代码写出来，可能会有一点用处。procedureCheckResult(b:Boolean);beginifnotbthenRaiseException.Create(SysErrorMessage(GetLastError));end;functionRunDOS...

[阅读全文]

用Delphi编写VxD设备驱动程序(转)关键词：Delphi控件杂项作者：EmilBiserov(dinfo@mail.primorye.ru)(Russion)英语翻译：VitalyZayko(zayko@vitsoftware.com)中文翻译改编：Riceball(teditor@mailroom.com)前言...

[阅读全文]

最新的Kylix截屏画面ScottsValley,CA,2000-6-22-Inprise/Borland公布了Kylix最新Building的KDE(theKDesktopEnvironment)下的四幅截屏画面。Kylix是Inprise/Borland的内部项目代码，该项目将把Delphi与C++Builder带...

[阅读全文]

半透明窗体并不是Win2000的新特效，凡是用过金山词霸的同志都会发现在屏幕取词设置中有一个半透明背景的选项，这说明在Win98下是可以实现半透明窗口的。但我还是要首先谈谈在Win2000实现半透明窗体的新函数SetLayeredWindowAttributes。利用这个函数就可以轻松创建一个半透明窗体，但是利用这个函...

[阅读全文]

本文假定大家的informix使用是从零起步的，将介绍从零至最大化使用informix的各个详细步骤。本文中关于vi编辑的内容均放在两行等号之间,你要编辑后存盘.一：下载informix-online数据库服务器LINUX试用系统地址：http://www.intraware.com，注册成为informix试用系统的...

[阅读全文]

2000-10-31Borland回来了！今天访问www.inprise.com和www.borland.com发现网站的风格已变化了，变得更加富有活力，更加亲切，更加明快了。最重要的是Borland单独出现在了显著的位置，而不再是以前的Inprise/Borland了。主要产品的门户统一在了MadeinBorland...

[阅读全文]

Q：怎样编写支持多国语言的程序，让它能够根据所运行的操作系统自动显示相应的文字。而且不但要替换Windows标准对话框，还要自动替换窗口标题、按钮标题等所有显示的文字和所有错误提示。A：使用Delphi5的IntegratedTranslationEnvironment(ITE)可以轻易得完成这个工作。我们创建一个示意...

[阅读全文]

因为COM/DCOM对象都不在Client程序运行的内存空间(内进程COM对象除外，即便如此，为了统一接口，内进程的COM也不得传递指针),而且在Win32中所有的程序都有自己独立的2GB的内存空间,程序与程序之间传递指针(内存地址)是毫无意义的，而数组、字符串等大量的数据在程序中都是分配一定的内存空间，然后用指针加内...

[阅读全文]

大家看看我这个推箱子游戏此处下载相信有很多朋友都见过此类游戏。但是都只能玩而不能自己设计，本程序的特点就是可以自己设计布局，就象坦克大战中的布阵一样。注意：设计功能未放在菜单上，在玩时按Ctrl+G即可。觉得好,要源码的话，去我的主页Delphi客栈(http://gxg.3322.net)下吧！

[阅读全文]

2000-09-08致我们InterBase®用户的公开信:我们非常高兴发表这个关于InterBase®开放源码项目和我们的InterBase商业版之方向的声明。我们承诺：支持InterBase产品线，支持我们尊敬的客户，支持我们许多的尊敬的合作伙伴及第三方组织，并向遍布全球的InterBase用户提供...

[阅读全文]

冲浪的年代，用过网络蚂蚁的人肯定不少，其中一项监视剪贴板变化的功能让人感觉到不少体贴。本文将介绍在Delphi中如何使用“体贴板”，来丰富自己的软件功能。Windows使用剪贴板观察器和观察链。剪贴板观察器是一个显示剪贴板当前内容的窗口。通常它应该至少能显示三种普通格式的内容：文字CF_TEXT、位图CF_BITMAP...

[阅读全文]

Borland与Microsoft关于Delphi的对话Bear1、Delphi较贵一套Delphi的价格大约相当于两套VisualStudio---Inprise/Borland:我们卖这个价，是因为它值这个价。Microsoft:六个东东，才这个价，多便宜，大家快来买吧。(Gates开看了看Borland再掂了掂手...

[阅读全文]

//来自<Delphi5DevelopersGuide>1.2Delphi是什么我们经常会问这样的问题：“到底什么使得Delphi如此优秀？”和“为什么和别的编程工具相比，我更愿意选择Delphi？”等等。这些年来，我们对这类问题已经得出了两种答案，一长一短。短的就是：高效性。要创建Windows应用程序，使用Delp...

[阅读全文]

在数据处理量很大的情况下，如何在数据处理的同时响应用户操作？Windows95/98和WindowsNT作为多线程的多任务操作系统，其调度单元是线程，即线程是系统分配处理器时间资源的基本单元，所以我们可以利用线程实现在处理大批量数据的同时响应用户操作。　　DELPHI作为一个优秀的开发平台，对开发多线程应用程序提供了强...

[阅读全文]

Borland公司（现改名为INPRISE公司）的DELPHI是当前最为方便的Windows程序设计工具之一。许多人以为DELPHI是作为数据库开发工具出现的，其实用DELPHI可以以极快的速度开发出高效的Windows程序。现在我们就用DELPHI来编写一个实用的屏幕拷贝程序。瞧瞧，下面的画面就是所编程序运行后进行区...

[阅读全文]

下面把鼠标的移动区域限制在(100,100,200,200)varrect:TRect;beginrect.Left:=100;rect.Top:=100;rect.Bottom:=200;rect.Right:=200;windows.ClipCursor(@rect);下面恢复鼠标的移动区域windows.Clip...

[阅读全文]

孙立Delphi擅长做数据库类的MIS开发，但对于OA就有点力不从心了。不过随着Microsoft的COM技术逐渐成熟，现在普通Windows应用已经可以和Office97无缝结合了，尤其是在Delphi5中提供了一组Servers组件，更是简化了程序开发。最近接触了一个用户的案例，用Delphi控制Word做一个合同...

[阅读全文]

Q：按照RDB理论，NULL与空格并不相同，有些情况下必须使用NULL。但程序语言中并不存在NULL这种数据类型，那么怎样处理数据库中的NULL呢？A：读取NULL时：Field.IsNull可以判断指定的静态字段是否为NULL。赋值NULL时：如果使用Table.Insert，则未赋值的字段都被赋值为NULL。如果使...

[阅读全文]

　　经常上网的朋友可能早就已经发现，在一些浏览器的底部会在某些情况下动态显示一个进程条，比如在显示网页的时候，如果时间比较长，就会出现一个一格一格前进的，用以提醒用户已经有多少数据被下传下来。它不仅仅出现在浏览器中，还经常被用于下载软件中，比如现在最热门的BT下载软件，都使用了这一技术。技术的改进源于工作的需要，现在编...

[阅读全文]

打开电脑，进入Windows操作系统，在资源管理器的左边栏中清楚地显示了系统管理的所有磁盘的信息以及各个磁盘所容纳的文件与文件夹(如图一)。这种常见的显示方式是由一个根节点和若干个子节点构成的，这被称为“树形结构”。这种树形结构的用途非常广泛，在很多常用软件中都出现过它的身影。Windows中将这种结构封装为“树形控件...

[阅读全文]

服务器端:unitServerFrm;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ComCtrls,StdCtrls,ExtCtrls,WinSock;typeTfrmMain=class...

[阅读全文]

很多时候，我们都会要求自己去做些事情，但激情过去，很多为未完成的事情对到了一边。生活也愈加的无聊……我也常常这样，但内心实在不想这样下去，所以用下面的方式鼓励自己，希望这次不会轻易放弃……+delphi2005中文翻译，我会陆陆续续的发.这是第一篇,哈哈.第一部分delphi语言指南第7页程序组织delphi源文件编译...

[阅读全文]

前言大多数Delphi程序员都像使用VisualBasic那样使用他们手头上开发工具，而丝毫没有意识到Delphi的强大功能，更谈不上使用这些功能了。(写到这里，编辑惶恐的举起了手，怎么可能呢？)Delphi和VisualBasic不同，Delphi完全建立在面向对象结构上,这不仅影响到VCL的结构，而且影响到使用De...

[阅读全文]

一般情况下，不同的软盘或光盘具有不同的卷标号，因此，我们可以通过检测卷标号的变化，来确定软盘或光盘是否更换过。恰好，WindowsAPI中提供了GetVolumeInformation函数来获取软盘、硬盘和光盘的卷标号，为我们实现此项功能提供了方便。函数原型：BOOLGetVolumeInformation(LPCTS...

[阅读全文]

利用delphi自带的disksize函数，检测是否返回指定磁盘的字节数来实现。函数原型：functiondisksize(driver:byte):int64参数说明：driver：指明磁盘所对应的编号值。如在delphi中规定A盘编号为1；C盘编号为3。应用举例：接上例，在combobox组件的onchange事件...

[阅读全文]

(*//标题:自己删除自己说明:警告执行此程序将删除所在目录的所有文件及目录设计:Zswang日期:2002-01-29支持:wjhu111@21cn.com//*)///BeginSourceusesWindows,Dialogs,SysUtils,Controls;procedureDeleteMe(mDelete...

[阅读全文]

右键的“新建”菜单中新建一个选项参考：看到鼠标的右键会连上一些程序，怎么样把目录的参数或者盘符传递给Delphi程序呢？鼠标的右键加入连接程序可以修改注册表完成，但是怎样传递目录或者盘符参数呢？例如点右键会自动打开选定的文件夹？我想达到的目的也是非常简单，就是在鼠标的右键上增加一个“显示”按纽，用鼠标右键点到一个文件夹...

[阅读全文]

//此函数通过一张位图来创建一个区域，支持bmp格式和jpg格式//位图中黑色的地方将不透明，非黑色的地方透明，//创建完毕后可以通过SetWindowRgn函数设置窗口或控件的形状，如：//setWindowRgn(handle,zjs_createImageRegion(''c:\goomoo.bmp''),tru...

[阅读全文]

//假定帮助文件在工程目录下：）要把1.hlp随同程序在同一目录下varpath:string;beginpath:=ExtractFilepath(Application.ExeName)+''1.hlp'';shellexecute(0,''open'',path,nil,nil,sw_show);//*.hlpe...

[阅读全文]

1、检测主程序大小，防止破解补丁之类：FunctionTForm1.GesSelfSf:integer;varF:fileofbyte;beginFilemode:=0;Assignfile(F,''.\FileName.exe'');Reset(f);Result:=Filesize(F);Closefile(F);...

[阅读全文]

在Delphi中，通常可以用以下三种方法来实现程序的延时，即TTtimer控件，Sleep函数，GetTickCount函数。但是其精度是各不相同的。一、三种方法的简单介绍1）TTtimer控件　　TTtimer控件的实质是调用WindowsAPI定时函数SetTimer和KillTimer来实现的，并简化了对WM_T...

[阅读全文]

如果你不需要屏蔽Ctrl+Alt+Del组合键,可以使用低级键盘钩子(WH_KEYBOARD_LL)与低级鼠标钩子(WH_MOUSE_LL),这两种消息钩子的好处是不需要放在动态链接库中就可以作全局钩子,将键盘消息与鼠标消息截获.unituHookKeyAndMouse;{该单元利用WH_KEYBOARD_LL与WH_...

[阅读全文]

将数据导出到Excel的方法有多种，速度有快慢之分，我用过三种方法，速度都比较快，下面的一种利用Excel内置的功能，是三种之中最快的。其中最主要的是下面两句：xlQuery:=xlSheet.QueryTables.Add(ADOQExport.Recordset,xlSheet.Range[''A3'']);xlQ...

[阅读全文]