⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 大富翁论坛-富翁笔记-delphi技巧.mht

📁 大富翁论坛-富翁笔记-delphi技巧, 一个牛人的编程经验和笔记, 强烈推荐
💻 MHT
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
From: <由 Microsoft Internet Explorer 5 保存>
Subject: =?gb2312?B?tPO4u87MwtvMsy24u87Mscq8xy1kZWxwaGm8vMfJ?=
Date: Tue, 13 Dec 2005 18:52:57 +0800
MIME-Version: 1.0
Content-Type: multipart/related;
	type="text/html";
	boundary="----=_NextPart_000_0000_01C60016.6EEC2C90"
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2530

This is a multi-part message in MIME format.

------=_NextPart_000_0000_01C60016.6EEC2C90
Content-Type: text/html;
	charset="gb2312"
Content-Transfer-Encoding: quoted-printable
Content-Location: http://www.delphibbs.com/keylife/iblog_show.asp?xid=18885

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML =
xmlns:tools><HEAD><TITLE>=B4=F3=B8=BB=CE=CC=C2=DB=CC=B3-=B8=BB=CE=CC=B1=CA=
=BC=C7-delphi=BC=BC=C7=C9</TITLE>
<META http-equiv=3DContent-Type content=3D"text/html; charset=3Dgb2312">
<META =
content=3D=B4=F3=B8=BB=CE=CC,=C2=DB=CC=B3,=BC=BC=CA=F5,=BB=FD=B7=D6,=C5=C5=
=D0=D0=B0=F1,Delphi,Kylix,Java,XML,XSLT,forum,Blog=20
name=3Dkeywords>
<META=20
content=3D"=B4=F3=B8=BB=CE=CC=B1=E0=B3=CC=CD=F8=D5=BE(delphibbs.com)=B9=D8=
=D3=DA Delphi, Kylix, Java, DotNet =
=B5=C4=BC=BC=CA=F5=C2=DB=CC=B3=A1=A3=B2=C9=D3=C3=BB=FD=B7=D6=D3=CE=CF=B7=D0=
=CE=CA=BD=A3=AC=BF=BF=C4=FA=B5=C4=D6=C7=BB=DB=C9=CF=B4=F3=B8=BB=CE=CC=C5=C5=
=D0=D0=B0=F1=A3=A1"=20
name=3Ddescription>
<STYLE type=3Dtext/css>
@media All   =20
{
tools\:ubb {
	BEHAVIOR: url("ubb.htc")
}

}
</STYLE>
<LINK href=3D"http://www.delphibbs.com/delphibbs/web_font.css" =
type=3Dtext/css=20
rel=3Dstylesheet>
<SCRIPT src=3D"http://www.delphibbs.com/delphibbs/loadxmln.js"></SCRIPT>

<META content=3D"MSHTML 6.00.2900.2627" name=3DGENERATOR></HEAD>
<BODY topMargin=3D2 onload=3DshowMsg();googlead(); rightMargin=3D6>
<TABLE cellSpacing=3D0 cellPadding=3D0 width=3D"100%" align=3Dcenter =
border=3D0>
  <TBODY>
  <TR>
    <TD align=3Dmiddle>
      <DIV style=3D"RIGHT: 10px; POSITION: absolute; TOP: 0px"><A=20
      href=3D"javascript:SaveAs();">=B1=A3=B4=E6</A> <A=20
      =
href=3D"http://www.delphibbs.com/delphibbs/URLComment.asp?url=3D/keylife/=
iblog_show.asp">=C6=C0=BC=DB</A>=20
      </DIV><A =
href=3D"http://www.delphibbs.com/delphibbs/rules.asp">=D3=CE=CF=B7=B9=E6=D4=
=F2</A> <A=20
      =
href=3D"http://www.delphibbs.com/delphibbs/register.asp">=C3=E2=B7=D1=D7=A2=
=B2=E1</A> <IMG=20
      height=3D60 src=3D"http://www.delphibbs.com/delphibbs/dfwlogo.gif" =
