跳到主要內容

發表文章

目前顯示的是 五月, 2011的文章

[轉載]開啟目錄對話盒的方式

轉載自:How to browse for a folder
因為我想要做到DevExpress中cxShellBrowserDialog的功能,如圖:


主程式:

[轉載]取得執行檔路徑的各種方式

轉自:取得執行檔路徑



procedure TForm1.Button2Click(Sender: TObject);var spath:string;begin spath := ExtractFilePath(Application.ExeName); ShowMessage(spath);{ --> D:\\***\**\ 最後有\ } GetDir(0,spath); ShowMessage(spath);{ --> D:\\***\** 最後沒有\ } showmessage(ParamStr(0));{ --> D:\\***\**\***.exe 取得執行檔完整路徑 }end;

[轉載]先有數量,再求質量

記者是我一輩子的專業:觀察外界、探求真相、記錄寫作……,用我的文字與所有的讀者溝通、交往。限於才氣,我的文章僅止於流暢通順,但是我寫作的速度,卻是我最自豪的事。記得在我寫作的巔峰時期,每小時的寫作速度超過三千字,這種能力,讓我的媒體生涯一生順遂。

TrayIcon,原來Delphi 7 沒這東西啊! (大悟)

好用的TrayIcon元件可以在BCB6的SAMPLE元件盤中找到
但是DELPHI7卻沒這東西 (暈)

不過網路上有個免費的玩樣兒哦!

[轉貼]在Dephi中使用TStream读写数据的技巧

來源網址:http://www.xuedelphi.cn/wenzhang/yytg/2008/12/200812222703.htm

一、 TStream的常用的方法和属性
---- 1. function Read(var Buffer; Count: Longint): Longint; virtual; abstract 
---- 2. function Write(const Buffer; Count: Longint): Longint; virtual; abstract; 
---- 3. function Seek(Offset: Longint; Origin: Word): Longint; virtual; abstract; 
---- 4. property Position: Longint; 
---- 5. property Size: Longint
---- Read,Write,Seek都是纯虚函数,提供了数据读写和定位的抽象的方法。Read方法将数据从Stream中读到Buffer缓冲区中,Write则实现相反的操作,返回值表示实际读写数据的大小。Seek提供了在Stream中移动数据指针的方法。参数Origin可以取soFromBeginning,soFromCurrent,soFromEnd 三个值,Offset是偏移量,返回值是当前Stream数据指针的位置。