[DELPHI]网络邻居复制文件

◇[delphi]网络邻居复制文件

uses shellapi;

copyfile(pchar(''''),pchar(''//computername/direction/''),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 事件::=xpanel-xlabel;:=ypanel-ylabel;

◇[delphi]取得windows目录

uses shellapi;

var windir:array[0..255] of char;

getwindowsdirectory(windir,sizeof(windir));

或者从注册表中读取,位置:

hkey_local_machinesoftwaremicrosoftwindowscurrentversion

systemroot键,取得如:c:windows