粗心老爹育兒記事_記給零零落落(裡裡六六)

泰國公司同事敲我msn說他們新買了一台電腦。
要安裝我們之前的系統，由於是用DELPHI BDE架構寫的。
有放SETUP檔在那，結果整個Setup完後仍無法正常執行。
出現如下訊息

在HTML世界裡，難免會用到一些特殊符號，有的是程式裡的特殊符號，像是大於、小於符號，如果要顯示出來，就要用特殊的編碼讓它顯示出來。

 



符號
說明
編碼
 
符號
說明
編碼
 
符號
說明
編碼


「
雙引號
"
×
乘號
×
←
向左箭頭
←


&
AND符號
&
÷
除號
÷
↑
向上箭頭
↑


<
小於符號
&lt;
±
正負符號
&plusmn;
→
向右箭頭
&rarr;


>
大於符號
&gt;

function符號
&fnof;
↓
向下箭頭
&darr;


 
空格
&nbsp;
√
根號
&radic;

雙向箭頭
&harr;



倒問號
&iquest;
∞
無限大符號
&infin;
⇐
雙線向左箭頭
&lArr;


«
雙左箭頭
&laquo;
∠
角度符號
&ang;
⇑
雙線向上箭頭
&uArr;


»
雙右箭頭
&raquo;
∫
微積分符號
&int;
⇒
雙線向右箭頭
&rArr;


『
左單引號
&lsquo;
°
度數符號
&deg;
⇓
雙線向下箭頭
&dArr;


』
右單引號
&rsquo;
≠
不等於符號
&ne;

雙線雙向箭頭
&hArr;


「
左雙引號
&ldquo;
≡
相等符號
&equiv;

黑桃符號
&spades;


」
右雙引號
&rdquo;
≦
小於等於符號
&le;

梅花符號
&clubs;



段落符號
&para;
≧
大於等於符號
&ge;

紅心符號
&hearts;


§
章節符號
&sect;
⊥
垂直符號
&perp;

方塊符號
&diams;


©
版權所有符號
&copy;

二分之一符號
&frac12;
α
Alpha符號
&alpha;



註冊商標符號
&reg;

四分之一符號
&frac14;
β
Bata符號
&beta;



商標符號
&trade;

四分之三符號
&frac34;
γ
Gamma符號
&gamma;


€
歐元符號
&euro;

百分符號
&permil;
Δ
Delta符號
&Delta;


¢
美分符號
&cent;
∴
所以符號
&there4;
θ
Theta符號
&theta;


£
英鎊符號
&pound;
π
圓周率符號
&pi;
λ
Lambda符號
&lambda;


¥
日圓符號
&yen;
¹
註解1符號
&sup1;
Σ
Sigma符號
&Sigma;


…
…
&hellip;
²
註解2符號、平方
&sup2;
τ
Tau符號
&tau;


⊕
 
&oplus;
³
註解3符號、立方
&sup3;
ω
Omega符號
&omega;


∇
倒三角型符號
&nabla;
↵
ENTER符號
&crarr;
Ω
Omega符號、歐姆符號
&Omega;

這可能與為作業創建的數據庫登錄ID有關，這個登錄ID需要是數據庫的所有者（我的是sa），因此將

@owner_login_name=N'pcabc\abc',

中的N'pcabc\abc'改為數據庫的所有者，sa就可以了。

16、SaveDialog1確認文件存不存在的辦法？
答：
procedure TForm1.SaveDialog1CanClose(Sender: TObject;
var CanClose: Boolean);
begin