width=3D240=20
      align=3Dmiddle> <A style=3D"COLOR: red"=20
      =
href=3D"http://www.delphibbs.com/delphibbs/download.asp">=D7=CA=C1=CF=CF=C2=
=D4=D8</A> <A=20
      =
href=3D"http://www.delphibbs.com/delphibbs/index.asp">=B9=D8=D3=DA=B1=BE=D5=
=BE</A> </TD></TR>
  <TR>
    <TD align=3Dmiddle colSpan=3D2><A=20
      =
href=3D"http://www.delphibbs.com/delphibbs/listroom.asp">=CE=CA=CC=E2=B7=D6=
=C0=E0</A> <A=20
      =
href=3D"http://www.delphibbs.com/delphibbs/listq.asp">=B1=E0=B3=CC=CE=CA=CC=
=E2</A> <A=20
      =
href=3D"http://www.delphibbs.com/delphibbs/listq.asp?room=3D1">=B7=C7=BC=BC=
=CA=F5=CC=E2</A> <A=20
      =
href=3D"http://www.delphibbs.com/delphibbs/listu.asp">=B8=BB=CE=CC=C1=D0=B1=
=ED</A> <A=20
      =
href=3D"http://www.delphibbs.com/delphibbs/dispu.asp">=CE=D2=B5=C4=D0=C5=CF=
=A2</A> <A=20
      =
href=3D"http://www.delphibbs.com/delphibbs/askqn.asp">=CC=E1=B3=F6=CE=CA=CC=
=E2</A> <A=20
      =
href=3D"http://www.delphibbs.com/delphibbs/uonline.asp">=D4=DA=CF=DF=B8=BB=
=CE=CC</A> <A=20
      =
href=3D"http://www.delphibbs.com/delphibbs/calendar.asp">=B8=BB=CE=CC=C8=D5=
=C0=FA</A> <A=20
      =
href=3D"http://www.delphibbs.com/keylife/iblog_list.asp">=B1=CA=BC=C7=C1=D0=
=B1=ED</A> <A=20
      =
href=3D"http://www.delphibbs.com/keylife/iblog.asp">=CE=D2=B5=C4=B1=CA=BC=
=C7</A> <A=20
      href=3D"http://www.delphibbs.com/keylife/iblog_man.asp"=20
      target=3D_blank>=D0=B4=D7=F7=B1=CA=BC=C7</A> <A =
href=3D"http://www.richsearch.com/"=20
      target=3D_blank>=C8=AB=CE=C4=BC=EC=CB=F7</A> <A=20
      =
href=3D"http://www.delphibbs.com/book/subject.asp">=A1=B6=D7=A8=BC=D2=C3=C5=
=D5=EF=A1=B7</A> <!--<a =
href=3D"../keylife/almindex.asp">ALM=B4=F3=C8=FC</a>--></TD></TR></TBODY>=
</TABLE><xml id=3Dmenuxml><?xml version=3D"1.0" encoding=3D"gb2312" =
?><DFWML =
type=3D"=D7=A2=B2=E1=D0=C5=CF=A2"><URL>/keylife/iblog_show.asp</URL><QUER=
Y_STRING>xid=3D18885</QUERY_STRING><USER Name=3D"" /></DFWML></xml>
<TABLE id=3Dstage width=3D"100%" align=3Dcenter border=3D0>
  <TBODY>
  <TR>
    <TD vAlign=3Dtop width=3D125 bgColor=3D#eeeeee height=3D340>
      <DIV id=3Dmenupanel></DIV></TD>
    <TD vAlign=3Dtop>
      <DIV id=3Dmainpanel width=3D"680"></DIV>
      <STYLE></STYLE>

      <SCRIPT>
window.name=3D"bc18885";

