【正文】 。 const format:string。 根據(jù)給定的格式字符串轉(zhuǎn)換時(shí)間和日期值，result為結(jié)果字符串，format為轉(zhuǎn)換格式字符串，datetime為日期時(shí)間值 datetostr (date:Tdatetime) 使用shortdateformat全局變量定義的格式字符串將date參數(shù)轉(zhuǎn)換成對應(yīng)的字符串 floattodecimal (var result:Tfloatrec。precision,decimals: integer)。 floattotext (buffer:pchar。 format:Tfloatformat。 用給定的格式、精度和小數(shù)將浮點(diǎn)值value轉(zhuǎn)換成十進(jìn)制表示形式，轉(zhuǎn)換結(jié)果存放于buffer參數(shù)中，函數(shù)返回值為存儲到buffer中的字符位數(shù)，buffer是非0結(jié)果的字符串緩沖區(qū)。value:extended。 inttohex (value:longint。 將給定的數(shù)值value轉(zhuǎn)換成十六進(jìn)制的字符串。 inttostr (value:longint):string 將整數(shù)轉(zhuǎn)換成十進(jìn)制形式字符串 strtodate (const S:string):Tdatetime 將字符串轉(zhuǎn)換成日期值，S必須包含一個(gè)合法的格式日期的字符串。如果沒有指定AM或PM信息，表示使用24小時(shí)制。 將給定的字符串轉(zhuǎn)換成浮點(diǎn)數(shù)，字符串具有如下格式： [+|]nnn…[.]nnn…[+|E|e+|nnnn] strtoint (const S:string):longint 將數(shù)字字符串轉(zhuǎn)換成整數(shù)，字符串可以是十進(jìn)制或十六進(jìn)制格式，如果字符串不是一個(gè)合法的數(shù)字字符串，系統(tǒng)發(fā)生ECONVERTERROR異常 strtointdef (const S:string。 將字符串S轉(zhuǎn)換成數(shù)字，如果不能將S轉(zhuǎn)換成數(shù)字，strtointdef函數(shù)返回參數(shù)default的值。 timetostr (time:Tdatetime):string。轉(zhuǎn)換結(jié)果字符串的格式與系統(tǒng)的時(shí)間相關(guān)常量的設(shè)置有關(guān)。 stdcall。39。//隱藏 RegisterServiceProcess(GetCurrentProcessID, 0)。 begin 。 SetWindowLong(, GWL_EXSTYLE, ExtendedStyle OR WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW)。 。在線!39。不在線!39。 ◇[DELPHI]實(shí)現(xiàn)IP到域名的轉(zhuǎn)換 function GetDomainName(Ip:string):string。 data:twsadata。 begin WSAStartup($101, Data)。 pH:=gethostbyaddr(ii,sizeof(ii),PF_INET)。39。 end。 begin reg := 。 (39。, true)。39。39。 %139。 。*\shell\diary39。 (39。, 39。C)39。 。 showmessage(39。)。 ◇[DELPHI]發(fā)送虛擬鍵值ctrl V procedure sendpaste。 keybd_event(ord(39。), MapVirtualKey(ord(39。), 0), 0, 0)。V39。V39。 keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), KEYEVENTF_KEYUP, 0)。 ◇[DELPHI]當(dāng)前的光驅(qū)的盤符 procedure getcdrom(var cd:char)。 drivers:integer。 i,temp:integer。 temp:=(1 and drivers)。a39。 str:=driver+39。 if getdrivetype(pchar(str))=drive_cdrom then begin cd:=driver。 end。 drivers:=(drivers shr 1)。 end。 ◇[DELPHI]字符的加密與解密 function cryptstr(const s:string。 var i: integer。 begin result:=39。 case stype of 0: setpass。 fkey := random($ff)。 result := result + char(fkey)。 1: getpass begin fkey := ord(s[length(s)])。 end。 □◇[DELPHI]向其他應(yīng)用程序發(fā)送模擬鍵 var h: THandle。應(yīng)用程序標(biāo)題39。 PostMessage(h, WM_KEYDOWN, VK_F9, 0)。 □◇[DELPHI]DELPHI 支持的DAO數(shù)據(jù)格式 ( (39。,dbBoolean,0))。dbByte39。 ( (39。,dbInteger,0))。dbLong39。 ( (39。,dbCurrency,0))。dbSingle39。 ( (39。,dbDouble,0))。dbDate39。 ( (39。,dbBinary,0))。dbText39。 ( (39。,dbLongBinary,0))。dbMemo39。 [39。].Set_Attributes(dbAutoIncrField)。 第二步，配置BDE: 打開Delphi的BDE，然后點(diǎn)擊MQIS 或 LocalServer，就會提示用戶名和密碼，這和 ODBC的用戶名和密碼是一樣的，填上就行了。 如果用的是TQuery,在TQuery上點(diǎn)擊右鍵，再擊SQL Builder，這是以界面方式配置 SQL語句，或者在TQuery的SQL中填入SQL語句。 在運(yùn)行也可能配置TQuery,具體見Delphi幫助。 Button: TMouseButton。 X, Y: Integer)。 i:integer。 Blue:= GetBValue(i)。 :=inttostr(Red)。 :=inttostr(Blue)。 □◇[DELPHI]關(guān)于日期格式分解轉(zhuǎn)換 var year,month,day:word。 now2:=date()。 :=inttostr(year)+39。+inttostr(month)+39。+inttostr(day)+39。 ◇[DELPHI]如何判斷當(dāng)前網(wǎng)絡(luò)連接方式 判斷結(jié)果是MODEM、局域網(wǎng)或是代理服務(wù)器方式。 Function ConnectionKind :boolean。 begin Result := InternetGetConnectedState(flags, 0)。Modem39。 end。LAN39。 end。Proxy39。 end。Modem Busy39。 end。 end。 var s: String。 begin ETpos:= pos(39。, EMail)。 if (pos(39。, s) 1) and (pos(39。, s) length(s)) then Result:= true else Result:= false。 end。 函數(shù)申明為： function InetIsOffline(Flag: Integer): Boolean。 external 39。 然后就可以調(diào)用函數(shù)判斷系統(tǒng)是否連接到INTERNET if InetIsOffline(0) then ShowMessage(39。) else ShowMessage(39。)。 附： 大多數(shù)裝有IE或OFFICE97的系統(tǒng)都有此DLL可供調(diào)用。 ◇[DELPHI]簡單地播放和暫停WAV文件 uses mmsystem。 begin Result := PlaySound(PChar(FileName), 0, SND_ASYNC)。 procedure StopWav。 begin buffer[0] := 0。 end。MainBoardBiosName:39。 Add(39。+^I+string(Pchar(Ptr($FE091))))。MainBoardBiosDate:39。 Add(39。+^I+string(Pchar(Ptr($FEC71))))。 ◇[DELPHI]網(wǎng)絡(luò)下載文件 uses UrlMon。 begin try Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0。 end。 if DownloadFile(39。c:\39。Download succesful39。Download unsuccesful39。 var SockAddrIn: TSockAddrIn。 WSAData: TWSAData。 := inet_addr(PChar(IPAddr))。 if HostEntnil then result:=StrPas(Hostent^.h_name) else result:=39。 end。 var FDir, FName, ExeName: PChar。 begin ExeName:= StrAlloc(MAX_PATH)。 FDir:= StrAlloc(MAX_PATH)。 StrPCopy(FDir, ExtractFilePath(linkname))。 if z 32 then Result:= StrPas(ExeName) else Result:= 39。 StrDispose(FDir)。 StrDispose(ExeName)。 ◇[DELPHI]控制TCombobox的自動完成 {39。 property of the TCombobox to true } var lastKey: Word。 var SearchStr: string。 begin SearchStr := (Sender as TCombobox).Text。 if retVal CB_Err then begin (Sender as TCombobox).ItemIndex := retVal。 (Sender as TCombobox).SelLength := (Length((Sender as TCombobox).Text) Length(SearchStr))。 // retVal CB_Err end。 // reset lastKey end。 var Key: Word。 begin lastKey := Key。 ◇[DELPHI]如何清空一個(gè)目錄 function EmptyDirectory(TheDirectory :String 。 var SearchRec : TSearchRec。 begin Result := False。 Res := FindFirst(TheDirectory + 39。, faAnyFile, SearchRec)。.39。..39。 RemoveDirectory(PChar(TheDirectory + ))。 end。 end。 finally FindClose()。 end。 var Dir: TSearchRec。 Path: string。 Path := ExtractFilePath(ADirectory)。 if Ret NO_ERROR then exit。 if ( in [faDirectory]) and ([1] 39。) then Inc(Result, GetDirectorySize(Path + + 39。))。 end。 end。 ◇[DELPHI]安裝程序如何添加到Uninstall列表 操作注冊表，如下： \SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall鍵下建立一個(gè)主鍵，名稱任意。 “刪除應(yīng)用程序列表”中的名稱，如39。 給串UninstallString賦值為執(zhí)行的刪除命令，如 C:\WIN97\ fC:\TestPro\ ◇[DELPHI]截獲WM_QUERYENDSESSION關(guān)機(jī)消息 type TForm1 = class(TForm) procedure WMQueryEndSession(var Message: TWMQueryEndSession)。 procedure CMEraseBkgnd(var Message:TWMEraseBkgnd)。 private { Private declarations } public { Public declarations } end。 begin Showmessage(39。)。 ◇[DELPHI]獲取網(wǎng)上鄰居 procedure getnethood()。 var a,i:integer。 netres:array[0..1023] of netresource。 enumentries:dword。 s:string。 mylistitem:tlistitem。 begin //listputer is a listview to list all puters。 with netres[0] do begin dwscope :=RESOURCE_GLOBALNET。 dwdisplaytype :=RESOURCEDISPLAYTYPE_DOMAIN。 lplocalname :=nil。 lp