delphi属性汇总文档.docVIP

[DELPHI]网络邻居复制文件

usesshellapi;

copyfile(pchar(newfile.txt),pchar(//computername/direction/targer.txt),false);

[DELPHI]产生鼠标拖动效果

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

varxpanel,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目录

usesshellapi;

varwindir:array[0..255]ofchar;

getwindowsdirectory(windir,sizeof(windir));

或者从注册表中读取，位置：

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion

SystemRoot键，取得如：C:\WINDOWS

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

varx,y:array[0..50]ofinteger;

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]字符串列表使用

vartips:tstringlist;

tips:=tstringlist.create;

tips.loadfromfile(filename.txt);

edit1.text:=tips[0];

tips.add(lastlineadditionstring);

tips.insert(1,insertstringatNO2line);

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(attrandfaReadonly)=faReadonlythen...//只读

if(attrandfaSysfile)=faSysfilethen...//系统

if(attrandfaArchive)=faArchivethen...//存档

if(attrandfaHidden)=faHiddenthen...//隐藏

[DELPHI]执行程序外文件

WINEXEC//调用可执行文件

winexec(/ccopy*.*c:\,SW_Normal);

winexec(startabc.txt);

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

functionexecutefile(constfilename,params,defaultDir:string;showCmd:integer):THandle;

ExecuteFile(C:\abc\a.txt,x.abc,c:\abc\,0);

ExecuteFil