當前位置:學問君>學習教育>考研>

[DELPHI]網絡鄰居複製檔案

學問君 人氣:1.14W

◇[DELPHI]網絡鄰居複製檔案

[DELPHI]網絡鄰居複製檔案

uses shellapi;

copyfile(pchar(''''),pchar(''//computername/direction/''),false);

◇[DELPHI]產生鼠標拖動效果

透過MouseMove事件、DragOver事件、EndDrag事件實現,例如在PANEL上的L:

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