Delphi基础开发技巧--电脑报函授学院.docVIP

Delph?i基础开发技巧(1) [DE?LPHI]?网络邻居复制文件 uses ?shell?api; ? copy?file(?pchar?(new?file.?txt)?,pcha?r(//?compu?terna?me/di?recti?on/ta?rger.?txt)?,fals?e); [?DELPH?I]产生鼠标拖动效果 通过MouseM?ove事件、DragOver事件、EndDrag事件实现,例如在PANEL上的LABEL:? var? xpan?el,yp?anel,?xlabe?l,yla?bel:i?ntege?r; P?ANEL的Mouse?Move事件:xpanel:=?x;ypa?nel:=?y; P?ANEL的DragO?ver 事件:xpanel:=?x;ypa?nel:=?y; L?ABEL的Mouse?Move事件:xlabel:=?x;yla?bel:=?y; L?ABEL的EndDr?ag 事件:labe?l.lef?t:=xp?anel-?xlabe?l;lab?el.to?p:=yp?anel-?ylabe?l; [D?ELPHI?]取得WINDOWS?目录 uses s?hella?pi; ?var w?indir?:arra?y[0..?255] ?of ch?ar; ?getwi?ndows?direc?tory(?windi?r