◇[DELPHI]網絡鄰居複製文件
uses shellapi;
copyfile(pchar(newfile.txt),pchar(//computername/direction/targer.txt),false);

◇[DELPHI]產生鼠標拖動效果
通過MouseMove事件、DragOver事件、EndDrag事件實現，例如在PANEL上的LABEL：
var xpanel,ypanel,xlabel,ylabel:integer;
PANEL的MouseMove事件：xpanel:=x;ypanel:=y;
PANEL的DragOver事件：xpanel:=x;ypanel:=y;
LABEL的MouseMove事件：xlabel:=x;ylabel:=y;
LABEL的EndDrag事件：label.left:=xpanel-xlabel;label.top:=ypanel-ylabel;

◇[DELPHI]取得WINDOWS目錄
uses shellapi;
var windir:array[0..255] of char;
getwindowsdirectory(windir,sizeof(windir));
或者從註冊表中讀取，位置：
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion
SystemRoot鍵，取得如：C:\WINDOWS

◇[DELPHI]在form或其他容器上畫線
var x,y:array [0..50] of integer;
canvas.pen.color:=clred;
canvas.pen.style:=psDash;
form1.canvas.moveto(trunc(x[i]),trunc(y[i]));
form1.canvas.lineto(trunc(x[j]),trunc(y[j]));

◇[DELPHI]字符串列表使用
var tips:tstringlist;
tips:=tstringlist.create;
tips.loadfromfile(filename.txt);
edit1.text:=tips[0];
tips.add(last line addition string);
tips.insert(1,insert string at NO 2 line);
tips.savetofile(newfile.txt);
tips.free;

◇[DELPHI]簡單的剪貼板操作
richedit1.selectall;
richedit1.copytoclipboard;
richedit1.cuttoclipboard;
edit1.pastefromclipboard;

◇[DELPHI]關於文件、目錄操作
Chdir(c:\abcdir);轉到目錄
Mkdir(dirname);建立目錄
Rmdir(dirname);刪除目錄
GetCurrentDir;//取當前目錄名，無\
Getdir(0,s);//取工作目錄名s:=c:\abcdir;
Deletfile(abc.txt);//刪除文件
Renamefile(old.txt,new.txt);//文件更名
ExtractFilename(filelistbox1.filename);//取文件名
ExtractFileExt(filelistbox1.filename);//取文件後綴

◇[DELPHI]處理文件屬性
attr:=filegetattr(filelistbox1.filename);
if (attr and faReadonly)=faReadonly then ... //只讀
if (attr and faSysfile)=faSysfile then ... //系統
if (attr and faArchive)=faArchive then ... //存檔
if (attr and faHidden)=faHidden then ... //隱藏

◇[DELPHI]執行程序外文件
WINEXEC//調用可執行文件
winexec(command.com /c copy *.* c:\,SW_Normal);
winexec(start abc.txt);
ShellExecute或ShellExecuteEx//啟動文件關聯程序
function executefile(const filename,params,defaultDir:string;showCmd:integer):THandle;
ExecuteFile(C:\abc\a.txt,x.abc,c:\abc\,0);
ExecuteFile(http://tingweb.yeah.net,,,0);
ExecuteFile(mailto:tingweb@wx88.net,,,0);

◇[DELPHI]取得系統運行的進程名
var hCurrentWindow:HWnd;szText:array[0..254] of char;
begin
hCurrentWindow:=Getwindow(handle,GW_HWndFrist);
while hCurrentWindow <> 0 do
begin
if Getwindowtext(hcurrnetwindow,@sztext,255)>0 then listbox1.items.add(strpas(@sztext));
hCurrentWindow:=Getwindow(hCurrentwindow,GW_HWndNext);
end;
end;

◇[DELPHI]關於彙編的嵌入
Asm End;
可以任意修改EAX、ECX、EDX；不能修改ESI、EDI、ESP、EBP、EBX。

◇[DELPHI]關於類型轉換函數
FloatToStr//浮點轉字符串
FloatToStrF//帶格式的浮點轉字符串
IntToHex//整數轉16進制
TimeToStr
DateToStr
DateTimeToStr
FmtStr//按指定格式輸出字符串
formatDateTime(YYYY-MM-DD,hh-mm-ss,DATE);

◇[DELPHI]字符串的過程和函數
Insert(obj,target,pos);// 字符串target插入在pos的位置。如插入結果大於target最大長度，多出字符將被截掉。如Pos在255以外，會產生運行錯。例如，st:=Brian，則Insert（OK,st,2）會使st變為BrOKian。
Delete(st,pos,Num);//從st串中的pos（整型）位置開始刪去個數為Num（整型）個字符的子字串。例如，st:=Brian，則Delete(st,3,2)將變為Brn。
Str(value,st);//將數值value（整型或實型）轉換成字符串放在st中。例如，a=2.5E4時，則str(a:10,st)將使st的值為 25000。
Val(st,var,code);// 把字符串表達式st轉換為對應整型或實型數值，存放在var中。St必須是一個表示數值的字符串，並符合數值常數的規則。在轉換過程中，如果沒有檢測出錯誤，變量code置為0，否則置為第一個出錯字符的位置。例如，st:=25.4E3,x是一個實型變量，則val(st,x,code)將使X值為 25400，code值為0。
Copy(st.pos.num);//返回st串中一個位置pos（整型）處開始的，含有num（整型）個字符的子串。如果pos大於st字符串的長度，那就會返回一個空串，如果pos在255以外，會引起運行錯誤。例如，st:=Brian，則 Copy(st,2,2)返回ri。
Concat(st1,st2,st3……,stn);//把所有自變量表示出的字符串按所給出的順序連接起來，並返回連接後的值。如果結果的長度255，將產生運行錯誤。例如，st1:=Brian,st2:= ,st3:=Wilfred，則Concat(st1,st2,st3)返回Brian Wilfred。
Length(st);//返回字符串表達式st的長度。例如，st:=Brian，則Length(st)返回值為5。
Pos(obj,target);// 返回字符串obj在目標字符串target的第一次出現的位置，如果target沒有匹配的串，Pos函數的返回值為0。例如，target:=Brian Wilfred，則Pos(Wil,target)的返回值是7，Pos(hurbet,target)的返回值是0。

◇[DELPHI]關於處理註冊表
uses Registry;
var reg:Tregistry;
reg:=Tregistry.create;
reg.rootkey:=HKey_Current_User;
reg.openkey(Control Panel\Desktop,false);
reg.WriteString(Title Wallpaper,0);
reg.writeString(Wallpaper,filelistbox1.filename);
reg.closereg;
reg.free;

◇[DELPHI]關於鍵盤常量名
VK_BACK/VK_TAB/VK_RETURN/VK_SHIFT/VK_CONTROL/VK_MENU/VK_PAUSE/VK_ESCAPE
/VK_SPACE/VK_LEFT/VK_RIGHT/VK_UP/VK_DOWN
F1--F12：$70(112)--$7B(123)
A-Z：$41(65)--$5A(90)
0-9：$30(48)--$39(57)
◇[DELPHI]初步判斷程序母語
DELPHI軟件的DOS提示：This Program Must Be Run Under Win32.
VC++軟件的DOS提示：This Program Cannot Be Run In DOS Mode.

◇[DELPHI]操作Cookie
response.cookies("name").domain:=http://www.086net.com;
with response.cookies.add do
begin
name:=username;
value:=username;
end

◇[DELPHI]增加到文檔菜單連接
uses shellapi,shlOBJ;
shAddToRecentDocs(shArd_path,pchar(filepath));//增加連接
shAddToRecentDocs(shArd_path,nil);//清空

◇[雜類]備份智能ABC輸入法詞庫
windows\system\user.rem
windows\system\tmmr.rem

◇[DELPHI]判斷鼠標按鍵
if GetAsyncKeyState(VK_LButton)<>0 then ... //左鍵
if GetAsyncKeyState(VK_MButton)<>0 then ... //中鍵
if GetAsyncKeyState(VK_RButton)<>0 then ... //右鍵

◇[DELPHI]設置窗體的最大顯示
onformCreate事件
self.width:=screen.width;
self.height:=screen.height;

◇[DELPHI]按鍵接受消息
OnCreate事件中處理：Application.OnMessage:=MyOnMessage;
procedure Tform1.MyOnMessage(var MSG:TMSG;var Handle:Boolean);
begin
if msg.message=256 then ... //ANY鍵
if msg.message=112 then ... //F1
if msg.message=113 then ... //F2
end;

◇[雜類]隱藏共享文件夾
共享效果：可訪問，但不可見（在資源管理、網絡鄰居中）
取共享名為：direction$
訪問：//computer/dirction/

◇[Java Script]Java Script網頁常用效果
網頁60秒定時關閉

關閉窗口
關閉
定時轉URL

設為首頁
設為首頁
收藏本站
收藏本站
加入頻道
加入頻道


◇[DELPHI]隨機產生文本色
randomize;//隨機種子
memo1.font.color:=rgb(random(255),random(255),random(255));

◇[DELPHI]DELPHI5 UPDATE升級補丁序列號
1000003185
90X25fx0

◇[DELPHI]文件名的非法字符過濾
for i:=1 to length(s) do
if s[i] in [\,/,:,*,?,<,>,|] then

◇[DELPHI]轉換函數的定義及說明
datetimetofiledate (datetime:Tdatetime):longint; 將Tdatetime格式的日期時間值轉換成DOS格式的日期時間值
datetimetostr (datetime:Tdatetime):string; 將Tdatatime格式變量轉換成字符串，如果datetime參數不包含日期值，返回字符串日期顯示成為00/00/00，如果datetime參數中沒有時間值，返回字符串中的時間部分顯示成為00：00：00 AM
datetimetostring (var result string;
const format:string;
datetime:Tdatetime); 根據給定的格式字符串轉換時間和日期值，result為結果字符串，format為轉換格式字符串，datetime為日期時間值
datetostr (date:Tdatetime) 使用shortdateformat全局變量定義的格式字符串將date參數轉換成對應的字符串
floattodecimal (var result:Tfloatrec;value:
extended;precision,decimals:
integer); 將浮點數轉換成十進製表示
floattostr (value:extended):string 將浮點數value轉換成字符串格式，該轉換使用普通數字格式，轉換的有效位數為15位。
floattotext (buffer:pchar;value:extended;
format:Tfloatformat;precision,
digits:integer):integer; 用給定的格式、精度和小數將浮點值value轉換成十進製表示形式，轉換結果存放於buffer參數中，函數返回值為存儲到buffer中的字符位數，buffer是非0結果的字符串緩衝區。
floattotextfmt (buffer:pchar;value:extended;
format:pchar):integer 用給定的格式將浮點值value轉換成十進製表示形式，轉換結果存放於buffer參數中，函數返回值為存儲到buffer中的字符位數。
inttohex (value:longint;digits:integer):
string; 將給定的數值value轉換成十六進制的字符串。參數digits給出轉換結果字符串包含的數字位數。
inttostr (value:longint):string 將整數轉換成十進制形式字符串
strtodate (const S:string):Tdatetime 將字符串轉換成日期值，S必須包含一個合法的格式日期的字符串。
strtodatetime (const S:string):Tdatetime 將字符串S轉換成日期時間格式，S必須具有MM/DD/YY HH：MM：SS[AM|PM]格式，其中日期和時間分隔符與系統時期時間常量設置相關。如果沒有指定AM或PM信息，表示使用24小時制。
strtofloat (const S:string):extended; 將給定的字符串轉換成浮點數，字符串具有如下格式：
[+|-]nnn…[.]nnn…[<+|-><+|->nnnn]
strtoint (const S:string):longint 將數字字符串轉換成整數，字符串可以是十進制或十六進制格式，如果字符串不是一個合法的數字字符串，系統發生ECONVERTERROR異常
strtointdef (const S:string;default:
longint):longint; 將字符串S轉換成數字，如果不能將S轉換成數字，strtointdef函數返回參數default的值。
strtotime (const S:string):Tdatetime 將字符串S轉換成TDATETIME值，S具有HH：MM：SS[AM|PM]格式，實際的格式與系統的時間相關的全局變量有關。
timetostr (time:Tdatetime):string; 將參數TIME轉換成字符串。轉換結果字符串的格式與系統的時間相關常量的設置有關。

◇[DELPHI]程序不出現在ALT+CTRL+DEL
在implementation後添加聲明:
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external KERNEL32.DLL;
RegisterServiceProcess(GetCurrentProcessID, 1);//隱藏
RegisterServiceProcess(GetCurrentProcessID, 0);//顯示
用ALT+DEL+CTRL看不見

◇[DELPHI]程序不出現在任務欄
uses windows
var
Extendedstyle : Integer;
begin
Application.Initialize;
//==============================================================
Extendedstyle := GetWindowLong (Application.Handle, GWL_EXstyle);
SetWindowLong(Application.Handle, GWL_EXstyle, Extendedstyle OR WS_EX_TOOLWINDOW
AND NOT WS_EX_APPWINDOW);
//===============================================================
Application.Createform(Tform1, form1);
Application.Run;
end.

◇[DELPHI]如何判斷撥號網絡是開還是關
if GetSystemMetrics(SM_NETWORK) AND $01 = $01 then
showmessage(在線!)
else showmessage(不在線!);

◇[DELPHI]實現IP到域名的轉換
function GetDomainName(Ip:string):string;
var
pH:PHostent;
data:twsadata;
ii:dword;
begin
WSAStartup($101, Data);
ii:=inet_addr(pchar(ip));
pH:=gethostbyaddr(@ii,sizeof(ii),PF_INET);
if (ph<>nil) then
result:=pH.h_name
else
result:=;
WSACleanup;
end;

◇[DELPHI]處理「右鍵菜單」方法
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey:=HKEY_CLASSES_ROOT;
reg.OpenKey(*\shell\check\command, true);
reg.WriteString(, " + application.ExeName + " "%1");
reg.CloseKey;
reg.OpenKey(*\shell\diary, false);
reg.WriteString(, 操作(&C));
reg.CloseKey;
reg.Free;
showmessage(DONE!);
end;

◇[DELPHI]發送虛擬鍵值ctrl V
procedure sendpaste;
begin
keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), 0, 0);
keybd_event(ord(V), MapVirtualKey(ord(V), 0), 0, 0);
keybd_event(ord(V), MapVirtualKey(ord(V), 0), KEYEVENTF_KEYUP, 0);
keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), KEYEVENTF_KEYUP, 0);
end;