function  ModifyComment(cid){
	window.open(
	'iblog_addtion_modify.asp?cid=3D'+cid,
	'_blank',
	=
'left=3D190,top=3D100,height=3D360,width=3D600,status=3Dno,toolbar=3Dno,m=
enubar=3Dno,location=3Dno'
	);
}
</SCRIPT>

      <TABLE cellSpacing=3D0 cellPadding=3D0 width=3D"100%">
        <TBODY>
        <TR>
          <TD class=3Dinputcontent>
            <TABLE class=3DTBborder cellSpacing=3D0 cellPadding=3D0 =
width=3D"100%">
              <TBODY>
              <TR class=3DTBtitle=20
              style=3D"PADDING-RIGHT: 2px; PADDING-LEFT: 2px; =
PADDING-BOTTOM: 2px; PADDING-TOP: 2px; HEIGHT: 19px">
                <TD style=3D"FONT-SIZE: 12px" =
align=3Dleft>KeyLife=B8=BB=CE=CC=B1=CA=BC=C7 </TD></TR>
              <TR class=3Dinputcaption>
                <TD=20
                style=3D"PADDING-RIGHT: 2px; PADDING-LEFT: 2px; =
PADDING-BOTTOM: 2px; PADDING-TOP: 2px"><B>=D7=F7=D5=DF=A3=A0:</B>=20
                  <A=20
                  =
href=3D"http://www.delphibbs.com/keylife/iblog.asp?author=3Dcg.410">cg.41=
0</A><BR><B>=B1=EA=CC=E2=A3=A0:</B>=20
                  delphi=BC=BC=C7=C9 <BR><B>=B9=D8=BC=FC=D7=D6:</B> =
<BR><B>=B7=D6=C0=E0=A3=A0:</B> <A=20
                  =
href=3D"http://www.delphibbs.com/keylife/iblog.asp?author=3Dcg.410&amp;ri=
d=3D9999">=B8=F6=C8=CB=D7=A8=C7=F8</A>=20
                  <BR><B>=C3=DC=BC=B6=A3=A0:</B> =B9=AB=BF=AA=20
                  <DIV align=3Dright>(=C6=C0=B7=D6:<FONT =
color=3Dred></FONT> , =BB=D8=B8=B4: 0, =D4=C4=B6=C1:=20
                  104)&nbsp;<A=20
                  =
href=3D"http://www.delphibbs.com/keylife/iblog_comment.asp?xid=3D18885&am=
p;pageno=3D9999">&raquo;&raquo;</A></DIV></TD></TR>
              <TR class=3Dinputcontent>
                <TD><PRE =
id=3Dprestr>=A1=F3[DELPHI]=CD=F8=C2=E7=C1=DA=BE=D3=B8=B4=D6=C6=CE=C4=BC=FE=

uses shellapi;
copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'=
),false);

=A1=F3[DELPHI]=B2=FA=C9=FA=CA=F3=B1=EA=CD=CF=B6=AF=D0=A7=B9=FB
=CD=A8=B9=FDMouseMove=CA=C2=BC=FE=A1=A2DragOver=CA=C2=BC=FE=A1=A2EndDrag=CA=
=C2=BC=FE=CA=B5=CF=D6=A3=AC=C0=FD=C8=E7=D4=DAPANEL=C9=CF=B5=C4LABEL=A3=BA=

var xpanel,ypanel,xlabel,ylabel:integer;
PANEL=B5=C4MouseMove=CA=C2=BC=FE=A3=BAxpanel:=3Dx;ypanel:=3Dy;
PANEL=B5=C4DragOver=CA=C2=BC=FE=A3=BAxpanel:=3Dx;ypanel:=3Dy;
LABEL=B5=C4MouseMove=CA=C2=BC=FE=A3=BAxlabel:=3Dx;ylabel:=3Dy;
LABEL=B5=C4EndDrag=CA=C2=BC=FE=A3=BAlabel.left:=3Dxpanel-xlabel;label.top=
:=3Dypanel-ylabel;

