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

轉載自：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卻沒這東西 (暈)

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

很有意思的Indy連結，下次有時間再來玩玩看

我記得 Delphi 2009 內附的 Indy 好像是 10.2.3 版，這對想寫網路程式的工程師很有幫助

Delphi2009的Indy全接触之TCP篇
Delphi2009的Indy全接触之UDP篇

有時間再來試試吧！

[轉貼]在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数据指针的位置。

[轉貼]WPF中使用amCharts绘制股票K线图

http://www.cnblogs.com/technology/archive/2011/04/19/2020910.html

實在是很優的一個介紹啊！