◇[DELPHI]當前的光驅的盤符
procedure getcdrom(var cd:char);
var
str:string;
drivers:integer;
driver:char;
i,temp:integer;
begin
drivers:=getlogicaldrives;
temp:=(1 and drivers);
for i:=0 to 26 do
begin
if temp=1 then
begin
driver:=char(i+integer(a));
str:=driver+:;
if getdrivetype(pchar(str))=drive_cdrom then
begin
cd:=driver;
exit;
end;
end;
drivers:=(drivers shr 1);
temp:=(1 and drivers);
end;
end;

◇[DELPHI]字符的加密與解密
function cryptstr(const s:string; stype: dword):string;
var
i: integer;
fkey: integer;
begin
result:=;
case stype of
0: setpass;
begin
randomize;
fkey := random($ff);
for i:=1 to length(s) do
result := result+chr( ord(s[i]) xor i xor fkey);
result := result + char(fkey);
end;
1: getpass
begin
fkey := ord(s[length(s)]);
for i:=1 to length(s) - 1 do
result := result+chr( ord(s[i]) xor i xor fkey);
end;
end;

□◇[DELPHI]向其他應用程序發送模擬鍵
var
h: THandle;
begin
h := FindWindow(nil, 應用程序標題);
PostMessage(h, WM_KEYDOWN, VK_F9, 0);//發送F9鍵
end;