=A1=F3[DELPHI]=C8=A1=B5=C3WINDOWS=C4=BF=C2=BC
uses shellapi;
var windir:array[0..255] of char;
getwindowsdirectory(windir,sizeof(windir));
=BB=F2=D5=DF=B4=D3=D7=A2=B2=E1=B1=ED=D6=D0=B6=C1=C8=A1=A3=AC=CE=BB=D6=C3=A3=
=BA
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion
SystemRoot=BC=FC=A3=AC=C8=A1=B5=C3=C8=E7=A3=BAC:\WINDOWS

=A1=F3[DELPHI]=D4=DAform=BB=F2=C6=E4=CB=FB=C8=DD=C6=F7=C9=CF=BB=AD=CF=DF
var x,y:array [0..50] of integer;
canvas.pen.color:=3Dclred;
canvas.pen.style:=3DpsDash;
form1.canvas.moveto(trunc(x[i]),trunc(y[i]));
form1.canvas.lineto(trunc(x[j]),trunc(y[j]));

=A1=F3[DELPHI]=D7=D6=B7=FB=B4=AE=C1=D0=B1=ED=CA=B9=D3=C3
var tips:tstringlist;
tips:=3Dtstringlist.create;
tips.loadfromfile('filename.txt');
edit1.text:=3Dtips[0];
tips.add('last line addition string');
tips.insert(1,'insert string at NO 2 line');
tips.savetofile('newfile.txt');
tips.free;

=A1=F3[DELPHI]=BC=F2=B5=A5=B5=C4=BC=F4=CC=F9=B0=E5=B2=D9=D7=F7
richedit1.selectall;
richedit1.copytoclipboard;
richedit1.cuttoclipboard;
edit1.pastefromclipboard;

=A1=F3[DELPHI]=B9=D8=D3=DA=CE=C4=BC=FE=A1=A2=C4=BF=C2=BC=B2=D9=D7=F7
Chdir('c:\abcdir');=D7=AA=B5=BD=C4=BF=C2=BC
Mkdir('dirname');=BD=A8=C1=A2=C4=BF=C2=BC
Rmdir('dirname');=C9=BE=B3=FD=C4=BF=C2=BC
GetCurrentDir;//=C8=A1=B5=B1=C7=B0=C4=BF=C2=BC=C3=FB=A3=AC=CE=DE'\'
Getdir(0,s);//=C8=A1=B9=A4=D7=F7=C4=BF=C2=BC=C3=FBs:=3D'c:\abcdir';
Deletfile('abc.txt');//=C9=BE=B3=FD=CE=C4=BC=FE
Renamefile('old.txt','new.txt');//=CE=C4=BC=FE=B8=FC=C3=FB
ExtractFilename(filelistbox1.filename);//=C8=A1=CE=C4=BC=FE=C3=FB
ExtractFileExt(filelistbox1.filename);//=C8=A1=CE=C4=BC=FE=BA=F3=D7=BA

=A1=F3[DELPHI]=B4=A6=C0=ED=CE=C4=BC=FE=CA=F4=D0=D4
attr:=3Dfilegetattr(filelistbox1.filename);
if (attr and faReadonly)=3DfaReadonly then ... //=D6=BB=B6=C1
if (attr and faSysfile)=3DfaSysfile then ... //=CF=B5=CD=B3
if (attr and faArchive)=3DfaArchive then ... //=B4=E6=B5=B5
if (attr and faHidden)=3DfaHidden then ... //=D2=FE=B2=D8

=A1=F3[DELPHI]=D6=B4=D0=D0=B3=CC=D0=F2=CD=E2=CE=C4=BC=FE
WINEXEC//=B5=F7=D3=C3=BF=C9=D6=B4=D0=D0=CE=C4=BC=FE
winexec('command.com /c copy *.* c:\',SW_Normal);
winexec('start abc.txt');
ShellExecute=BB=F2ShellExecuteEx//=C6=F4=B6=AF=CE=C4=BC=FE=B9=D8=C1=AA=B3=
=CC=D0=F2
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);

