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 ... //
只读