1 2 3 4 5 6 7 8 9 下一页

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]在FORM或其他容器上画线

var x,y:array [0..50] of integer;

canvas.pen.color:=clred;

canvas.pen.style:=psDash;

form1.canvas.moveto(trunc(x[i]),trunc(y[i]));

form1.canvas.lineto(trunc(x[j]),trunc(y[j]));

上一篇： Delphi中用TListView显示数据库数据 （1）
下一篇： 用Delphi为窗体的系统菜单中添加选项 （1）

1 2 3 4 5 6 7 8 9 下一页