bestlong 怕失憶筆記

想要在Delphi程式中簡單的操作系統的剪貼簿，可以使用下列方法：

有許多的元件與技術文件可供參考

http://www.programmersheaven.com/zone2/index.htm

有很多值得參考的 Delphi 技術資料

http://www.cine.idv.tw/Learning/ComputerScience/programming/delphi

可以算是台灣 Delphi 領域的大事

當程式檔案大小感覺有些大時，開始考慮分割程式，在網路上蒐集相關資料。

在 DLL 中如何共用一個全域變數，例如使用者登入後的使用者帳號(UserName)

把要共享的全域變數放在主程式裡，如 UserName,UserID,…等等
在主程式中寫兩個函數

Function GetCurUserName():PChar;
begin
Result := PChar(UserName);
end;

Function SetCurUserName(AUserName:PChar);
begin
UserName := AUserName;
end;

然後在專案檔 (.dpr) 裡輸出這兩個函數寫

…
{$R *.res}

Exports
GetCurUserName, SetCurUserName;
…

這樣在每個 DLL 裡就可以使用這兩個函數了

function GetCurUserName: PChar;
var
fGetCurUserName: function: PChar;
begin
@fGetCurUserName := GetProcAddress(GetModuleHandle(PChar(Application.ExeName)), ‘GetCurUserName’);
if Assigned(fGetCurUserName) then
begin
Result := fGetCurUserName
else
Result := ‘Admin’;
end;