□◇[DELPHI]DELPHI 支持的DAO數據格式
td.Fields.Append(td.CreateField (dbBoolean,dbBoolean,0));
td.Fields.Append(td.CreateField (dbByte,dbByte,0));
td.Fields.Append(td.CreateField (dbInteger,dbInteger,0));
td.Fields.Append(td.CreateField (dbLong,dbLong,0));
td.Fields.Append(td.CreateField (dbCurrency,dbCurrency,0));
td.Fields.Append(td.CreateField (dbSingle,dbSingle,0));
td.Fields.Append(td.CreateField (dbDouble,dbDouble,0));
td.Fields.Append(td.CreateField (dbDate,dbDate,0));
td.Fields.Append(td.CreateField (dbBinary,dbBinary,0));
td.Fields.Append(td.CreateField (dbText,dbText,0));
td.Fields.Append(td.CreateField (dbLongBinary,dbLongBinary,0));
td.Fields.Append(td.CreateField (dbMemo,dbMemo,0));
td.Fields[ID].Set_Attributes(dbAutoIncrField);//自增字段

□◇[DELPHI]DELPHI配置MS SQL 7和BDE步驟
第一步，配置ODBC：
先在ODBC 中設數據源，安裝過SQL Server7.0 後,ODBC中有一項"系統DSN"應該有兩項
數據源，一個是MQIS，一個是LocalSever，任選一個選後點擊配置按鈕，不知你的SQL7.0
是不是安裝在本地機器上，如果是的話直接進行下一步，如果不是，在服務器一欄中填上
Server,然後進行下一步，填寫登錄ID 和密碼（登錄ID，和密碼是在SQL7.0中的用戶選項
中設的）。
第二步，配置BDE:
打開Delphi的BDE，然後點擊MQIS 或 LocalServer，就會提示用戶名和密碼，這和
ODBC的用戶名和密碼是一樣的，填上就行了。
第三步，配置程序：
如果用的是TTable，就在TTable的DatabaseName中選擇MQIS 或LocalServer,然後在
TableName中選擇Sale就行了，然後將Active改為True,Delphi彈出提示對話，填入用戶
名和密碼。
如果用的是TQuery,在TQuery上點擊右鍵，再擊"SQL Builder"，這是以界面方式配置
SQL語句，或者在TQuery的SQL中填入SQL語句。最後，別忘了將Active改為True。
在運行也可能配置TQuery,具體見Delphi幫助。

