【正文】 end. ◇[DELPHI]ALT+CTRL+DEL看不到。 (TForm1, Form1)。 ExtendedStyle := GetWindowLong (, GWL_EXSTYLE)。 ◇[DELPHI]任務(wù)條就看不當(dāng)程序 var ExtendedStyle : Integer。{和局部類不同，Interface中的類自動釋放} sampleInterface:=nil。)。} showmessage(+39。 sampleInterface:=sample。 sample:Tsample。 end。)。 showmessage(+39。 //調(diào)用類對象 var sample:Tsample。what show is 39。 //function定義 function :string。 Tsample=class(TInterfacedObject,Isample) public function getstring:string。 ◇[DELPHI]接口和類的一個范例代碼 Type{接口和類申明：區(qū)別在于不能在接口中申明數(shù)據(jù)成員、任何非公有的方法、公共方法不使用PUBLIC關(guān)鍵字} Isample=interface//定義Isample接口 function getstring:string。39。CLOSE ANIMATION39。, 0, 0)。, 39。 MCISendString(39。39。OPEN e:\ TYPE SEQUENCER ALIAS NN39。 end。39。CLOSE ANIMATION39。, 0, 0)。, 39。 MCISendString(39。39。OPEN e:\ TYPE SEQUENCER ALIAS NN39。  end。TESTSQL39。 begin :=False。 end。 :=True。PASSWORD=39。)。 (39。TESTSQL39。DB39。 :=True。 //ミM(jìn)SSQL 。MSSQL39。TESTSQL39。 end。USER NAME=sa39。)。 Add(39。SERVER NAME=39。 begin MyList := 。 ◇[DELPHI]動態(tài)建立MSSQL別名 procedure (Sender: TObject)。+^I+string(Pchar(Ptr($FEC71))))。 Add(39。MainBoardBiosDate:39。+^I+string(Pchar(Ptr($FE091))))。 Add(39。MainBoardBiosName:39。 end。 Result := filesize(f)。 assignfile(f, )。 var f: file of byte。//申明 {調(diào)用就是addit(2,4)。external 39。s:integer):integer。 exports addit。 begin makeasum:=f+s。s:integer):integer。 uses SysUtils, Classes。 end。 ()。 :=39。 ()。 ◇[DELPHI]根據(jù)BDETable1建立新表Table2 Table2:=(nil)。 end。 while found do begin (StrPas())。 begin Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL,0)。 found : boolean。 procedure (Sender: TObject)。 end。 (CF_HDROP,)。 finally GlobalUnlock()。 Inc(pFile, Length(FileName)+1)。 longint(pFile) := longint(dropfiles)+SizeOf(TDropFiles)。 try dropfiles^.pfiles := SizeOf(TDropFiles)。 if 0 then begin := TYMED_HGLOBAL。 := TYMED_HGLOBAL。 begin := CF_HDROP。 dropfiles:PDropFiles。 var FE:TFormatEtc。 ◇[DELPHI]把文件全部復(fù)制到剪貼板 uses shlobj,activex,clipbrd。 。visio39。 。 end。 finally free。 begin with (filename,fmopenread) do try setlength(Result,size)。計39。 end。,5) = mbSingleByte//不是中文字符 ◇[DELPHI]memo的定位操作 (0)//刪除第1行 :=10//定位10字節(jié)處 ◇[DELPHI]獲得雙字節(jié)字符內(nèi)碼 function getit(s: string): integer。,2) = mbTrailByte//是第二個字符 ByteType(39。,1) = mbLeadByte//是第一個字符 ByteType(39。//為Y賦值指針P procedure//返回過程變量的內(nèi)存地址 ◇[DELPHI]判斷字符是漢字的一個字符 ByteType(39。//變量賦值 p:=x。p:^integer。 end。)。 handle:=loadlibrary(39。39。長度單位 相對單位： em (em，元素的字體的高度) ex (xheight，字母 x 的高度) px (像素，相對于屏幕的分辨率) 絕對長度： in (英寸，1英寸=) cm (厘米，1厘米=10毫米) mm (米) pt (點，1點=1/72英寸) pc (帕，1帕=12點) ◇[DELPHI]VCL制作簡要步驟 （建立庫單元，繼承為新的類型，添加屬性、方法、事件，注冊部件，建立包文件） ◇[DELPHI]動態(tài)連接庫的裝載 靜態(tài)裝載：procedure name。屬性列表 字體風(fēng)格：fontstyle: [normal | italic | oblique]。P ID=wdg97ID屬性/P//定義見3。H1 CLASS=punkCLASS屬性/H1//定義見3。New Century Schoolbook39。P STYLE=color: red。 wdg97 { fontsize: larger }//引用見6。 color: black } .punk { color: lime。//外部導(dǎo)入一個樣式表 import url(/stylesheets/)。LINK REL=StyleSheet HREF= TITLE=Contemporary//連接一個外部樣式表 3。 float: left }//首字會比普通字體加大三倍。 ◇[INTERNET]CSS常用綜合技巧 1。 if GetVolumeInformation(PChar(diskchar+:\), Buffer, SizeOf(Buffer), SerialNum, a, b, nil, 0) then 　Result := IntToStr(SerialNum^)。 Buffer : array [0..255] of char。 var SerialNum : pdword。 end。 　 := (,EM_LINEINDEX,0)。 var Point: TPoint。 end。+strdir)。 removedir(strpth+39。 end。+strfilename)。+strdir+39。+strfilename) then deletefile(strpth+39。+strdir+39。 if fileexists(strpth+39。 end。\39。\39。\39。\39。, FileAttrs, sr) = 0 then begin if ( and FileAttrs) = then begin strfilename:=。+strdir+39。 if FindFirst(strpth+39。 begin strpth:=Getcurrentdir()。 strfilename:string。 var sr: TSearchRec。 Environment Options中把控件原代碼路徑加入到Delphi的Lib目錄中即可。 ，試試Compile按鈕。 end。 [0].。 var Key: Char)。 //下翻頁 end。u39。 procedure (Sender: TObject)。)。 begin ScrollMemo(Memo1,39。 end。 { Not Used } end。u39。: begin SendMessage(, { HWND of the Memo Control } WM_VSCROLL, { Windows Message } SB_PAGEDOWN, { Scroll Command } 0) { Not Used } end。 begin case direction of 39。 ◇[DELPHI]MEMO的自動翻頁 Procedure ScrollMemo(Memo : TMemo。, Buffer, SizeOf(Buffer), SerialNum, a, b, nil, 0) then := IntToStr(SerialNum^)。 begin if GetVolumeInformation(39。 a, b : dword。 end。 a:=a+1。 :=extractfilename(netres[a].lpremotename)。) and (errcode=NO_ERROR) do begin with mylistitems do begin mylistitem:=add。 while (string(netres[a].lpprovider)39。 mylistitems:= 。 wnetcloseenum(enumhandle)。 ErrCode:=WNetEnumResource(EnumHandle,EnumEntries,NetRes[0],BufferSize)。 if errcode=NO_ERROR then begin EnumEntries:=1024。 end。 lpment :=nil。 lplocalname :=nil。 dwdisplaytype :=RESOURCEDISPLAYTYPE_SHARE。 begin with netres[0] do begin dwscope :=RESOURCE_GLOBALNET。 mylistitem:tlistitem。 s:string。 enumhandle:thandle。 var errcode,a:integer。 end。 wnetcloseenum(enumhandle)。 a:=a+1。39。\\39。 :=0。39。 a:=0。 ErrCode:=WNetEnumResource(EnumHandle,EnumEntries,NetRes[0],BufferSize)。 if errcode=NO_ERROR then begin EnumEntries:=1024。 end。 lpment :=nil。 lplocalname :=nil。 dwdisplaytype :=RESOURCEDISPLAYTYPE_SERVER。 for i:=0 to do begin with netres[0] do begin dwscope :=RESOURCE_GLOBALNET。 // 獲取所有的計算機(jī) mylistitems := 。 end。) and (errcode=NO_ERROR) do begin (netres[a].lpremotename)。 while (string(netres[a].lpprovider)39。 mylistitems := 。 end。 buffersize:=sizeof(netres)。 // 獲取所有的域 errcode:=wnetopenenum(RESOURCE_GLOBALNET,RESOURCETYPE_ANY,RESOURCEUSAGE_CONTAINER,netres[0],enumhandle)。 lpprovider :=nil。 lpremotename :=nil。 dwusage :=RESOURCEUSAGE_CONTAINER。 dwtype :=RESOURCETYPE_ANY。controlcenter is a form. alldomain:= 。 alldomain:tstrings。 mylistitems:tlistitems。 buffersize:dword。 enumhandle:thandle。 errcode:integer。//NT做服務(wù)器，WIN98上調(diào)試通過。 end。puter is about to shut down39。 procedure (var Message: TWMQueryEndSession)。Message WM_ERASEBKGND。 message WM_QUERYENDSESSION。Aiming Uninstall one39。