教你在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]在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]字符串列表使用
  var tips:tstringlist;
  tips:=tstringlist.create;
  tips.loadfromfile('filename.txt');
  edit1.text:=tips[0];
  tips.add('last line addition string');
  tips.insert(1,'insert string at NO 2 line');
  tips.savetofile('newfile.txt');
  tips.free;
  
  　　◇[DELPHI]简单的剪贴板操作
  richedit1.selectall;
  richedit1.copytoclipboard;
  richedit1.cuttoclipboard;
  edit1.pastefromclipboard;
  
  　　◇[DELPHI]关于文件、目录操作
  Chdir('c:\abcdir');转到目录
  Mkdir('dirname');建立目录
  Rmdir('dirname');删除目录
  GetCurrentDir;//取当前目录名，无'\'
  Getdir(0,s);//取工作目录名s:='c:\abcdir';
  Deletfile('abc.txt');//删除文件
  Renamefile('old.txt','new.txt');//文件更名
  ExtractFilename(filelistbox1.filename);//取文件名
  ExtractFileExt(filelistbox1.filename);//取文件后缀
• [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] [22] [23] [24] [25] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 教你在DELPHI中基础开发技巧 相关文章：
• ·教你在DELPHI中基础开发技巧
• 教你在DELPHI中基础开发技巧 相关软件

上一篇:用Delphi设计循环播放声音文件程序

下一篇:SpComm Version 2.5 (串口控件)

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