2010年04月_金卯刀

12月 11月 10月 09月 07月 06月 05月 04月 03月 02月 01月

原创用delphi 透過ATL實現DeskBand——準備

1、新建一個工程，project----import Type library，添加shDocVw.Dll，自動生成類型庫，這在d5以上版本已經有了，可略過； 2、下面說明幾個需要實現的接口 IDestBand : 這個是主要部分，這裡實現的方法可以定義我們自己的DeskBand，比如它的標題、大小還有類型等； IPersist, IPersistStream

2010-04-30 11:01:00 1744

转载 DESKBAND開發介紹

一．Band对象介绍 Windows的区（Bands）对象有三种：浏览栏（Explorer Bar）区对象，工具栏（Tools Bands）区对象，和桌面区对象（Desk Bands）。本文主要讲一下桌面区对象的实现。Desk Band出现在任务栏上，也可以是桌面浮动窗口。通过在任务栏上单击右键，然后在弹出的菜单中选择“工具栏”的子菜单项。如下图所示：实现1（对象介绍）"

2010-04-30 10:18:00 4048 2

原创 Get TaskBar handle

用一個未公開的APIfunction TaskmanWindow: HWND;type TGetTaskmanWindow = function(): HWND; stdcall;var hUser32: THandle; GetTaskmanWindow: TGetTaskmanWindow;begin Result := 0; hUser32 :=

2010-04-30 10:01:00 1055

转载存储过程(Stored Procedure)

SQLSERVER存儲過程的寫法格式規格******************************************************** author：Susan*** date:2005/08/05*** expliation:如何寫存儲過程的格式及例子，有游標的用法！*** 本版:SQL SERVER 版！*****************************

2010-04-29 11:41:00 1030

翻译窗口類(window CLass)介紹

前幾天逛msdn，看了一下關於window class的介紹，發現有些東西沒有注意到的，特此翻譯窗口類的類別：有三種——systemClasses、Application Global Classes、ApplicationLocal Classes這三種的不同在于作用域以及何時、如何注冊和銷毀方面。 SysTemClasses所謂的SystemClasses

2010-04-28 15:44:00 2340

原创 WM_PAINT和WM_ERASEBKGND區別

WM_Paint並不是每次都畫整個窗體，而是根據需要，重畫“無效區域”。例如，當我們在窗體上拖動一個button，若只發送了矩形的新位置給WM_PAINT，而沒有發送原先矩形所在的舊位置給WM_ERASEBKGND，那麼在button原先所在的矩形區域就會有殘留的畫面。 WM_ERASEBKGND並不是必須的，但如果窗體的表面發生變化（如原來被其他窗口蓋

2010-04-28 14:27:00 1528

WM_PAINT消息小结　　hanlray@gmail.com　　Revision: 1.0 Date: 2005/08/14　　WM_PAINT是Windows窗口系统中一条重要的消息，应用程序通过处理该消息实现在窗口上的绘制工作。　　1. 系统何时发送WM_PAINT消息？　　系统会在多个不同的时机发送WM_PAINT消息：当第一次创建一个窗口时，当改变窗口的大小时，当把窗口从另一个窗口背后移

2010-04-28 14:24:00 904

原创 delphi全屏顯示Form的兩種方法

{ Make your application Full Screen. Disable all of the system keys. } procedure TForm1.FormCreate(Sender: TObject); var HTaskbar: HWND; OldVal: LongInt; begin try //

2010-04-27 10:48:00 6653

原创檢查ODBC是否安裝——MY SQL

////////////////////////////////////////////////////////////////////////////////// //// CheckMyODBCDriver

2010-04-23 09:00:00 2396

转载 Format函數的用法

