delphi集锦.docdelphi集锦Delphi技巧集◇[DELPHI]网络邻居复制文件usesshellapi;copyfile(pchar(''),pchar('//computername/direction/'),false);◇[DELPHI]产生鼠标拖动效果通过MouseMove事件、DragOver事件、EndDrag事件实现,例如在PANEL上的LABEL:varxpanel,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目录usesshellapi;varwindir:array[0..255]ofchar;getwindowsdirectory(windir,sizeof(windir));或者从注册表中读取,位置:HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersionSystemRoot键,取得如:C:\WINDOWS◇[DELPHI]在FORM或其他容器上画线varx,y:array[0..50]ofinteger;:=clred;:=psDash;(trunc(x[i]),trunc(y[i]));(trunc(x[j]),trunc(y[j]));◇[DELPHI]字符串列表使用vartips:tstringlist;tips:=;('');:=tips[0];('lastlineadditionstring');(1,'insertstringatNO2line');('');;◇[DELPHI];;;;◇[DELPHI]关于文件、目录操作Chdir('c:\abcdir');转到目录Mkdir('dirname');建立目录Rmdir('dirname');删除目录GetCurrentDir;//取当前目录名,无'\'Getdir(0,s);//取工作目录名s:='c:\abcdir';Deletfile('');//删除文件Renamefile('','');//文件更名ExtractFilename();//取文件名ExtractFileExt();//取文件后缀◇[DELPHI]处理文件属性attr:=filegetattr();if(attrandfaReadonly)=faReadonlythen...//只读if(attrandfaSysfile)=faSysfilethen...//系统if(attrandfaArchive)=faArchivethen...//存档if(attrandfaHidden)=faHiddenthen...//隐藏◇[DELPHI]执行程序外文件WINEXEC//调用可执行文件winexec('/ccopy*.*c:\',SW_Normal);winexec('');ShellExecute或ShellExecuteEx//启动文件关联程序functionexecutefile(constfilename,params,defaultDir:string;showCmd:integer):THandle;ExecuteFile('C:\abc\','','c:\abc\',0);ExecuteFile('http://tingweb.','','',0);ExecuteFile('mailto:tingweb@','
delphi集锦 来自淘豆网www.taodocs.com转载请标明出处.