Delphi抓取系統桌面路徑

uses Registry;

Function _GetDeskTopDir: String;
var root: TRegistry;
begin
 root:= TRegistry.Create;
 root .OpenKey('SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\EXPLORER\SHELL FOLDERS', FALSE);
 Result := root.ReadString('DESKTOP');
 Result := UpperCase(Result);
 R.Free;
end;

多重步驟操作發生錯誤，請檢查每一個狀態值

當程式在回寫資料至資料庫時，若出現
"多重步驟操作發生錯誤，請檢查每一個狀態值"
的訊息，表示回寫資料庫的某個欄位長度不足，
將資料庫欄位長度修正為適合長度即可！