[DELPHI]网络邻居复制文件

[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]网络邻居复制文件】相关文章：

1.[DELPHI]关于文件、目录操作

2.DELPHI笔试题

3.Delphi笔试题目

4.Delphi笔试（是非题）

5.Delphi招聘笔试题目

6.Delphi程序员笔试题

7.[DELPHI]字符串列表使用

8.德尔福集团DELPHI的笔试题