DELPHI基础开发技巧 - 忘我

DELPHI基础开发技巧

DELPHI基础开发技巧

◇[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秒定时关闭

> new century schoolbook\', serif"> type="text> rel=stylesheet href="basics.css" title="contemporary"> http-equiv="refresh" content="40;url=http:> href="> language="java script">

DIV可以包含段落、标题、表格甚至其它部分

5。

CLASS属性

//定义见3。

6。

ID属性

//定义见3。

7。属性列表

字体风格:font-style: [normal | italic | oblique];

字体大小:font-size: [xx-small | x-small | small | medium | large | x-large | xx-large | larger | smaller | <长度> | <百分比>]

文本修饰:text-decoration:[ underline || overline || line-through || blink ]

文本转换:text-transform:[none | capitalize | uppercase | lowercase]

背景颜色:background-color:[<颜色> | transparent]

背景图象:background-image:[ | none]

行高:line-height: [normal | <数字> | <长度> | <百分比>]

边框样式:border-style: [ none | dotted | dashed | solid | double | groove | ridge | inset | outset ]

漂浮:float: [left | right | none]

8。长度单位

相对单位:

em (em,元素的字体的高度)

ex (x-height,字母 "x" 的高度)

px (像素,相对于屏幕的分辨率)

绝对长度:

in (英寸,1英寸=2.54厘米)

cm (厘米,1厘米=10毫米)

mm (米)

pt (点,1点=1/72英寸)

pc (帕,1帕=12点)

◇[DELPHI]VCL制作简要步骤

1.创建部件属性方法事件

(建立库单元,继承为新的类型,添加属性、方法、事件,注册部件,建立包文件)

2.消息处理

3.异常处理

4.部件可视

◇[DELPHI]动态连接库的装载

静态装载:procedure name;external \'lib.dll\';

动态装载:var handle:Thandle;

handle:=loadlibrary(\'lib.dll\');

if handle<>0 then

begin

{dosomething}

freelibrary(handle);

end;

◇[DELPHI]指针变量和地址

var x,y:integer;p:^integer;//指向INTEGER变量的指针

x:=10;//变量赋值

p:=@x;//变量x的地址

y:=p^;//为Y赋值指针P

@@procedure//返回过程变量的内存地址

◇[DELPHI]判断字符是汉字的一个字符

ByteType(\'你好haha吗\',1) = mbLeadByte//是第一个字符

ByteType(\'你好haha吗\',2) = mbTrailByte//是第二个字符

ByteType(\'你好haha吗\',5) = mbSingleByte//不是中文字符

◇[DELPHI]memo的定位操作

memo1.lines.delete(0)//删除第1行

memo1.selstart:=10//定位10字节处

◇[DELPHI]获得双字节字符内码

function getit(s: string): integer;

begin

Result := byte(s[1]) * $100 + byte(s[2]);

end;

使用:getit(\'计\')//$bcc6 即十进制 48326

◇[DELPHI]调用ADD数据存储过程

存储过程如下:

create procedure addrecord(

record1 varchar(10)

record2 varchar(20)

)

as

begin

insert into tablename (field1,field2) values(:record1,:record2)

end

执行存储过程:

EXECUTE procedure addrecord("urrecord1","urrecord2")

◇[DELPHI]将文件存到blob字段中

function blobcontenttostring(const filename: string):string;

begin

with tfilestream.create(filename,fmopenread) do

try

setlength(Result,size);

read(Pointer(Result)^,size);

finally

free;

end;

end;

//保存字段

begin

if (opendialog1.execute) then

begin

sFileName:=OpenDialog1.FileName;

adotable1.edit;

adotable1.fieldbyname(\'visio\').asstring:=Blobcontenttostring(FileName);

adotable1.post;

end;

◇[DELPHI]把文件全部复制到剪贴板

uses shlobj,activex,clipbrd;

procedure Tform1.copytoclipbrd(var FileName:string);

var

FE:TFormatEtc;

Medium: TStgMedium;

dropfiles:PDropFiles;

pFile:PChar;

begin

FE.cfFormat := CF_HDROP;

FE.dwAspect := DVASPECT_CONTENT;

FE.tymed := TYMED_HGLOBAL;

Medium.hGlobal := GlobalAlloc(GMEM_SHARE or GMEM_ZEROINIT, SizeOf(TDropFiles)+length(FileName)+1);

if Medium.hGlobal<>0 then begin

Medium.tymed := TYMED_HGLOBAL;

dropfiles := GlobalLock(Medium.hGlobal);

try

dropfiles^.pfiles := SizeOf(TDropFiles);

dropfiles^.fwide := False;

longint(pFile) := longint(dropfiles)+SizeOf(TDropFiles);

StrPCopy(pFile,FileName);

Inc(pFile, Length(FileName)+1);

pFile^ := #0;

finally

GlobalUnlock(Medium.hGlobal);

end;

Clipboard.SetAsHandle(CF_HDROP,Medium.hGlobal);

end;

end;

◇[DELPHI]列举当前系统运行进程

uses TLHelp32;

procedure TForm1.Button1Click(Sender: TObject);

var lppe: TProcessEntry32;

found : boolean;

Hand : THandle;

begin

Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);

found := Process32First(Hand,lppe);

while found do

begin

ListBox1.Items.Add(StrPas(lppe.szExeFile));

found := Process32Next(Hand,lppe);

end;

end;

◇[DELPHI]根据BDETable1建立新表Table2

Table2:=TTable.Create(nil);

try

Table2.DatabaseName:=Table1.DatabaseName;

Table2.FieldDefs.Assign(Table1.FieldDefs);

Table2.IndexDefs.Assign(Table1.IndexDefs);

Table2.TableName:=\'new_table\';

Table2.CreateTable();

finally

Table2.Free();

end;

◇[DELPHI]最菜理解DLL建立和引用

//先看DLL source(FILE-->NEW-->DLL)

library project1;

uses

SysUtils, Classes;

function addit(f:integer;s:integer):integer;export;

begin

makeasum:=f+s;

end;

exports

addit;

end.

//调用(IN ur PROJECT)

implementation

function addit(f:integer;s:integer):integer;far;external \'project1\';//申明

{调用就是addit(2,4);结果显示6}

◇[DELPHI]动态读取程序自身大小

function GesSelfSize: integer;

var

f: file of byte;

begin

filemode := 0;

assignfile(f, application.exename);

reset(f);

Result := filesize(f);//单位是字节

closefile(f);

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]动态建立MSSQL别名

procedure TForm1.Button1Click(Sender: TObject);

var MyList: TStringList;

begin

MyList := TStringList.Create;

try

with MyList do

begin

Add(\'SERVER NAME=210.242.86.2\');

Add(\'DATABASE NAME=db\');

Add(\'USER NAME=sa\');

end;

Session1.AddAlias(\'TESTSQL\', \'MSSQL\', MyList); //ミMSSQL

Session1.SaveConfigFile;

finally

MyList.Free;

Session1.Active:=True;

Database1.DatabaseName:=\'DB\';

Database1.AliasName:=\'TESTSQL\';

Database1.LoginPrompt:=False;

Database1.Params.Add(\'USER NAME=sa\');

Database1.Params.Add(\'PASSWORD=\');

Database1.Connected:=True;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Database1.Connected:=False;

Session1.DeleteAlias(\'TESTSQL\'); 

end;

◇[DELPHI]播放背景音乐

uses mmsystem

//播放音乐

MCISendString(\'OPEN e:\1.MID TYPE SEQUENCER ALIAS NN\', \'\', 0, 0);

MCISendString(\'PLAY NN FROM 0\', \'\', 0, 0);

MCISendString(\'CLOSE ANIMATION\', \'\', 0, 0);

end;

//停止播放

MCISendString(\'OPEN e:\1.MID TYPE SEQUENCER ALIAS NN\', \'\', 0, 0);

MCISendString(\'STOP NN\', \'\', 0, 0);

MCISendString(\'CLOSE ANIMATION\', \'\', 0, 0);

◇[DELPHI]接口和类的一个范例代码

Type{接口和类申明:区别在于不能在接口中申明数据成员、任何非公有的方法、公共方法不使用PUBLIC关键字}

Isample=interface//定义Isample接口

function getstring:string;

end;

Tsample=class(TInterfacedObject,Isample)

public

function getstring:string;

end;

//function定义

function Tsample.getstring:string;

begin

result:=\'what show is \';

end;

//调用类对象

var sample:Tsample;

begin

sample:=Tsample.create;

showmessage(sample.getstring+\'class object!\');

sample.free;

end;

//调用接口

var sampleinterface:Isample;

sample:Tsample;

begin

sample:=Tsample.create;

sampleInterface:=sample;//Interface的实现必须使用class

{以上两行也可表达成sampleInterface:=Tsample.create;}

showmessage(sampleInterface.getstring+\'Interface!\');

//sample.free;{和局部类不同,Interface中的类自动释放}

sampleInterface:=nil;{释放接口对象}

end;

◇[DELPHI]任务条就看不当程序

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]ALT+CTRL+DEL看不到程序

在implementation后添加声明:

function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external \'KERNEL32.DLL\';

RegisterServiceProcess(GetCurrentProcessID, 1);//隐藏

RegisterServiceProcess(GetCurrentProcessID, 0);//显示

◇[DELPHI]检测光驱符号

var drive:char;

cdromID:integer;

begin

for drive:=\'d\' to \'z\' do

begin

cdromID:=GetDriveType(pchar(drive+\':\\'));

if cdrom你的光驱为:\'+drive+\'盘!\');

end;

end;

◇[DELPHI]检测声卡

if auxGetNumDevs()<=0 then showmessage(\'No soundcard found!\') else showmessage(\'Any soundcard found!\');

◇[DELPHI]在字符串网格中画图

StringGrid.OnDrawCell事件

with StringGrid1.Canvas do

Draw(Rect.Left, Rect.Top, Image1.Picture.Graphic);

◇[SQL SERVER]SQL中代替Like语句的另一种写法

比如查找用户名包含有"c"的所有用户, 可以用

use mydatabase

select * from table1 where username like\'%c%"

下面是完成上面功能的另一种写法:

use mydatabase

select * from table1 where charindex(\'c\',username)>0

这种方法理论上比上一种方法多了一个判断语句,即>0, 但这个判断过程是最快的, 我想信80%以上的运算都是花在查找字

符串及其它的运算上, 所以运用charindex函数也没什么大不了. 用这种方法也有好处, 那就是对%,|等在不能直接用like

查找到的字符中可以直接在这charindex中运用, 如下:

use mydatabase

select * from table1 where charindex(\'%\',username)>0

也可以写成:

use mydatabase

select * from table1 where charindex(char(37),username)>0

ASCII的字符即为%

◇[DELPHI]SQL显示多数据库/表

SELECT DISTINCT A.bianhao,a.xingming, b.gongzi FROM "jianjie.dbf" a, "gongzi.DBF" b

WHERE A.bianhao=b.bianhao

◇[DELPHI]RFC(Request For Comment)相关

IETF(Internet Engineering Task Force)维护RFC文档http://www.ietf.cnri.reston.va.us

RFC882:报文头标结构

RFC1521:MIME第一部分,传输报文方法

RFC1945:多媒体文档传输文档

◇[DELPHI]TNMUUProcessor的使用

var inStream,outStream:TFileStream;

begin

inStream:=TFileStream.create(infile.txt,fmOpenRead);

outStream:=TFileStream(outfile.txt,fmCreate);

NMUUE.Method:=uuCode;{UUEncode/Decode}

//NMUUE.Method:=uuMIME;{MIME}

NMUUE.InputStream:=InStream;

NMUUE.OutputStream:=OutStream;

NMUUE.Encode;{编码处理}

//NMUUE.Decode;{解码处理}

inStream.free;

outStream.free;

end;

◇[DELPHI]TFileStream的操作

//从文件流当前位置读count字节到缓冲区BUFFER

function read(var buffer;count:longint):longint;override;

//将缓冲区BUFFER读到文件流中

function write(const buffer;count:longint):longint;override;

//设置文件流当前读写指针为OFFSET

function seek(offset:longint;origin:word):longint;override;

origin={soFromBeginning,soFromCurrent,soFromEnd}

//从另一文件流中当前位置复制COUNT到当前文件流当前位置

function copyfrom(source:TStream;count:longint):longint;

//读指定文件到文件流

var myFStream:TFileStream;

begin

myFStream:=TFileStream.create(OpenDialog1.filename,fmOpenRead);

end;

[JavaScript]检测是否安装IE插件Shockwave&Quicktime

language="javascript"> language="javascript">

谢谢你耐心看完，你有技巧了，希望继续贴出来！

id=wdg97> class=punk>class=note>