◇[DELPHI]网络邻居复制文件 [DELPHI]
网络邻居复制文件 uses shellapi; copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),fals e); ◇[DELPHI]产生鼠标拖动效果 [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 目录 [DELPHI]取得 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 或其他容器上画线 [DELPHI]在 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]字符串列表使用 [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]简单的剪贴板操作 [DELPHI]简单的剪贴板操作 richedit1.selectall; richedit1.copytoclipboard; richedit1.cuttoclipboard; edit1.pastefromclipboard;
第 1 页 共 31 页
◇[DELPHI]关于文件、目录操作 [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]处理文件属性 [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]执行程序外文件 [DELPHI]执行程序外文件 WINEXEC//调用可执行文件 winexec('command /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('tingweb.yeah.net','','',0); ExecuteFile('mailto:ting
web@wx.net','','',0); [DELPHI]取得
系统运行的进程名 ◇[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 listbox1.items.add(strpas(@sztext)); hCurrentWindow:=Getwindow(hCurrentwindow,GW_HWndNext); end; end; ◇[DELPHI]关于汇编的嵌入 [DELPHI]关于汇编的嵌入 Asm End; 可以任意修改 EAX、ECX、EDX;不能修改 ESI、EDI、ESP、EBP、EBX。
第 2 页 共 31 页
then
◇[DELPHI]关于类型转换函