Delphi BasicsFormatFunctionRich formatting of numbers and text into a stringSysUtils unit1 function Format ( Const Formatting : string; Const Data : a

2010-04-22 17:05:00 1447

原创 Integrity levels (IL)　完整性标签

一、原理介绍Ｖｉｓｔａ　引进一个新的概念　Integrity levels (IL)　完整性标签 Integritylevels (IL)　完整性标签定义的级别如下：NameSIDRIDLow Mandatory LevelS-1-16-40960x1000

2010-04-21 11:03:00 4309

原创专业术语——Indexed color索引颜色

索引颜色(indexcolor)，以有限的方式来管理数字图像颜色的技术，可以减少内存占用和文件存储，同时可以加速刷新显示和远程传输。当一张图像以这种方式编码时，颜色信息就不是直接放在对应的位置上，而是放在一个独立区块——调色板(paleter)：以颜色为元素的数组，每个颜色都以所在的数组位置为索引。这样，每个像素就不需要存放特定的颜色，只需存放颜色在调色板中索引值即可。这种技术有时被称为i

2010-04-10 18:20:00 3381

转载专业术语——Alpha 通道

Alpha 是出现在 32 位位图文件中的一类数据，用于向图像中的像素指定透明度。24 位真彩文件包含三种颜色信息通道：红、绿和蓝或 RGB。每个通道在各个像素上都拥有具体的强度或值。每个通道的强度决定图像中像素的颜色。通过添加第四种 alpha 通道，文件可以指定每个像素的透明度或不透明度。alpha 的值为 0 表示透明，alpha 的值为 255 则表示不透明，在此范围之间的值表

2010-04-10 18:08:00 1125

原创內存中創建進程

It should be possible. But its definitely very hard.1) Uncompress the file into position, just as LoadLibrary would, that is expand the data according to section boundary.2) Use VirtualProtect to se

2010-04-07 16:41:00 839 1

原创 CreateProcessEx(Mem: Pointer)

type TSections = array [0..0] of TImageSectionHeader;function GetAlignedSize(Size: dword; Alignment: dword): dword;begin if ((Size mod Alignment) = 0) then Result := Size; else Result := ((Si

2010-04-07 16:38:00 1829

原创 RichEdit 与 Bmp

{ Sometimes you need to draw RichEdit control upon TImage canvas. Maybe to manipulate it like create transparent RichEdit control or other manipulate trick. But you dont know how to convert Rich

2010-04-06 16:56:00 1265

转载 C++字符串完全指引之一 —— Win32 字符编码

首先声明这是转载，文章出自http://www.vckbase.com/document/viewdoc/?id=1082C++字符串完全指引之一 —— Win32 字符编码原著：Michael Dunn翻译：Chengjie Sun 引言　　毫无疑问，我们都看到过像 TCHAR, std::string, BSTR 等各种各样的字符串类型，还有那些以 _tcs 开头的

2010-04-02 16:20:00 660

原创去掉多余的bpl

今天給程序瘦身，將多余的bpl刪除掉。如何正確地驗證此bpl是多余的呢？ 1、在程序dpk中，require部分多余的引用去除； 2、search 這個引用相關的dcp及bpl； 3、編譯全部的程序，以檢測是否存在編譯錯誤。重要的一點是，要search出相關的全部dcp及bpl

2010-04-01 10:30:00 1067 2

运行时Object Inspector

在运行期显示控件设计属性，且提供编辑。适合开发版本：Delphi 5.x, Delphi 6.x, Delphi 7.x, Delphi 2005, Delphi 2006。

2014-06-26

TAPPBar任务栏

make you application look like the TaskBar in windows Converting a normal application in to an AppBar is a tre step rocket : 1 Add AppBar to the uses clausule in the TOP of the unit containing the form you want to convert to an TAppBar 2 Change the forms parent class from TForm to TAppBar 3 If y

2014-06-16

delphi 钩子类

2014-05-23

VC写的Pascal编译器

支持三种文件 *.rez——这是源码解析后的文件 *.asm *.pas 开发环境VC 6

2010-07-14

dephi編寫的一個類似msn中的提示窗

自己看代碼吧12345678901234567890

2010-03-15

可靠地判断系统版本的函数

来源于 Slovenian Delphi community

2010-03-10

TQRMultiExport - PDF and Image exporter

For Delphi7 By Akos Toth. This component allows you to save your QuickReport output in different graphics formats. Supported formats are: PDF, JPEG, GIF, BMP, EMF, WMF and TIFF Events implemented: OnBeginExport, OnFinishExport, OnPrepare (after calling the prepare method of the report) and OnPage (before exporting each page).