技巧分享：計(jì)算機(jī)二級(jí)考試DELPHI基礎(chǔ)開發(fā)技巧

　　◇[DELPHI]網(wǎng)絡(luò)鄰居復(fù)制文件

　　uses shellapi;

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

　　◇[DELPHI]產(chǎn)生鼠標(biāo)拖動(dòng)效果

　　通過(guò)MouseMove事件、DragOver事件、EndDrag事件實(shí)現(xiàn),例如在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));

　　或者從注冊(cè)表中讀取,位置:

　　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]簡(jiǎn)單的剪貼板操作

　　richedit1.selectall;

　　richedit1.copytoclipboard;

　　richedit1.cuttoclipboard;

　　edit1.pastefromclipboard;

　　◇[DELPHI]關(guān)于文件、目錄操作

　　Chdir(''c:\abcdir'');轉(zhuǎn)到目錄

　　Mkdir(''dirname'');建立目錄

　　Rmdir(''dirname'');刪除目錄

　　GetCurrentDir;//取當(dāng)前目錄名,無(wú)''\''

　　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 ... //系統(tǒng)

　　if (attr and faArchive)=faArchive then ... //存檔

　　if (attr and faHidden)=faHidden then ... //隱藏