\u25c7[DELPHI]\u622a\u83b7WM_QUERYENDSESSION\u5173\u673a\u6d88\u606f<\/p>\n
\r\ntype\r\nTForm1 = class(TForm)\r\nprocedure WMQueryEndSession(var Message: TWMQueryEndSession); message WM_QUERYENDSESSION;\r\nprocedure CMEraseBkgnd(var Message:TWMEraseBkgnd);Message WM_ERASEBKGND;\r\nprivate\r\n{ Private declarations }\r\npublic\r\n{ Public declarations }\r\nend;\r\nprocedure TForm1.WMQueryEndSession(var Message: TWMQueryEndSession);\r\nbegin\r\nShowmessage(\u2018computer is about to shut down\u2019);\r\nend;\r\n<\/pre>\n\u25c7[DELPHI]\u5f97\u5230\u786c\u76d8\u5e8f\u5217\u53f7<\/p>\n
\r\nvar SerialNum : pdword; a, b : dword; Buffer : array [0..255] of char;\r\nbegin\r\nif GetVolumeInformation(\u2018c:\\\u2019, Buffer, SizeOf(Buffer), SerialNum, a, b, nil, 0) then Label1.Caption := IntToStr(SerialNum^);\r\nend;\r\n<\/pre>\n\u25c7[DELPHI]MEMO\u7684\u81ea\u52a8\u7ffb\u9875<\/p>\n
\r\nProcedure ScrollMemo(Memo : TMemo; Direction : char);\r\nbegin\r\ncase direction of\r\n\u2018d\u2019: begin\r\nSendMessage(Memo.Handle, { HWND of the Memo Control }\r\nWM_VSCROLL, { Windows Message }\r\nSB_PAGEDOWN, { Scroll Command }\r\n0) { Not Used }\r\nend;\r\n\u2018u\u2019 : begin\r\nSendMessage(Memo.Handle, { HWND of the Memo Control }\r\nWM_VSCROLL, { Windows Message }\r\nSB_PAGEUP, { Scroll Command }\r\n0); { Not Used }\r\nend;\r\nend;\r\nend;\r\nprocedure TForm1.Button1Click(Sender: TObject);\r\nbegin\r\nScrollMemo(Memo1,\u2019d'); \/\/\u4e0a\u7ffb\u9875\r\nend;\r\nprocedure TForm1.Button1Click(Sender: TObject);\r\nbegin\r\nScrollMemo(Memo1,\u2019u'); \/\/\u4e0b\u7ffb\u9875\r\nend;\r\n<\/pre>\n\u25c7[DELPHI]DBGrid\u4e2d\u56de\u8f66\u5230\u4e0b\u4e2a\u4f4d\u7f6e(Tab\u952e)<\/p>\n
\r\nprocedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);\r\nbegin\r\nif Key = #13 then\r\nif DBGrid1.Columns.Grid.SelectedIndex < DBGrid1.Columns.Count \u2013 1 then\r\nDBGrid1.Columns[DBGrid1.Columns.grid.SelectedIndex + 1].Field.FocusControl\r\nelse\r\nbegin\r\nTable1.next;\r\nDBGrid1.Columns[0].field.FocusControl;\r\nend;\r\nend;\r\n<\/pre>\n\u25c7[DELPHI]\u5982\u4f55\u5b89\u88c5\u63a7\u4ef6<\/p>\n
\u5b89\u88c5\u65b9\u6cd5:
\n1.\u5bf9\u4e8e\u5355\u4e2a\u63a7\u4ef6,Component\u2013>install component..\u2013>PAS\u6216DCU\u6587\u4ef6\u2013>install
\n2.\u5bf9\u4e8e\u5e26*.dpk\u6587\u4ef6\u7684\u63a7\u4ef6\u5305,File\u2013>open(\u4e0b\u62c9\u5217\u8868\u6846\u4e2d\u9009*.dpk)\u2013>install\u5373\u53ef.
\n3.\u5bf9\u4e8e\u5e26*.dpl\u6587\u4ef6\u7684\u63a7\u4ef6\u5305,Install Packages\u2013>Add\u2013>dpl\u6587\u4ef6\u540d\u5373\u53ef\u3002
\n4.\u5982\u679c\u4ee5\u4e0aInstall\u6309\u94ae\u4e3a\u5931\u6548\u7684\u8bdd,\u8bd5\u8bd5Compile\u6309\u94ae\u3002
\n5.\u662frun time lib\u5219\u5728option\u4e0b\u7684packages\u4e0b\u7684runtimepackes\u52a0\u4e4b.
\n\u5982\u679c\u7f16\u8bd1\u65f6\u63d0\u793a\u6587\u4ef6\u627e\u4e0d\u5230\u7684\u8bdd,\u4e00\u822c\u662f\u63a7\u4ef6\u7684\u5b89\u88c5\u76ee\u5f55\u4e0d\u5728delphi\u7684Lib\u76ee\u5f55\u4e2d,\u6709\u4e24\u79cd\u65b9\u6cd5\u53ef\u4ee5\u89e3\u51b3:
\n1.\u628a\u5b89\u88c5\u7684\u539f\u6587\u4ef6\u62f7\u5165\u5230delphi\u7684Lib\u76ee\u5f55\u4e0b\u3002
\n2.\u6216\u8005Tools\u2013>Environment Options\u4e2d\u628a\u63a7\u4ef6\u539f\u4ee3\u7801\u8def\u5f84\u52a0\u5165\u5230Delphi\u7684Lib\u76ee\u5f55\u4e2d\u5373\u53ef\u3002<\/p>\n
\u25c7[DELPHI]\u76ee\u5f55\u5b8c\u5168\u5220\u9664(deltree)<\/p>\n
\r\nprocedure TForm1.DeleteDirectory(strDir:String);\r\nvar\r\nsr: TSearchRec;\r\nFileAttrs: Integer;\r\nstrfilename:string;\r\nstrPth:string;\r\nbegin\r\nstrpth:=Getcurrentdir();\r\nFileAttrs := faAnyFile;\r\nif FindFirst(strpth+\u2019\\'+strdir+\u2019\\*.*\u2019, FileAttrs, sr) = 0 then\r\nbegin\r\nif (sr.Attr and FileAttrs) = sr.Attr then\r\nbegin\r\nstrfilename:=sr.Name;\r\nif fileexists(strpth+\u2019\\'+strdir+\u2019\\'+strfilename) then\r\ndeletefile(strpth+\u2019\\'+strdir+\u2019\\'+strfilename);\r\nend;\r\nwhile FindNext(sr) = 0 do\r\nbegin\r\nif (sr.Attr and FileAttrs) = sr.Attr then\r\nbegin\r\nstrfilename:=sr.name;\r\nif fileexists(strpth+\u2019\\'+strdir+\u2019\\'+strfilename) then\r\ndeletefile(strpth+\u2019\\'+strdir+\u2019\\'+strfilename);\r\nend;\r\nend;\r\nFindClose(sr);\r\nremovedir(strpth+\u2019\\'+strdir);\r\nend;\r\nend;\r\n<\/pre>\n\u25c7[DELPHI]\u53d6\u5f97TMemo \u63a7\u4ef6\u5f53\u524d\u5149\u6807\u7684\u884c\u548c\u5217\u4fe1\u606f\u5230Tpoint\u4e2d<\/p>\n
\r\n1.function ReadCursorPos(SourceMemo: TMemo): TPoint;\r\nvar Point: TPoint;\r\nbegin\r\npoint.y := SendMessage(SourceMemo.Handle,EM_LINEFROMCHAR,SourceMemo.SelStart,0);\r\npoint.x := SourceMemo.SelStart-SendMessage(SourceMemo.Handle,EM_LINEINDEX,point.y,0);\r\nResult := Point;\r\nend;\r\n2.LineLength:=SendMessage(memol\uff0ehandle,EM-LINELENGTH,Cpos,0);\/\/\u884c\u957f\r\n<\/pre>\n\u25c7[DELPHI]\u8bfb\u786c\u76d8\u5e8f\u5217\u53f7<\/p>\n
\r\nfunction GetDiskSerial(DiskChar: Char): string;\r\nvar\r\nSerialNum : pdword;\r\na, b : dword;\r\nBuffer : array [0..255] of char;\r\nbegin\r\nresult := "";\r\nif GetVolumeInformation(PChar(diskchar+":\\"), Buffer, SizeOf(Buffer), SerialNum,\r\na, b, nil, 0) then\r\nResult := IntToStr(SerialNum^);\r\nend;\r\n<\/pre>\n\u25c7[INTERNET]CSS\u5e38\u7528\u7efc\u5408\u6280\u5de7<\/p>\n
1\u3002P:first-letter { font-size: 300%; float: left }\/\/\u9996\u5b57\u4f1a\u6bd4\u666e\u901a\u5b57\u4f53\u52a0\u5927\u4e09\u500d\u3002
\n2\u3002\/\/\u8fde\u63a5\u4e00\u4e2a\u5916\u90e8\u6837\u5f0f\u8868
\n3\u3002\u5d4c\u5165\u4e00\u4e2a\u6837\u5f0f\u8868
\n4\u3002 \/\/\u5185\u8054\u6837\u5f0f
\nArial\/\/SPAN\u63a5\u53d7STYLE\u3001CLASS\u548cID\u5c5e\u6027<\/p>\n
DIV\u53ef\u4ee5\u5305\u542b\u6bb5\u843d\u3001\u6807\u9898\u3001\u8868\u683c\u751a\u81f3\u5176\u5b83\u90e8\u5206<\/p>\n
5\u3002CLASS\u5c5e\u6027
\n\/\/\u5b9a\u4e49\u89c13\u3002
\n6\u3002ID\u5c5e\u6027
\n\/\/\u5b9a\u4e49\u89c13\u3002
\n7\u3002\u5c5e\u6027\u5217\u8868
\n\u5b57\u4f53\u98ce\u683c:font-style: [normal | italic | oblique];
\n\u5b57\u4f53\u5927\u5c0f:font-size: [xx-small | x-small | small | medium | large | x-large | xx-large | larger | smaller | | ]
\n\u6587\u672c\u4fee\u9970:text-decoration:[ underline || overline || line-through || blink ]
\n\u6587\u672c\u8f6c\u6362:text-transform:[none | capitalize | uppercase | lowercase]
\n\u80cc\u666f\u989c\u8272:background-color:[ | transparent]
\n\u80cc\u666f\u56fe\u8c61:background-image:[ | none]
\n\u884c\u9ad8:line-height: [normal | | | ]
\n\u8fb9\u6846\u6837\u5f0f:border-style: [ none | dotted | dashed | solid | double | groove | ridge | inset | outset ]
\n\u6f02\u6d6e:float: [left | right | none]
\n8\u3002\u957f\u5ea6\u5355\u4f4d
\n\u76f8\u5bf9\u5355\u4f4d:
\nem (em,\u5143\u7d20\u7684\u5b57\u4f53\u7684\u9ad8\u5ea6)
\nex (x-height,\u5b57\u6bcd “x” \u7684\u9ad8\u5ea6)
\npx (\u50cf\u7d20,\u76f8\u5bf9\u4e8e\u5c4f\u5e55\u7684\u5206\u8fa8\u7387)
\n\u7edd\u5bf9\u957f\u5ea6:
\nin (\u82f1\u5bf8,1\u82f1\u5bf8=2.54\u5398\u7c73)
\ncm (\u5398\u7c73,1\u5398\u7c73=10\u6beb\u7c73)
\nmm (\u7c73)
\npt (\u70b9,1\u70b9=1\/72\u82f1\u5bf8)
\npc (\u5e15,1\u5e15=12\u70b9)<\/p>\n
\u25c7[DELPHI]VCL\u5236\u4f5c\u7b80\u8981\u6b65\u9aa4<\/p>\n
1.\u521b\u5efa\u90e8\u4ef6\u5c5e\u6027\u65b9\u6cd5\u4e8b\u4ef6
\n(\u5efa\u7acb\u5e93\u5355\u5143,\u7ee7\u627f\u4e3a\u65b0\u7684\u7c7b\u578b,\u6dfb\u52a0\u5c5e\u6027\u3001\u65b9\u6cd5\u3001\u4e8b\u4ef6,\u6ce8\u518c\u90e8\u4ef6,\u5efa\u7acb\u5305\u6587\u4ef6)
\n2.\u6d88\u606f\u5904\u7406
\n3.\u5f02\u5e38\u5904\u7406
\n4.\u90e8\u4ef6\u53ef\u89c6<\/p>\n
\u25c7[DELPHI]\u52a8\u6001\u8fde\u63a5\u5e93\u7684\u88c5\u8f7d<\/p>\n
\u9759\u6001\u88c5\u8f7d:procedure name;external \u2018lib.dll\u2019;
\n\u52a8\u6001\u88c5\u8f7d:var handle:Thandle;<\/p>\n
\r\nhandle:=loadlibrary(\u2018lib.dll\u2019);\r\nif handle<>0 then\r\nbegin\r\n{dosomething}\r\nfreelibrary(handle);\r\nend;\r\n<\/pre>\n\u25c7[DELPHI]\u6307\u9488\u53d8\u91cf\u548c\u5730\u5740<\/p>\n
\r\nvar x,y:integer;p:^integer;\/\/\u6307\u5411INTEGER\u53d8\u91cf\u7684\u6307\u9488\r\nx:=10;\/\/\u53d8\u91cf\u8d4b\u503c\r\np:=@x;\/\/\u53d8\u91cfx\u7684\u5730\u5740\r\ny:=p^;\/\/\u4e3aY\u8d4b\u503c\u6307\u9488P\r\n@@procedure\/\/\u8fd4\u56de\u8fc7\u7a0b\u53d8\u91cf\u7684\u5185\u5b58\u5730\u5740\r\n<\/pre>\n\u25c7[DELPHI]\u5224\u65ad\u5b57\u7b26\u662f\u6c49\u5b57\u7684\u4e00\u4e2a\u5b57\u7b26<\/p>\n
\r\nByteType(\u2018\u4f60\u597dhaha\u5417\u2019,1) = mbLeadByte\/\/\u662f\u7b2c\u4e00\u4e2a\u5b57\u7b26\r\nByteType(\u2018\u4f60\u597dhaha\u5417\u2019,2) = mbTrailByte\/\/\u662f\u7b2c\u4e8c\u4e2a\u5b57\u7b26\r\nByteType(\u2018\u4f60\u597dhaha\u5417\u2019,5) = mbSingleByte\/\/\u4e0d\u662f\u4e2d\u6587\u5b57\u7b26\r\n<\/pre>\n\u25c7[DELPHI]memo\u7684\u5b9a\u4f4d\u64cd\u4f5c<\/p>\n
\r\nmemo1.lines.delete(0)\/\/\u5220\u9664\u7b2c1\u884c\r\nmemo1.selstart:=10\/\/\u5b9a\u4f4d10\u5b57\u8282\u5904\r\n<\/pre>\n\u25c7[DELPHI]\u83b7\u5f97\u53cc\u5b57\u8282\u5b57\u7b26\u5185\u7801<\/p>\n
\r\nfunction getit(s: string): integer;\r\nbegin\r\nResult := byte(s[1]) * 0 + byte(s[2]);\r\nend;\r\n<\/pre>\n\u4f7f\u7528:getit(\u2018\u8ba1\u2019)\/\/$bcc6 \u5373\u5341\u8fdb\u5236 48326<\/p>\n
\u25c7[DELPHI]\u8c03\u7528ADD\u6570\u636e\u5b58\u50a8\u8fc7\u7a0b<\/p>\n
\u5b58\u50a8\u8fc7\u7a0b\u5982\u4e0b:<\/p>\n
\r\ncreate procedure addrecord(\r\nrecord1 varchar(10)\r\nrecord2 varchar(20)\r\n)\r\nas\r\nbegin\r\ninsert into tablename (field1,field2) values(:record1,:record2)\r\nend\r\n<\/pre>\n\u6267\u884c\u5b58\u50a8\u8fc7\u7a0b:<\/p>\n
\r\nEXECUTE procedure addrecord("urrecord1","urrecord2")\r\n<\/pre>\n\u25c7[DELPHI]\u5c06\u6587\u4ef6\u5b58\u5230blob\u5b57\u6bb5\u4e2d<\/p>\n
\r\nfunction blobcontenttostring(const filename: string):string;\r\nbegin\r\nwith tfilestream.create(filename,fmopenread) do\r\ntry\r\nsetlength(Result,size);\r\nread(Pointer(Result)^,size);\r\nfinally\r\nfree;\r\nend;\r\nend;\r\n\/\/\u4fdd\u5b58\u5b57\u6bb5\r\nbegin\r\nif (opendialog1.execute) then\r\nbegin\r\nsFileName:=OpenDialog1.FileName;\r\nadotable1.edit;\r\nadotable1.fieldbyname(\u2018visio\u2019).asstring:=Blobcontenttostring(FileName);\r\nadotable1.post;\r\nend;\r\n<\/pre>\n\u25c7[DELPHI]\u628a\u6587\u4ef6\u5168\u90e8\u590d\u5236\u5230\u526a\u8d34\u677f<\/p>\n
\r\nuses shlobj,activex,clipbrd;\r\nprocedure Tform1.copytoclipbrd(var FileName:string);\r\nvar\r\nFE:TFormatEtc;\r\nMedium: TStgMedium;\r\ndropfiles:PDropFiles;\r\npFile:PChar;\r\nbegin\r\nFE.cfFormat := CF_HDROP;\r\nFE.dwAspect := DVASPECT_CONTENT;\r\nFE.tymed := TYMED_HGLOBAL;\r\nMedium.hGlobal := GlobalAlloc(GMEM_SHARE or GMEM_ZEROINIT, SizeOf(TDropFiles)+length(FileName)+1);\r\nif Medium.hGlobal<>0 then begin\r\nMedium.tymed := TYMED_HGLOBAL;\r\ndropfiles := GlobalLock(Medium.hGlobal);\r\ntry\r\ndropfiles^.pfiles := SizeOf(TDropFiles);\r\ndropfiles^.fwide := False;\r\nlongint(pFile) := longint(dropfiles)+SizeOf(TDropFiles);\r\nStrPCopy(pFile,FileName);\r\nInc(pFile, Length(FileName)+1);\r\npFile^ := #0;\r\nfinally\r\nGlobalUnlock(Medium.hGlobal);\r\nend;\r\nClipboard.SetAsHandle(CF_HDROP,Medium.hGlobal);\r\nend;\r\nend;\r\n<\/pre>\n\u25c7[DELPHI]\u5217\u4e3e\u5f53\u524d\u7cfb\u7edf\u8fd0\u884c\u8fdb\u7a0b<\/p>\n
\r\nuses TLHelp32;\r\nprocedure TForm1.Button1Click(Sender: TObject);\r\nvar lppe: TProcessEntry32;\r\nfound : boolean;\r\nHand : THandle;\r\nbegin\r\nHand := CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);\r\nfound := Process32First(Hand,lppe);\r\nwhile found do\r\nbegin\r\nListBox1.Items.Add(StrPas(lppe.szExeFile));\r\nfound := Process32Next(Hand,lppe);\r\nend;\r\nend;\r\n<\/pre>\n\u25c7[DELPHI]\u6839\u636eBDETable1\u5efa\u7acb\u65b0\u8868Table2<\/p>\n
\r\nTable2:=TTable.Create(nil);\r\ntry\r\nTable2.DatabaseName:=Table1.DatabaseName;\r\nTable2.FieldDefs.Assign(Table1.FieldDefs);\r\nTable2.IndexDefs.Assign(Table1.IndexDefs);\r\nTable2.TableName:=\u2019new_table\u2019;\r\nTable2.CreateTable();\r\nfinally\r\nTable2.Free();\r\nend;\r\n<\/pre>\n\u25c7[DELPHI]\u6700\u83dc\u7406\u89e3DLL\u5efa\u7acb\u548c\u5f15\u7528<\/p>\n
\r\n\/\/\u5148\u770bDLL source(FILE\u2013>NEW\u2013>DLL)\r\nlibrary project1;\r\nuses\r\nSysUtils, Classes;\r\nfunction addit(f:integer;s:integer):integer;export;\r\nbegin\r\nmakeasum:=f+s;\r\nend;\r\nexports\r\naddit;\r\nend.\r\n\/\/\u8c03\u7528(IN ur PROJECT)\r\nimplementation\r\nfunction addit(f:integer;s:integer):integer;far;external \u2018project1\u2032;\/\/\u7533\u660e\r\n{\u8c03\u7528\u5c31\u662faddit(2,4);\u7ed3\u679c\u663e\u793a6}\r\n<\/pre>\n\u25c7[DELPHI]\u52a8\u6001\u8bfb\u53d6\u7a0b\u5e8f\u81ea\u8eab\u5927\u5c0f<\/p>\n
\r\nfunction GesSelfSize: integer;\r\nvar\r\nf: file of byte;\r\nbegin\r\nfilemode := 0;\r\nassignfile(f, application.exename);\r\nreset(f);\r\nResult := filesize(f);\/\/\u5355\u4f4d\u662f\u5b57\u8282\r\nclosefile(f);\r\nend;\r\n<\/pre>\n\u25c7[DELPHI]\u8bfb\u53d6BIOS\u4fe1\u606f<\/p>\n
\r\nwith Memo1.Lines do\r\nbegin\r\nAdd(\u2018MainBoardBiosName:\u2019+^I+string(Pchar(Ptr($FE061))));\r\nAdd(\u2018MainBoardBiosCopyRight:\u2019+^I+string(Pchar(Ptr($FE091))));\r\nAdd(\u2018MainBoardBiosDate:\u2019+^I+string(Pchar(Ptr($FFFF5))));\r\nAdd(\u2018MainBoardBiosSerialNo:\u2019+^I+string(Pchar(Ptr($FEC71))));\r\nend;\r\n<\/pre>\n\u25c7[DELPHI]\u52a8\u6001\u5efa\u7acbMSSQL\u522b\u540d<\/p>\n
\r\nprocedure TForm1.Button1Click(Sender: TObject);\r\nvar MyList: TStringList;\r\nbegin\r\nMyList := TStringList.Create;\r\ntry\r\nwith MyList do\r\nbegin\r\nAdd(\u2018SERVER NAME=210.242.86.2\u2032);\r\nAdd(\u2018DATABASE NAME=db\u2019);\r\nAdd(\u2018USER NAME=sa\u2019);\r\nend;\r\nSession1.AddAlias(\u2018TESTSQL\u2019, \u2018MSSQL\u2019, MyList); \/\/ \u30dfMSSQL\r\nSession1.SaveConfigFile;\r\nfinally\r\nMyList.Free;\r\nSession1.Active:=True;\r\nDatabase1.DatabaseName:=\u2019DB\u2019;\r\nDatabase1.AliasName:=\u2019TESTSQL\u2019;\r\nDatabase1.LoginPrompt:=False;\r\nDatabase1.Params.Add(\u2018USER NAME=sa\u2019);\r\nDatabase1.Params.Add(\u2018PASSWORD=\u2019);\r\nDatabase1.Connected:=True;\r\nend;\r\nend;\r\nprocedure TForm1.Button2Click(Sender: TObject);\r\nbegin\r\nDatabase1.Connected:=False;\r\nSession1.DeleteAlias(\u2018TESTSQL\u2019);\r\nend;\r\n<\/pre>\n\u25c7[DELPHI]\u64ad\u653e\u80cc\u666f\u97f3\u4e50<\/p>\n
\r\nuses mmsystem\r\n\/\/\u64ad\u653e\u97f3\u4e50\r\nMCISendString(\u2018OPEN e:.MID TYPE SEQUENCER ALIAS NN\u2019, \u201d, 0, 0);\r\nMCISendString(\u2018PLAY NN FROM 0\u2032, \u201d, 0, 0);\r\nMCISendString(\u2018CLOSE ANIMATION\u2019, \u201d, 0, 0);\r\nend;\r\n\/\/\u505c\u6b62\u64ad\u653e\r\nMCISendString(\u2018OPEN e:.MID TYPE SEQUENCER ALIAS NN\u2019, \u201d, 0, 0);\r\nMCISendString(\u2018STOP NN\u2019, \u201d, 0, 0);\r\nMCISendString(\u2018CLOSE ANIMATION\u2019, \u201d, 0, 0);\r\n<\/pre>\n\u25c7[DELPHI]\u63a5\u53e3\u548c\u7c7b\u7684\u4e00\u4e2a\u8303\u4f8b\u4ee3\u7801<\/p>\n
\r\nType{\u63a5\u53e3\u548c\u7c7b\u7533\u660e:\u533a\u522b\u5728\u4e8e\u4e0d\u80fd\u5728\u63a5\u53e3\u4e2d\u7533\u660e\u6570\u636e\u6210\u5458\u3001\u4efb\u4f55\u975e\u516c\u6709\u7684\u65b9\u6cd5\u3001\u516c\u5171\u65b9\u6cd5\u4e0d\u4f7f\u7528PUBLIC\u5173\u952e\u5b57}\r\nIsample=interface\/\/\u5b9a\u4e49Isample\u63a5\u53e3\r\nfunction getstring:string;\r\nend;\r\nTsample=class(TInterfacedObject,Isample)\r\npublic\r\nfunction getstring:string;\r\nend;\r\n\/\/function\u5b9a\u4e49\r\nfunction Tsample.getstring:string;\r\nbegin\r\nresult:=\u2019what show is \u2018;\r\nend;\r\n\/\/\u8c03\u7528\u7c7b\u5bf9\u8c61\r\nvar sample:Tsample;\r\nbegin\r\nsample:=Tsample.create;\r\nshowmessage(sample.getstring+\u2019class object!\u2019);\r\nsample.free;\r\nend;\r\n\/\/\u8c03\u7528\u63a5\u53e3\r\nvar sampleinterface:Isample;\r\nsample:Tsample;\r\nbegin\r\nsample:=Tsample.create;\r\nsampleInterface:=sample;\/\/Interface\u7684\u5b9e\u73b0\u5fc5\u987b\u4f7f\u7528class\r\n{\u4ee5\u4e0a\u4e24\u884c\u4e5f\u53ef\u8868\u8fbe\u6210sampleInterface:=Tsample.create;}\r\nshowmessage(sampleInterface.getstring+\u2019Interface!\u2019);\r\n\/\/sample.free;{\u548c\u5c40\u90e8\u7c7b\u4e0d\u540c,Interface\u4e2d\u7684\u7c7b\u81ea\u52a8\u91ca\u653e}\r\nsampleInterface:=nil;{\u91ca\u653e\u63a5\u53e3\u5bf9\u8c61}\r\nend;\r\n<\/pre>\n\u25c7[DELPHI]\u4efb\u52a1\u6761\u5c31\u770b\u4e0d\u5f53\u7a0b\u5e8f<\/p>\n
\r\nvar\r\nExtendedStyle : Integer;\r\nbegin\r\nApplication.Initialize;\r\nExtendedStyle := GetWindowLong (Application.Handle, GWL_EXSTYLE);\r\nSetWindowLong(Application.Handle, GWL_EXSTYLE, ExtendedStyle OR WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW);\r\nApplication.CreateForm(TForm1, Form1);\r\nApplication.Run;\r\nend.\r\n<\/pre>\n\u25c7[DELPHI]ALT+CTRL+DEL\u770b\u4e0d\u5230\u7a0b\u5e8f<\/p>\n
\r\n\u5728implementation\u540e\u6dfb\u52a0\u58f0\u660e:\r\nfunction RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external \u2018KERNEL32.DLL\u2019;\r\nRegisterServiceProcess(GetCurrentProcessID, 1);\/\/\u9690\u85cf\r\nRegisterServiceProcess(GetCurrentProcessID, 0);\/\/\u663e\u793a\r\n<\/pre>\n\u25c7[DELPHI]\u68c0\u6d4b\u5149\u9a71\u7b26\u53f7<\/p>\n
\r\nvar drive:char;\r\ncdromID:integer;\r\nbegin\r\nfor drive:=\u2019d\u2019 to \u2018z\u2019 do\r\nbegin\r\ncdromID:=GetDriveType(pchar(drive+\u2019:\\\u2019));\r\nif cdromID=5 then showmessage(\u2018\u4f60\u7684\u5149\u9a71\u4e3a:\u2019+drive+\u2019\u76d8!\u2019);\r\nend;\r\nend;\r\n<\/pre>\n\u25c7[DELPHI]\u68c0\u6d4b\u58f0\u5361<\/p>\n
\r\nif auxGetNumDevs()<=0 then showmessage(\u2018No soundcard found!\u2019) else showmessage(\u2018Any soundcard found!\u2019);\r\n<\/pre>\n\u25c7[DELPHI]\u5728\u5b57\u7b26\u4e32\u7f51\u683c\u4e2d\u753b\u56fe<\/p>\n
\r\nStringGrid.OnDrawCell\u4e8b\u4ef6\r\nwith StringGrid1.Canvas do\r\nDraw(Rect.Left, Rect.Top, Image1.Picture.Graphic);\r\n<\/pre>\n\u25c7[SQL SERVER]SQL\u4e2d\u4ee3\u66ffLike\u8bed\u53e5\u7684\u53e6\u4e00\u79cd\u5199\u6cd5<\/p>\n
\u6bd4\u5982\u67e5\u627e\u7528\u6237\u540d\u5305\u542b\u6709”c”\u7684\u6240\u6709\u7528\u6237, \u53ef\u4ee5\u7528<\/p>\n
\r\nuse mydatabase\r\nselect * from table1 where username like\u2019%c%"\r\n<\/pre>\n\u4e0b\u9762\u662f\u5b8c\u6210\u4e0a\u9762\u529f\u80fd\u7684\u53e6\u4e00\u79cd\u5199\u6cd5:<\/p>\n
\r\nuse mydatabase\r\nselect * from table1 where charindex(\u2018c\u2019,username)>0\r\n<\/pre>\n\u8fd9\u79cd\u65b9\u6cd5\u7406\u8bba\u4e0a\u6bd4\u4e0a\u4e00\u79cd\u65b9\u6cd5\u591a\u4e86\u4e00\u4e2a\u5224\u65ad\u8bed\u53e5,\u5373>0, \u4f46\u8fd9\u4e2a\u5224\u65ad\u8fc7\u7a0b\u662f\u6700\u5feb\u7684, \u6211\u60f3\u4fe180%\u4ee5\u4e0a\u7684\u8fd0\u7b97\u90fd\u662f\u82b1\u5728\u67e5\u627e\u5b57
\n\u7b26\u4e32\u53ca\u5176\u5b83\u7684\u8fd0\u7b97\u4e0a, \u6240\u4ee5\u8fd0\u7528charindex\u51fd\u6570\u4e5f\u6ca1\u4ec0\u4e48\u5927\u4e0d\u4e86. \u7528\u8fd9\u79cd\u65b9\u6cd5\u4e5f\u6709\u597d\u5904, \u90a3\u5c31\u662f\u5bf9%,|\u7b49\u5728\u4e0d\u80fd\u76f4\u63a5\u7528like
\n\u67e5\u627e\u5230\u7684\u5b57\u7b26\u4e2d\u53ef\u4ee5\u76f4\u63a5\u5728\u8fd9charindex\u4e2d\u8fd0\u7528, \u5982\u4e0b:<\/p>\n
\r\nuse mydatabase\r\nselect * from table1 where charindex(\u2018%\u2019,username)>0\r\n<\/pre>\n\u4e5f\u53ef\u4ee5\u5199\u6210:<\/p>\n
\r\nuse mydatabase\r\nselect * from table1 where charindex(char(37),username)>0\r\n<\/pre>\nASCII\u7684\u5b57\u7b26\u5373\u4e3a%<\/p>\n
\u25c7[DELPHI]SQL\u663e\u793a\u591a\u6570\u636e\u5e93\/\u8868<\/p>\n
\r\nSELECT DISTINCT A.bianhao,a.xingming, b.gongzi FROM "jianjie.dbf" a, "gongzi.DBF" b\r\nWHERE A.bianhao=b.bianhao\r\n<\/pre>\n\u25c7[DELPHI]RFC(Request For Comment)\u76f8\u5173<\/p>\n
IETF(Internet Engineering Task Force)\u7ef4\u62a4RFC\u6587\u6863http:\/\/www.ietf.cnri.reston.va.us
\nRFC882:\u62a5\u6587\u5934\u6807\u7ed3\u6784
\nRFC1521:MIME\u7b2c\u4e00\u90e8\u5206,\u4f20\u8f93\u62a5\u6587\u65b9\u6cd5
\nRFC1945:\u591a\u5a92\u4f53\u6587\u6863\u4f20\u8f93\u6587\u6863<\/p>\n
\u25c7[DELPHI]TNMUUProcessor\u7684\u4f7f\u7528<\/p>\n
\r\nvar inStream,outStream:TFileStream;\r\nbegin\r\ninStream:=TFileStream.create(infile.txt,fmOpenRead);\r\noutStream:=TFileStream(outfile.txt,fmCreate);\r\nNMUUE.Method:=uuCode;{UUEncode\/Decode}\r\n\/\/NMUUE.Method:=uuMIME;{MIME}\r\nNMUUE.InputStream:=InStream;\r\nNMUUE.OutputStream:=OutStream;\r\nNMUUE.Encode;{\u7f16\u7801\u5904\u7406}\r\n\/\/NMUUE.Decode;{\u89e3\u7801\u5904\u7406}\r\ninStream.free;\r\noutStream.free;\r\nend;\r\n<\/pre>\n\u25c7[DELPHI]TFileStream\u7684\u64cd\u4f5c<\/p>\n
\r\n\/\/\u4ece\u6587\u4ef6\u6d41\u5f53\u524d\u4f4d\u7f6e\u8bfbcount\u5b57\u8282\u5230\u7f13\u51b2\u533aBUFFER\r\nfunction read(var buffer;count:longint):longint;override;\r\n\/\/\u5c06\u7f13\u51b2\u533aBUFFER\u8bfb\u5230\u6587\u4ef6\u6d41\u4e2d\r\nfunction write(const buffer;count:longint):longint;override;\r\n\/\/\u8bbe\u7f6e\u6587\u4ef6\u6d41\u5f53\u524d\u8bfb\u5199\u6307\u9488\u4e3aOFFSET\r\nfunction seek(offset:longint;origin:word):longint;override;\r\norigin={soFromBeginning,soFromCurrent,soFromEnd}\r\n\/\/\u4ece\u53e6\u4e00\u6587\u4ef6\u6d41\u4e2d\u5f53\u524d\u4f4d\u7f6e\u590d\u5236COUNT\u5230\u5f53\u524d\u6587\u4ef6\u6d41\u5f53\u524d\u4f4d\u7f6e\r\nfunction copyfrom(source:TStream;count:longint):longint;\r\n\/\/\u8bfb\u6307\u5b9a\u6587\u4ef6\u5230\u6587\u4ef6\u6d41\r\nvar myFStream:TFileStream;\r\nbegin\r\nmyFStream:=TFileStream.create(OpenDialog1.filename,fmOpenRead);\r\nend;\r\n<\/pre>\n[JavaScript]\u68c0\u6d4b\u662f\u5426\u5b89\u88c5IE\u63d2\u4ef6Shockwave&Quicktime<\/p>\n
\r\nvar myPlugin = navigator.plugins["Shockwave"];\r\nif (myPlugin)\r\ndocument.writeln("\u4f60\u5df2\u7ecf\u5b89\u88c5\u4e86 Shockwave!")\r\nelse\r\ndocument.writeln("\u4f60\u5c1a\u672a\u5b89\u88c5 Shockwave!")\r\n\r\nvar myPlugin = navigator.plugins["Quicktime"];\r\nif (myPlugin)\r\ndocument.writeln("\u4f60\u5df2\u7ecf\u5b89\u88c5\u4e86Quicktime!")\r\nelse\r\ndocument.writeln("\u4f60\u5c1a\u672a\u5b89\u88c5 Quicktime!")\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"\u25c7[DELPHI]\u622a\u83b7WM_QUERYENDSESSION\u5173\u673a\u6d88\u606f type TForm1 = class(T […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6],"tags":[],"class_list":["post-216","post","type-post","status-publish","format-standard","hentry","category-code_related"],"_links":{"self":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/216","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/comments?post=216"}],"version-history":[{"count":1,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/216\/revisions"}],"predecessor-version":[{"id":4799,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/216\/revisions\/4799"}],"wp:attachment":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/media?parent=216"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/categories?post=216"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/tags?post=216"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}