《DELPHI基础开发技巧(精品)》由会员分享，可在线阅读，更多相关《DELPHI基础开发技巧(精品)（24页珍藏版）》请在金锄头文库上搜索。
1、 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的Mouse
2、Move事件:xlabel:=x;ylabel:=y;LABEL的EndDrag 事件:label.left:=xpanel-xlabel;label.top:=ypanel-ylabel;DELPHI取得WINDOWS目录uses shellapi;var windir:array0.255 of char;getwindowsdirectory(windir,sizeof(windir);或者从注册表中读取,位置:HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionSystemRoot键,取得如:C:WINDOWSDELPHI在F
3、ORM或其他容器上画线var x,y:array 0.50 of integer;canvas.pen.color:=clred;canvas.pen.style:=psDash; . form1.canvas.moveto(trunc(xi),trunc(yi);form1.canvas.lineto(trunc(xj),trunc(yj);DELPHI字符串列表使用var tips:tstringlist;tips:=tstringlist.create;tips.loadfromfile(filename.txt);edit1.text:=tips0;tips.add(last line
4、 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;/取当前
5、目录名,无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); 版权申明：本站文章均来自网络，如有侵权，请联系028-86262244-215，我们收到后立即删除,谢谢！ if (attr an
6、d faReadonly)=faReadonly then . /只读if (attr and faSysfile)=faSysfile then . /系统if (attr and faArchive)=faArchive then . /存档if (attr and faHidden)=faHidden then . /隐藏DELPHI执行程序外文件WINEXEC/调用可执行文件winexec( /c copy *.* c:,SW_Normal);winexec(start abc.txt);ShellExecute或ShellExecuteEx/启动文件关联程序function exec
7、utefile(const filename,params,defaultDir:string;showCmd:integer):THandle;ExecuteFile(C:abca.txt,x.abc,c:abc,0);ExecuteFile(http:/,0);ExecuteFile(mailto:,0);DELPHI取得系统运行的进程名var hCurrentWindow:HWnd;szText:array0.254 of char;beginhCurrentWindow:=Getwindow(handle,GW_HWndFrist);while hCurrentWindow 0 dob
8、eginif 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进制TimeToStrDateTo
9、StrDateTimeToStrFmtStr/按指定格式输出字符串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(
10、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串中一个
11、位置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,则Len
12、gth(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 PanelDesktop,false);
13、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_DOWNF1-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操作Cookieresponse.cookies(name).domain:=http:/;with response.cookies.add dobeginname:=username;value:=username;endDELPHI增加到文档菜单连接uses shellapi,shlOBJ;s