=A1=F3[DELPHI]=C8=A1=B5=C3=CF=B5=CD=B3=D4=CB=D0=D0=B5=C4=BD=F8=B3=CC=C3=FB=

var hCurrentWindow:HWnd;szText:array[0..254] of char;
begin
hCurrentWindow:=3DGetwindow(handle,GW_HWndFrist);
while hCurrentWindow &lt;&gt; 0 do
begin
if Getwindowtext(hcurrnetwindow,@sztext,255)&gt;0 then =
listbox1.items.add(strpas(@sztext));
hCurrentWindow:=3DGetwindow(hCurrentwindow,GW_HWndNext);
end;
end;

=A1=F3[DELPHI]=B9=D8=D3=DA=BB=E3=B1=E0=B5=C4=C7=B6=C8=EB
Asm End;
=BF=C9=D2=D4=C8=CE=D2=E2=D0=DE=B8=C4EAX=A1=A2ECX=A1=A2EDX=A3=BB=B2=BB=C4=DC=
=D0=DE=B8=C4ESI=A1=A2EDI=A1=A2ESP=A1=A2EBP=A1=A2EBX=A1=A3

=A1=F3[DELPHI]=B9=D8=D3=DA=C0=E0=D0=CD=D7=AA=BB=BB=BA=AF=CA=FD
FloatToStr//=B8=A1=B5=E3=D7=AA=D7=D6=B7=FB=B4=AE
FloatToStrF//=B4=F8=B8=F1=CA=BD=B5=C4=B8=A1=B5=E3=D7=AA=D7=D6=B7=FB=B4=AE=

IntToHex//=D5=FB=CA=FD=D7=AA16=BD=F8=D6=C6
TimeToStr
DateToStr
DateTimeToStr
FmtStr//=B0=B4=D6=B8=B6=A8=B8=F1=CA=BD=CA=E4=B3=F6=D7=D6=B7=FB=B4=AE
formatDateTime('YYYY-MM-DD,hh-mm-ss',DATE);

