◇[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_MacHINESoftwareMicrosoftWindowsCurrentVersion
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 ... //只讀
if (attr and faSysfile)=faSysfile then ... //系統
if (attr and faArchive)=faArchive then ... //存檔
if (attr and faHidden)=faHidden then ... //隱藏
◇[Delphi]執行程序外文件
WINEXEC//調用可執行文件
winexec('command.com /c copy *.* c:',SW_Normal);
winexec('start abc.txt');
ShellExecute或ShellExecuteEx//啟動文件關聯程序
function executefile(const filename,params,defaultDir:string;showCmd:integer):THandle;
ExecuteFile('C:abca.txt','x.abc','c:abc',0);
ExecuteFile('http://tingweb.yeah.Net','','',0);
ExecuteFile('mailto:tingweb@wx88
[1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一頁 >>
