[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