delphi常用代码.docVIP

delphi常用代码 Delphi常用代码汇总2008-05-03 13:59◇[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; getwindowsdirectory(windir,sizeof(windir)); 或者从注册表中读取，位置： HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion SystemRoot键，取得如：C:\WINDOWS trunc() ◇[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);//取文件后缀 ◇[DELPHI]处理文件属性 attr:=filegetattr(filelistbox1.filename); if (attr and faReadonly)=faReadonly then ... //只读 if (attr and faSysfile)=faSysfile then ... //系统 if (attr and faArchive)=faArchive then ... //存档 if (attr and faHidden)=faHidden then ... //隐藏 ◇[DELPHI]执行程序外文件 WINEXEC//调用可执行文件 winexec( /c copy *.* c:\,SW_Normal); winexec(start abc.txt); ShellExecute或ShellExecuteEx//启动文件关联程序 function executefile(const filename,params,defaultDir:string;showCmd:integer):THandle; ExecuteFile(C:\abc\a.txt,x.abc,c:\abc\,0); ExecuteFile(,,,0); ExecuteFile(mailto:tingweb@,,,0); ◇[DELPHI]取得系统运行的进程名 var hCurrentWindow:HWnd;szText:array[0..254] of char; begin hCurrentWindow:=Getwindow(handle,GW_HWndFrist); while hCurrentWindow 0 do begin if Getwindowtext(hcurrnetwindow,@sztext,255)0 then listbox1.items.add(strpas(@sztext)); hCurrentWindow:=Getwindow(hCurrentwindow,GW_HWndNext); end; end; ◇[DELPHI]关于汇编的嵌入 Asm End; 可以任意修改EAX、ECX、EDX；不能修改ESI、EDI、ESP、EBP、EBX。 ◇[DELPHI]关于类型转换函数 FloatToStr//浮点转字符串 FloatToStrF//带格式的浮点转字符串 IntToHex//整数转16进制 TimeToStr DateToStr DateTimeToStr FmtStr//按指定格式输出字符串 formatDateTime(YYYY-MM-DD,hh-mm-ss,DATE); ◇[DELPHI]字符串的过程和函数 Insert(obj,target,po