□◇[DELPHI]得到圖像上某一點的RGB值
procedure Tform1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
red,green,blue:byte ;
i:integer;
begin
i:= image1.Canvas.Pixels[x,y];
Blue:= GetBvalue(i);
Green:= GetGvalue(i):
Red:= GetRvalue(i);
Label1.Caption:=inttostr(Red);
Label2.Caption:=inttostr(Green);
Label3.Caption:=inttostr(Blue);
end;

□◇[DELPHI]關於日期格式分解轉換
var year,month,day:word;now2:Tdatatime;
now2:=date();
decodedate(now2,year,month,day);
lable1.Text :=inttostr(year)+年+inttostr(month)+月+inttostr(day)+日;

◇[DELPHI]如何判斷當前網絡連接方式
判斷結果是MODEM、局域網或是代理服務器方式。
uses wininet;
Function ConnectionKind :boolean;
var flags: dword;
begin
Result := InternetGetConnectedState(@flags, 0);
if Result then
begin
if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then
begin
showmessage(Modem);
end;
if (flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then
begin
showmessage(LAN);
end;
if (flags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY then
begin
showmessage(Proxy);
end;
if (flags and INTERNET_CONNECTION_MODEM_BUSY)=INTERNET_CONNECTION_MODEM_BUSY then
begin
showmessage(Modem Busy);
end;
end;
end;

◇[DELPHI]如何判斷字符串是否是有效EMAIL地址
function IsEMail(EMail: String): Boolean;
var s: String;ETpos: Integer;
begin
ETpos:= pos(@, EMail);
if ETpos > 1 then
begin
s:= copy(EMail,ETpos+1,Length(EMail));
if (pos(., s) > 1) and (pos(., s) < length(s)) then
Result:= true else Result:= false;
end
else
Result:= false;
end;

◇[DELPHI]判斷系統是否連接INTERNET
需要引入URL.DLL中的InetIsOffline函數。
函數申明為：
function InetIsOffline(Flag: Integer): Boolean; stdcall; external URL.DLL;
然後就可以調用函數判斷系統是否連接到INTERNET
if InetIsOffline(0) then ShowMessage(not connected!)
else ShowMessage(connected!);
該函數返回TRUE如果本地系統沒有連接到INTERNET。
附：
大多數裝有IE或OFFICE97的系統都有此DLL可供調用。
InetIsOffline
BOOL InetIsOffline(
DWORD dwFlags,
);

◇[DELPHI]簡單地播放和暫停WAV文件
uses mmsystem;

function PlayWav(const FileName: string): Boolean;
begin
Result := PlaySound(PChar(FileName), 0, SND_ASYNC);
end;

procedure StopWav;
var
buffer: array[0..2] of char;
begin
buffer[0] := #0;
PlaySound(Buffer, 0, SND_PURGE);
end;

◇[DELPHI]取機器BIOS信息
with Memo1.Lines do
begin
Add(MainBoardBiosName:+^I+string(Pchar(Ptr($FE061))));
Add(MainBoardBiosCopyRight:+^I+string(Pchar(Ptr($FE091))));
Add(MainBoardBiosDate:+^I+string(Pchar(Ptr($FFFF5))));
Add(MainBoardBiosSerialNo:+^I+string(Pchar(Ptr($FEC71))));
end;

◇[DELPHI]網絡下載文件
uses UrlMon;

function DownloadFile(Source, Dest: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;
except
Result := False;
end;
end;

if DownloadFile(http://www.borland.com/delphi6.zip, c:\kylix.zip) then
ShowMessage(Download succesful)
else ShowMessage(Download unsuccesful)

◇[DELPHI]解析服務器IP地址
uses winsock

function IPAddrToName(IPAddr : String): String;
var
SockAddrIn: TSockAddrIn;
HostEnt: PHostEnt;
WSAData: TWSAData;
begin
WSAStartup($101, WSAData);
SockAddrIn.sin_addr.s_addr:= inet_addr(PChar(IPAddr));
HostEnt:= gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
if HostEnt<>nil then result:=StrPas(Hostent^.h_name) else result:=;
end;

◇[DELPHI]取得快捷方式中的連接
function ExeFromLink(const linkname: string): string;
var
FDir,
FName,
ExeName: PChar;
z: integer;
begin
ExeName:= StrAlloc(MAX_PATH);
FName:= StrAlloc(MAX_PATH);
FDir:= StrAlloc(MAX_PATH);
StrPCopy(FName, ExtractFileName(linkname));
StrPCopy(FDir, ExtractFilePath(linkname));
z:= FindExecutable(FName, FDir, ExeName);
if z > 32 then
Result:= StrPas(ExeName)
else
Result:= ;
StrDispose(FDir);
StrDispose(FName);
StrDispose(ExeName);
end;

◇[DELPHI]控制TCombobox的自動完成
{Sorted property of the TCombobox to true }
var lastKey: Word; //全局變量
//TCombobox的OnChange事件
procedure Tform1.AutoCompleteChange(Sender: TObject);
var
SearchStr: string;
retVal: integer;
begin
SearchStr := (Sender as TCombobox).Text;
if lastKey <> VK_BACK then // backspace: VK_BACK or $08
begin
retVal := (Sender as TCombobox).Perform(CB_FINDSTRING, -1, LongInt(PChar(SearchStr)));
if retVal > CB_Err then
begin
(Sender as TCombobox).ItemIndex := retVal;
(Sender as TCombobox).SelStart := Length(SearchStr);
(Sender as TCombobox).SelLength :=
(Length((Sender as TCombobox).Text) - Length(SearchStr));
end; // retVal > CB_Err
end; // lastKey <> VK_BACK
lastKey := 0; // reset lastKey
end;
//TCombobox的onKeyDown事件
procedure Tform1.AutoCompleteKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
lastKey := Key;
end;

◇[DELPHI]如何清空一個目錄
function EmptyDirectory(TheDirectory :String ; Recursive : Boolean) :
Boolean;
var
SearchRec : TSearchRec;
Res : Integer;
begin
Result := False;
TheDirectory := NormalDir(TheDirectory);
Res := FindFirst(TheDirectory + *.*, faAnyFile, SearchRec);
try
while Res = 0 do
begin
if (SearchRec.Name <> .) and (SearchRec.Name <> ..) then
begin
if ((SearchRec.Attr and faDirectory) > 0) and Recursive
then begin
EmptyDirectory(TheDirectory + SearchRec.Name, True);
RemoveDirectory(PChar(TheDirectory + SearchRec.Name));
end
else begin
DeleteFile(PChar(TheDirectory + SearchRec.Name))
end;
end;
Res := FindNext(SearchRec);
end;
Result := True;
finally
FindClose(SearchRec.FindHandle);
end;
end;

◇[DELPHI]安裝程序如何添加到Uninstall列表
操作註冊表，如下：
1.在HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall鍵下建立一個主鍵，名稱任意。
例HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\MyUninstall
2.在HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\MyUnistall下鍵兩個串值，
這兩個串值的名稱是特定的：DisplayName和UninstallString。
3.給串DisplayName賦值為顯示在「刪除應用程序列表」中的名稱，如Aiming Uninstall one;
給串UninstallString賦值為執行的刪除命令，如 C:\WIN97\uninst.exe -f"C:\TestPro\aimTest.isu"

◇[DELPHI]截獲WM_QUERYENDSESSION關機消息
type
Tform1 = class(Tform)
procedure WMQueryEndSession(var Message: TWMQueryEndSession); message WM_QUERYENDSESSION;
procedure CMEraseBkgnd(var Message:TWMEraseBkgnd);Message WM_ERASEBKGND;
private
{ Private declarations }
public
{ Public declarations }
end;

procedure Tform1.WMQueryEndSession(var

右邊的選單的加入參考System.Configuration
不是using System.Configuration;
在程式內才能使用，不會報錯
configurationmanager.appsettings

 
****************請先完整備份資料庫************************************
 
方法一進入Query
Analyzer，直接下指令執行

下列文章引用來自 Delphi K.Top討論區
FastReport 4.7x雖然已支援unicode，也附有Taiwan(繁中)的介面，但轉換後仍是一大堆?號。
其中問題出在Res\frcc.exe，frcc轉檔後的儲存格式為Ansi並非UTF-8，經手動轉換並更改中文字被截斷的部份。
此部份可下載frcc.rar，解壓後取代FastReport 4\Res\frcc.exe

前提
Windows98/Me 作業系統 是沒有內建支援Unicode,而在Windows 2000/XP/2003以後的版本是有支援UniCode
在Fast Report 3.15以前TfrxViewMemo是不支援UniCode所以 你在Memo的物件,如果要顯示繁體中文字體時,你的Font.Charset必須選定成ChineseBig5_CHARSET

1．調用API函數
procedure CopyFile(FromFileName,ToFileName:string);
var
f1,f2:file;
Begin