用Delphi的過程中難免會遇到很多奇怪的問題，而Delphi的文檔也出奇的少，因此只能自己慢慢的總結，所以有了下文（由於只是零散的細節，所以文筆上沒有花什麼功夫，可能會比較亂，但應該能夠理解;-)）。
如果：
1. 你有下面問題的更好解決方法，請告訴我，和csdn上的朋友
2. 你有其他的問題，請列出問題，以及你的解答，告訴我，和csdn上的朋友。
溝通創造一切！
正文：
Q: 在Delphi的DLL中製作的Form，如果在Exe中ShowModal時，會在任務欄上出現兩個Icon，爲什麼？如何解決這個問題？
A: 下面是一種典型的DLL中放Form的方法：
DLL：
function ShowFrm: TModalResult; stdcall;
begin
Form1 := TForm1.Create(Nil);
try
Form1.ShowModal;
finally
Form1.Free;
end;
end;
主EXE：
function ShowFrm: TModalResult; stdcall; external 'TestDLL.dll';
…
begin
…
ShowFrm;
…
end.
以這種方式做出的DLL中的Form，會和主應用程序顯示另一個Icon，其原因在於：
Delphi中對於DLL會另外再創建一個Application，而每個Application都會顯示一個任務欄的Icon。
解決方法：
在主應用程序中將主EXE的Application傳入DLL，如下：
DLL：
function ShowFrm(app: TApplication): TModalResult; stdcall;
var
oldApp: TApplication;
begin
oldApp := Application;
Application := app;
Form1 := TForm1.Create(Nil);
try
Form1.ShowModal;
finally
Form1.Free;
end;
Application := oldApp;
end;
主EXE：
function ShowFrm(app: TApplication): TModalResult; stdcall; external 'TestDLL.dll';
…
begin
…
ShowFrm(Application);
…
end.
注：DLL中的Application和EXE中的Application還是有些區別的，看Forms.pas中的代碼：
constructor TApplication.Create(AOwner: TComponent);
begin
…
if not IsLibrary then CreateHandle;
…
end;
可以知道，DLL中的Application沒有Handle，因此不會進行消息循環處理，這也是很正確的。
Q: Delphi中的DLL，經常出現問題！
A: 至所以出現問題，是因爲Delphi本身的內存管理機制。比如：
在DLL中創建一個對象：
x := TClass.Create(Application);
這時，Delphi會在Application Free時自動Free x，但由於x是在DLL的地址空間中，當Application結束時，DLL的地址空間可能已經失效（不同的操作系統會有不一樣），因此這時對x的釋放操作就會引發異常。
又比如：
在EXE中創建了一個對象，並且傳入了DLL作爲DLL中的局部變量，這樣在DLL銷燬時，由於Delphi會將所有超出作用域的變量自動釋放，因此如果再在EXE中使用這個對象，就會引發異常。
總的說，問題是由於“聰明”的Delphi編譯器的內存管理機制，和Windows的DLL加/卸載機制，導致了DLL和EXE中的內存存取衝突。
解決方法：（只要遵循以下幾個原則就可以避免大多數的問題）
1．在DLL和EXE之間，儘量不要使用Delphi的自動內存管理機制，由程序員自己對對象的生命期負責，比如：
對於上面的x := TClass.Create(Application);把它改成：
x := TClass.Create(nil);
這樣，Application就不會再Free它了。當然，程序員必須自己來釋放它。
2．儘量避免在DLL和EXE之間存在不同的指針指向的同一個對象。比如，在DLL中有x指向TClass對象，在EXE中又有y指向TClass對象，這樣在任何一邊的內存釋放都會導致另一邊的內存無效。
3．其他…
Q: 一個做週期性任務的線程，在其中需要暫停片刻，然後繼續運行，但如果這時需要讓線程停止（比如進程已經結束了），那該怎麼辦？
A:
解決方法一：
在線程中通過Sleep進行週期循環。（如果在線程中通過Sleep暫停了，通過Resume等方法是無法使得線程重新復活的）
通過KillThread來結束線程。
這是最簡單的方法，但也太粗暴，可能會導致問題（KillThread是Windows不推薦使用的API）
解決方法二：
在線程中Suspend，在線程外面通過一個定時器，每隔一段時間就Resume。代碼如下：
// Thread
procedure Execute;
begin
while not Terminated do
begin
… // 處理代碼
Suspend;
end;
end;
// 外面
// 定時器
procedure OnTimer(Sender: Tobject);
begin
thd.Resume;
end;
// 要結束線程的地方
…
thd.Resume;
thd.Terminate;
thd.WaitFor; // 一般在結束線程後得通過WaitFor確認線程已經真的結束了。
…
問題：線程和外部的耦合太強了，甚至線程的操作週期得通過外面的定時器來確定。
解決方法三（這是我想到的最好方法）：
在線程中通過信號量進行暫停操作。
// Thread
TMyThread = class(TThread)
private
Event: TEvent;
protected
procedure Execute; override;
public
constructor Create(loginInfo: TLoginInfo); overload;
destructor Destroy; override;
procedure SetEvent;
end;
{ TMyThread }
constructor TMyThread.Create(loginInfo: TLoginInfo);
begin
Event := TEvent.Create(nil, True, True, 'EventName');
end;
destructor TMyThread.Destroy;
begin
Event.Free;
inherited;
end;
procedure TMyThread.Execute;
begin
inherited;
while not Terminated do
begin
// ...
Event.ResetEvent;
Event.WaitFor(10000);
end;
end;
procedure TMyThread.SetEvent;
begin
Event.SetEvent;
end;
對於需要中斷線程的程序，只需如下代碼即可：
begin
…
thd.Terminate;
thd.SetEvent;
thd.WaitFor;
…
end;
Delphi 可以快速開發桌面程序，用來做dll 封裝操作，封裝窗體都是很方便的。
在 delphi 做動態庫時，會自動提示要 uses ShareMem，這個實際用起來是不方便的，因爲 dll 可能要發佈，要給其他人用，而別人用什麼語言來開發是說不準的，如果不是delphi，就沒辦法用了。因此在接口上一般是用 pchar來代替string。但是在內部，string 還是可以拿來用的。
這樣就會產生一個問題，如果動態庫是支持多線程來用的，而在動態庫內部並沒有顯式的創建一個線程時，煩繁使用 string 就說不定什麼時候會產生一個內存出錯。
在Delphi 內部，定義了一個 isMultiThread 的boolean 型全局變量(好象是在 system 單元)。默認這個變量是 false的。當顯示地創建一個線程時(如TThread.Create)，會置成true。否則一直是false。
這個變量唯一使用的地方是在 GetMem 和 FreeMem時，如果爲 True，會先進入臨界區，操作完成後退出。如果爲false就沒有臨界區了。
因此在編寫多線程安全的動態庫時，一定要記得在動態庫初始化的時候手動加上 isMultiThread=true; 這樣強制delphi來使用臨界區操作。
如果調用程序也是用 delphi 來寫的，可能會多線程使用，那最好也在初始化的時候加上這句。值得注意的是，調用程序和動態庫的這兩個變量是兩個互不相干的，也就是兩邊都得加，只在一方加上是影響不了另一方的。