DELPHI基础开发技巧.doc

O [DELPHI]M络邻屈复制文件 uses shcllapi; copyfile(pchar(,n,newfile.txtun),pchar(MI7/computemame/direction/targe r.txtWfhlse); O [DELPHI]产生鼠标拖动效果 通过MouseMove事件、DragOver事件、EndDrag事件实现，例如在PANEL上的LABEL: var xpaneLypanel,xlabel,ylabel:integer; PANEL 的 MouseMove 事件:xpanel:=x;ypanel:=y; PANEL 的 DragOver 事件:xpanel:=x;ypanel:=y; LABEL 的 MouseMove 事件:xlabel:=x;ylabel:=y; LABEL 的 EndDrag 事件:label.lefl:=xpanel?xlabel;labeLtop:=ypanel?ylabel; O [DELPHI]取得 WINDOWS H 录 uses shcllapi; var windir:array[0..255] of char; getwindowsdirectory(windir,sizeof(windir)); 或者从注册表中读取，位置： HKEY LOCAL MACHINE\Software\Microsoft\Windows\CurrentVersion SystemRoot 键，取得如:C:\WINDOWS O[DELPHI]在FORM或:ft他容器上画线 var x?y:array [0..50] of integer; canvas.pen.color:=clred; canvas.pen.style:=psDash;? form l.canvas.movcto(trunc(x[i]),trunc(y[i])); forml.canvaslineto(trunc(x[j]),trunc(y[j])); O [DELPHI]字符串列表使用 var tips:tstringlist; tips:=tstringlist.create; tips.loadfromfile(,,nfilename.txt,n,); editl.text:=tips[O]; tips.add(last line addition string0); tips.insert(l,Hinsert string at NO 2 line); tips.savetofile(,,,newfile.txt,H); tips.frcc; ? [DELPHI]简单的剪贴板操作 richedit l.selectall; richedit 1 .copytoclipboard; richedit 1 .cuttoclipboard; cditl .pastcfromclipboard; O[DELPHI]关于文件、目录操作 Chdir(””c:\abcdir””);转到目录 Mkdir(n,dimameM,);建立目录 Rmdir(,HdimameM,);删除目录 GetCurrentDir;//取当前目录名,无”曾 Getdir(0,s);//取工作目录名 s:=””c:\abcdi严; Deletfile(”” abc.txt””); 〃删除文件 Renamefile(,nold.txtm,n,new.txt,n);//文件更名 ExtractF ilename(fi lelistbox 1.filename);// 取文件名 ExtractFileExt(filelistbox 1 .filename);// 収文件后缀 [DELPHI]处理文件属性 attr:=filegetattr(flielistbox 1.filename);版权屮明：本站文章均来自网络,如有侵权,请联系028215,我们 收到后立即删除,谢谢！ if (attr and faReadonly)=faReadonly then ... 〃只读 if (attr and faSysfile)=faSysfile then ... 〃系统 if (attr and faArchive)=faArchive then ... 〃存档 if (attr and faHidden)=faHidden then ... 〃隐藏 O [DELPHI]执行程序外文件 WINEXEC//调用可执行文件 winexec(,, /c copy *.* c:\m,SW_Normal); winexec(””start abc.txt””)； ShcllExccutc 或 ShcIlExccutcEx//启动文件关联程序