Delphi编技巧集锦.docVIP

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 ; 或者从注册表中读取，位置