隐藏任务条托盘区中的时钟 // 隐藏时钟procedure TForm1.Button1Click(Sender: TObject);var hn : HWnd;begin hn := FindWindowEx(FindWindowEx(FindWindow(''''Shell_TrayWnd'''',nil),0, ''''TrayNotifyWnd'''',nil),0,''''TrayClockWClass'''',nil); if hn 0 then S...

2008-04-10 02:58:12

TreeView 是一个显示树型结构的控件,每一个节点都是一个新类, 使用具有代表性 每个节点都有四个值: TEXT:显示文字 Image Index:显示图形序号 Selected Index: State Index: (1)建立目录项(本例中使用的TREEVIEW名称为:TvwTips) 增加根目录下的节点:(节点) var CatNode...

2008-04-10 02:58:11

uses Printers; {$IFNDEF WIN32} const MAX_PATH = 144; {$ENDIF} procedure TForm1.Button1Click(Sender: TObject); var pDevice : pChar; pDriver : pChar; pPort : pChar; hDMode : THandle; begin if PrintDialog1.Execute then begin GetMem(pDevice, cchDeviceNa...

2008-04-10 02:58:11

How to make animateform . do this esay,you need only one API. unit AnimateForm_Unit; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) procedure FormShow(Sender: TObject); p...

2008-04-10 02:58:10

Windows API函数使用技巧 得到WINDOWS的SYSTEM路径: 方法: var MySysPath : PCHAR ; begin GetMem(MySysPath,255); GetSystemDirectory(MySysPath,255); end; 注:MySysPath为SYSTEM路径 得到程序的路径 ExtractFileDir(Application.Exename); 察看文件是否存在 FileExi...

2008-04-10 02:58:09

36 The Delphi Object Model (PART I) Sample Chapter of Product: Delphi all versions Category: OO-related Skill Level: Scoring: Last Update: 02/21/2001 Search Keys: delphi delphi3000 article Object Model OO interfaces Times Scored: 11 Visits: 9428 Upl...

2008-04-10 02:58:08

Web Application 開 發 利 器 - WebSnap! 第 玖 章 、 圖 形 及 超 連 結 9-1 簡 單 的 圖 形 顯 示 在 之 前 的 資 料 庫 程 式 中 我 們 並 未 討 論 到 如 何 處 理 Blob 欄 位 資 料 ， 這 是 因 為 我 認 為 這 件 事 很 簡 單 ， WebSnap 幫 你 做 掉 了 絕 大...

2008-04-10 02:58:01

Web Application 開 發 利 器 - WebSnap! 第 捌 章 、 LocateFileService 元 件 LocateFileService 的 用 途 相 當 簡 單 ， 當 Page Module 要 取 得 Template 時 ， 她 會 先 取 得 LocateFileService 的 介 面 再 送 出 檔 案 要 求 給 她 ， 這 個 檔 案 要 求 有...

2008-04-10 02:58:01

从另一个考虑来看代码的风格 相信大家对代码的风格都有自己的观点，都有自己的风格。但大家心目中最完美的一定是简洁，易读，高效率的。 但有时效率和简洁性、可读性是不可兼顾的。这就要看开发的目的是什么了。对时间要求不高的当然要注重简洁和可读性，而另一些要求...

2008-04-10 02:58:00

以下程序将教你如何制作一个窗体,窗体一旦运行将在屏幕上不断抖动. 定义两个变量: var BackLeft,BackTop,I:integer; //保存窗体的left BackLeft := Left; //保存窗体的top BackTop := Top; //其中number可由你设置一个灵活的数字,当然值由你定 for I:=1 to Number do b...

2008-04-10 02:58:00