=A1=F3[DELPHI]=D7=D6=B7=FB=B4=AE=B5=C4=B9=FD=B3=CC=BA=CD=BA=AF=CA=FD=20
Insert(obj,target,pos);//=D7=D6=B7=FB=B4=AEtarget=B2=E5=C8=EB=D4=DApos=B5=
=C4=CE=BB=D6=C3=A1=A3=C8=E7=B2=E5=C8=EB=BD=E1=B9=FB=B4=F3=D3=DAtarget=D7=EE=
=B4=F3=B3=A4=B6=C8=A3=AC=B6=E0=B3=F6=D7=D6=B7=FB=BD=AB=B1=BB=BD=D8=B5=F4=A1=
=A3=C8=E7Pos=D4=DA255=D2=D4=CD=E2=A3=AC=BB=E1=B2=FA=C9=FA=D4=CB=D0=D0=B4=ED=
=A1=A3=C0=FD=C8=E7=A3=ACst:=3D'Brian'=A3=AC=D4=F2Insert=A3=A8'OK',st,2=A3=
=A9=BB=E1=CA=B9st=B1=E4=CE=AA'BrOKian'=A1=A3=20
Delete(st,pos,Num);//=B4=D3st=B4=AE=D6=D0=B5=C4pos=A3=A8=D5=FB=D0=CD=A3=A9=
=CE=BB=D6=C3=BF=AA=CA=BC=C9=BE=C8=A5=B8=F6=CA=FD=CE=AANum=A3=A8=D5=FB=D0=CD=
=A3=A9=B8=F6=D7=D6=B7=FB=B5=C4=D7=D3=D7=D6=B4=AE=A1=A3=C0=FD=C8=E7=A3=ACs=
t:=3D'Brian'=A3=AC=D4=F2Delete(st,3,2)=BD=AB=B1=E4=CE=AABrn=A1=A3=20
Str(value,st);//=BD=AB=CA=FD=D6=B5value=A3=A8=D5=FB=D0=CD=BB=F2=CA=B5=D0=CD=
=A3=A9=D7=AA=BB=BB=B3=C9=D7=D6=B7=FB=B4=AE=B7=C5=D4=DAst=D6=D0=A1=A3=C0=FD=
=C8=E7=A3=ACa=3D2.5E4=CA=B1=A3=AC=D4=F2str(a:10,st)=BD=AB=CA=B9st=B5=C4=D6=
=B5=CE=AA' 25000'=A1=A3=20
Val(st,var,code);//=B0=D1=D7=D6=B7=FB=B4=AE=B1=ED=B4=EF=CA=BDst=D7=AA=BB=BB=
=CE=AA=B6=D4=D3=A6=D5=FB=D0=CD=BB=F2=CA=B5=D0=CD=CA=FD=D6=B5=A3=AC=B4=E6=B7=
=C5=D4=DAvar=D6=D0=A1=A3St=B1=D8=D0=EB=CA=C7=D2=BB=B8=F6=B1=ED=CA=BE=CA=FD=
=D6=B5=B5=C4=D7=D6=B7=FB=B4=AE=A3=AC=B2=A2=B7=FB=BA=CF=CA=FD=D6=B5=B3=A3=CA=
=FD=B5=C4=B9=E6=D4=F2=A1=A3=D4=DA=D7=AA=BB=BB=B9=FD=B3=CC=D6=D0=A3=AC=C8=E7=
=B9=FB=C3=BB=D3=D0=BC=EC=B2=E2=B3=F6=B4=ED=CE=F3=A3=AC=B1=E4=C1=BFcode=D6=
=C3=CE=AA0=A3=AC=B7=F1=D4=F2=D6=C3=CE=AA=B5=DA=D2=BB=B8=F6=B3=F6=B4=ED=D7=
=D6=B7=FB=B5=C4=CE=BB=D6=C3=A1=A3=C0=FD=C8=E7=A3=ACst:=3D25.4E3,x=CA=C7=D2=
=BB=B8=F6=CA=B5=D0=CD=B1=E4=C1=BF=A3=AC=D4=F2val(st,x,code)=BD=AB=CA=B9X=D6=
=B5=CE=AA25400=A3=ACcode=D6=B5=CE=AA0=A1=A3=20
Copy(st.pos.num);//=B7=B5=BB=D8st=B4=AE=D6=D0=D2=BB=B8=F6=CE=BB=D6=C3pos=A3=
=A8=D5=FB=D0=CD=A3=A9=B4=A6=BF=AA=CA=BC=B5=C4=A3=AC=BA=AC=D3=D0num=A3=A8=D5=
=FB=D0=CD=A3=A9=B8=F6=D7=D6=B7=FB=B5=C4=D7=D3=B4=AE=A1=A3=C8=E7=B9=FBpos=B4=
=F3=D3=DAst=D7=D6=B7=FB=B4=AE=B5=C4=B3=A4=B6=C8=A3=AC=C4=C7=BE=CD=BB=E1=B7=
=B5=BB=D8=D2=BB=B8=F6=BF=D5=B4=AE=A3=AC=C8=E7=B9=FBpos=D4=DA255=D2=D4=CD=E2=
=A3=AC=BB=E1=D2=FD=C6=F0=D4=CB=D0=D0=B4=ED=CE=F3=A1=A3=C0=FD=C8=E7=A3=ACs=
t:=3D'Brian'=A3=AC=D4=F2Copy(st,2,2)=B7=B5=BB=D8'ri'=A1=A3=20
Concat(st1,st2,st3=A1=AD=A1=AD,stn);//=B0=D1=CB=F9=D3=D0=D7=D4=B1=E4=C1=BF=
=B1=ED=CA=BE=B3=F6=B5=C4=D7=D6=B7=FB=B4=AE=B0=B4=CB=F9=B8=F8=B3=F6=B5=C4=CB=
=B3=D0=F2=C1=AC=BD=D3=C6=F0=C0=B4=A3=AC=B2=A2=B7=B5=BB=D8=C1=AC=BD=D3=BA=F3=
=B5=C4=D6=B5=A1=A3=C8=E7=B9=FB=BD=E1=B9=FB=B5=C4=B3=A4=B6=C8255=A3=AC=BD=AB=
=B2=FA=C9=FA=D4=CB=D0=D0=B4=ED=CE=F3=A1=A3=C0=FD=C8=E7=A3=ACst1:=3D'Brian=
',st2:=3D' =
',st3:=3D'Wilfred'=A3=AC=D4=F2Concat(st1,st2,st3)=B7=B5=BB=D8'Brian =
Wilfred'=A1=A3=20
Length(st);//=B7=B5=BB=D8=D7=D6=B7=FB=B4=AE=B1=ED=B4=EF=CA=BDst=B5=C4=B3=A4=
=B6=C8=A1=A3=C0=FD=C8=E7=A3=ACst:=3D'Brian'=A3=AC=D4=F2Length(st)=B7=B5=BB=
=D8=D6=B5=CE=AA5=A1=A3=20
Pos(obj,target);//=B7=B5=BB=D8=D7=D6=B7=FB=B4=AEobj=D4=DA=C4=BF=B1=EA=D7=D6=
=B7=FB=B4=AEtarget=B5=C4=B5=DA=D2=BB=B4=CE=B3=F6=CF=D6=B5=C4=CE=BB=D6=C3=A3=
=AC=C8=E7=B9=FBtarget=C3=BB=D3=D0=C6=A5=C5=E4=B5=C4=B4=AE=A3=ACPos=BA=AF=CA=
=FD=B5=C4=B7=B5=BB=D8=D6=B5=CE=AA0=A1=A3=C0=FD=C8=E7=A3=ACtarget:=3D'Bria=
n =
Wilfred'=A3=AC=D4=F2Pos('Wil',target)=B5=C4=B7=B5=BB=D8=D6=B5=CA=C77=A3=AC=
Pos('hurbet',target)=B5=C4=B7=B5=BB=D8=D6=B5=CA=C70=A1=A3=20

