Delphi编程技巧集锦

[DELPHI]网络邻居复制文件

uses shellapi;

copyfile(pchar(newfiletxt)pchar(//computername/direction/targertxt)false);

[DELPHI]产生鼠标拖动效果

通过MouseMove事件DragOver事件EndDrag事件实现例如在PANEL上的LABEL

var xpanelypanelxlabelylabel:integer;

PANEL的MouseMove事件xpanel:=x;ypanel:=y;

PANEL的DragOver事件xpanel:=x;ypanel:=y;

LABEL的MouseMove事件xlabel:=x;ylabel:=y;

LABEL的EndDrag事件labelleft:=xpanelxlabel;labeltop:=ypanelylabel;

[DELPHI]取得WINDOWS目录

uses shellapi;

var windir:array[] of char;

getwindowsdirectory(windirsizeof(windir));

或者从注册表中读取位置

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion

SystemRoot键取得如C:\WINDOWS

[DELPHI]在FORM或其他容器上画线

var xy:array [] of integer;

canvaspencolor:=clred;

canvaspenstyle:=psDash;

formcanvasmoveto(trunc(x[i])trunc(y[i]));

formcanvaslineto(trunc(x[j])trunc(y[j]));

[DELPHI]字符串列表使用

var tips:tstringlist;

tips:=tstringlistcreate;

tipsloadfromfile(filenametxt);

edittext:=tips[];

tipsadd(last line addition string);

tipsinsert(insert string at NO line);

tipssavetofile(newfiletxt);

tipsfree;

[DELPHI]简单的剪贴板操作

richeditselectall;

richeditcopytoclipboard;

richeditcuttoclipboard;

editpastefromclipboard;

[DELPHI]关于文件目录操作

Chdir(c:\abcdir);转到目录

Mkdir(dirname);建立目录

Rmdir(dirname);删除目录

GetCurrentDir;//取当前目录名无\

Getdir(s);//取工作目录名s:=c:\abcdir;

Deletfile(abctxt);//删除文件

Renamefile(oldtxtnewtxt);//文件更名

ExtractFilename(filelistboxfilename);//取文件名

ExtractFileExt(filelistboxfilename);//取文件后缀

[DELPHI]处理文件属性

attr:=filegetattr(filelistboxfilename);

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(commandcom /c copy ** c:\SW_Normal);

winexec(start abctxt);

ShellExecute或ShellExecuteEx//启动文件关联程序

function executefile(const filenameparamsdefaultDir:string;showCmd:integer):THandle;

ExecuteFile(C:\abc\atxtxabcc:\abc\);

ExecuteFile(http://tingwebyeahnet);

ExecuteFile(mailto:tingweb@wxnet);

[DELPHI]取得系统运行的进程名

var hCurrentWindow:HWnd;szText:array[] of char;

begin

hCurrentWindow:=Getwindow(handleGW_HWndFrist);

while hCurrentWindow <> do

begin

if Getwindowtext(hcurrnetwindow@sztext)> then listboxitemsadd(strpas(@sztext));

hCurrentWindow:=Getwindow(hCurrentwindowGW_HWndNext);

end;

end;

[DELPHI]关于汇编的嵌入

Asm End;

可以任意修改EAXECXEDX不能修改ESIEDIESPEBPEBX

[DELPHI]关于类型转换函数

FloatToStr//浮点转字符串

FloatToStrF//带格式的浮点转字符串

IntToHex//整数转进制

TimeToStr

DateToStr

DateTimeToStr

FmtStr//按指定格式输出字符串

FormatDateTime(YYYYMMDDhhmmssDATE);

[DELPHI]字符串的过程和函数

Insert(objtargetpos);

//字符串target插入在pos的位置如插入结果大于target最大长度多出字符将被截掉如Pos在以外会产生运行错例如st:=Brian则Insert（OKst）会使st变为BrOKian

Delete(stposNum);

//从st串中的pos（整型）位置开始删去个数为Num（整型）个字符的子字串例如st:=Brian则Delete(st)将变为Brn

Str(valuest);

//将数值value（整型或实型）转换成字符串放在st中例如a=E时则str(a:st)将使st的值为

Val(stvarcode);//把字符串表达式st转换为对应整型或实型数值存放在var中St必须是一个表示数值的字符串并符合数值常数的规则在转换过程中如果没有检测出错误变量code置为否则置为第一个出错字符的位置例如st:=Ex是一个实型变量则val(stxcode)将使X值为code值为

Copy(stposnum);

//返回st串中一个位置pos（整型）处开始的含有num（整型）个字符的子串如果pos大于st字符串的长度那就会返回一个空串如果pos在以外会引起运行错误例如st:=Brian则Copy(st)返回ri

Concat(ststst……stn);//

把所有自变量表示出的字符串按所给出的顺序连接起来并返回连接后的值如果结果的长度将产生运行错误例如st:=Brianst:= st:=Wilfred则Concat(ststst)返回Brian Wilfred

Length(st);

//返回字符串表达式st的长度例如st:=Brian则Length(st)返回值为

Pos(objtarget);

//返回字符串obj在目标字符串target的第一次出现的位置如果target没有匹配的串Pos函数的返回值为例如target:=Brian Wilfred则Pos(Wiltarget)的返回值是Pos(hurbettarget)的返回值是

[DELPHI]关于处理注册表

uses Registry;

var reg:Tregistry;

reg:=Tregistrycreate;

regrootkey:=HKey_Current_User;

regopenkey(Control Panel\Desktopfalse);

regWriteString(Title Wallpaper);

regwriteString(Wallpaperfilelistboxfilename);

regclosereg;

regfree;

[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

FF$()$B()

AZ$()$A()

$()$()

◇[DELPHI]初步判断程序母语

DELPHI软件的DOS提示This Program Must Be Run Under Win

VC++软件的DOS提示This Program Cannot Be Run In DOS Mode

[DELPHI]操作Cookie

responsecookies(name)domain:=http://wwwnetcom;

with responsecookiesadd do

begin

name:=username;

value:=username;

end

[DELPHI]增加到文档菜单连接

uses shellapishlOBJ;

shAddToRecentDocs(shArd_pathpchar(filepath));//增加连接

shAddToRecentDocs(shArd_pathnil);//清空

[杂类]备份智能ABC输入法词库

windows\system\userrem

windows\system\tmmrrem

[DELPHI]判断鼠标按键

if GetAsyncKeyState(VK_LButton)<> then //左键

if GetAsyncKeyState(VK_MButton)<> then //中键

if GetAsyncKeyState(VK_RButton)<> then //右键

[DELPHI]设置窗体的最大显示

onFormCreate事件

selfwidth:=screenwidth;

selfheight:=screenheight;

[DELPHI]按键接受消息

OnCreate事件中处理ApplicationOnMessage:=MyOnMessage;

procedure TFormMyOnMessage(var MSG:TMSG;var Handle:Boolean);

begin

if msgmessage= then //ANY键

if msgmessage= then //F

if msgmessage= then //F

end;

[杂类]隐藏共享文件夹

共享效果可访问但不可见（在资源管理网络邻居中）

取共享名为direction$

访问//computer/dirction/

[Java Script]Java Script网页常用效果

网页秒定时关闭

<script language=java script><!

settimeout(windowclose();)

></script>

关闭窗口

<a href=/ onclick=javascript:windowclose();return false;>关闭

定时转URL

<meta httpequiv=refresh content=;url=http://wwwnetcom>

设为首页

<a onclick=thisstylebehavior=url(#default#homepage);thissethomepage(http://netcom);href=#>设为首页

收藏本站

<a href=javascript:windowexternaladdfavorite(http://netcom[未名码头])>收藏本站

加入频道

<a href=javascript:windowexternaladdchannel(http://netcom)>加入频道

[DELPHI]文本编辑相关

checkboxchecked:=not checkboxchecked;

if checkboxchecked then richeditfontstyle:=richeditfontstyle+[fsBold] else richeditfontstyle:=richeditfontstyle[fsBold]//粗体

if checkboxchecked then richeditfontstyle:=richeditfontstyle+[fsItalic] else richeditfontstyle:=richeditfontstyle[fsItalic]//斜体

if checkboxchecked then richeditfontstyle:=richeditfontstyle+[fsUnderline] else richeditfontstyle:=richeditfontstyle[fsUnderline]//下划线

memoalignment:=taLeftJustify;//居左

memoalignment:=taRightJustify;//居右

memoalignment:=taCenter;//居中

[DELPHI]随机产生文本色

randomize;//随机种子

memofontcolor:=rgb(random()random()random());

[DELPHI]DELPHI UPDATE升级补丁序列号

Xfx

[DELPHI]文件名的非法字符过滤

for i:= to length(s) do

if s[i] in [\/:*?<>|] then

[DELPHI]转换函数的定义及说明

datetimetofiledate (datetime:Tdatetime):longint;

将Tdatetime格式的日期时间值转换成DOS格式的日期时间值

datetimetostr (datetime:Tdatetime):string;

将Tdatatime格式变量转换成字符串如果datetime参数不包含日期值返回字符串日期显示成为//如果datetime参数中没有时间值返回字符串中的时间部分显示成为 AM

datetimetostring (var result string; const format:string; datetime:Tdatetime);

根据给定的格式字符串转换时间和日期值result为结果字符串format为转换格式字符串datetime为日期时间值

datetostr (date:Tdatetime)

使用shortdateformat全局变量定义的格式字符串将date参数转换成对应的字符串

floattodecimal (var result:Tfloatrec;value: extended;precisiondecimals: integer);

将浮点数转换成十进制表示

floattostr (value:extended):string

将浮点数value转换成字符串格式该转换使用普通数字格式转换的有效位数为位

floattotext (buffer:pchar;value:extended; format:Tfloatformat;precision digits:integer):integer;

用给定的格式精度和小数将浮点值value转换成十进制表示形式转换结果存放于buffer参数中函数返回值为存储到buffer中的字符位数buffer是非结果的字符串缓沖区

floattotextfmt (buffer:pchar;value:extended; format:pchar):integer

用给定的格式将浮点值value转换成十进制表示形式转换结果存放于buffer参数中函数返回值为存储到buffer中的字符位数

inttohex (value:longint;digits:integer): string;

将给定的数值value转换成十六进制的字符串参数digits给出转换结果字符串包含的数字位数

inttostr (value:longint):string

将整数转换成十进制形式字符串

strtodate (const S:string):Tdatetime

将字符串转换成日期值S必须包含一个合法的格式日期的字符串

strtodatetime (const S:string):Tdatetime

将字符串S转换成日期时间格式S必须具有MM/DD/YY HHMMSS[AM|PM]格式其中日期和时间分隔符与系统时期时间常量设置相关如果没有指定AM或PM信息表示使用小时制

strtofloat (const S:string):extended;

将给定的字符串转换成浮点数字符串具有如下格式

[+|]nnn…[]nnn…[<+|><E|e><+|>nnnn]

strtoint (const S:string):longint

将数字字符串转换成整数字符串可以是十进制或十六进制格式如果字符串不是一个合法的数字字符串系统发生ECONVERTERROR异常

strtointdef (const S:string;default: longint):longint;

将字符串S转换成数字如果不能将S转换成数字strtointdef函数返回参数default的值

strtotime (const S:string):Tdatetime

将字符串S转换成TDATETIME值S具有HHMMSS[AM|PM]格式实际的格式与系统的时间相关的全局变量有关

timetostr (time:Tdatetime):string;

将参数TIME转换成字符串转换结果字符串的格式与系统的时间相关常量的设置有关

[DELPHI]程序不出现在ALT+CTRL+DEL

在implementation后添加声明:

function RegisterServiceProcess(dwProcessID dwType: Integer): Integer; stdcall; external KERNELDLL;

RegisterServiceProcess(GetCurrentProcessID );//隐藏

RegisterServiceProcess(GetCurrentProcessID );//显示

用ALT+DEL+CTRL看不见

[DELPHI]程序不出现在任务栏

uses windows

var

ExtendedStyle : Integer;

begin

ApplicationInitialize;