=A1=F3[DELPHI]=B9=D8=D3=DA=B4=A6=C0=ED=D7=A2=B2=E1=B1=ED
uses Registry;
var reg:Tregistry;
reg:=3DTregistry.create;
reg.rootkey:=3D'HKey_Current_User';
reg.openkey('Control Panel\Desktop',false);
reg.WriteString('Title Wallpaper','0');
reg.writeString('Wallpaper',filelistbox1.filename);
reg.closereg;
reg.free;

=A1=F3[DELPHI]=B9=D8=D3=DA=BC=FC=C5=CC=B3=A3=C1=BF=C3=FB
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=A3=BA$70(112)--$7B(123)
A-Z=A3=BA$41(65)--$5A(90)
0-9=A3=BA$30(48)--$39(57)
=A1=F3[DELPHI]=B3=F5=B2=BD=C5=D0=B6=CF=B3=CC=D0=F2=C4=B8=D3=EF
DELPHI=C8=ED=BC=FE=B5=C4DOS=CC=E1=CA=BE=A3=BAThis Program Must Be Run =
Under Win32.
VC++=C8=ED=BC=FE=B5=C4DOS=CC=E1=CA=BE=A3=BAThis Program Cannot Be Run In =
DOS Mode.

=A1=F3[DELPHI]=B2=D9=D7=F7Cookie
response.cookies("name").domain:=3D'http://www.086net.com';
with response.cookies.add do
begin
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -