知识大全 Delphi基础开发技巧浅析

Posted 2022-07-22 事件

篇首语：知识养成了思想,思想同时又在融化知识。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi基础开发技巧浅析相关的知识，希望对你有一定的参考价值。

新手学堂：Delphi基础开发技巧浅析 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

◇[DELPHI]网络邻居复制文件　　uses shellapi;　　copyfile(pchar( newfile txt ) pchar( //putername/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[ ] of char;　　geindowsdirectory(windir sizeof(windir));　　或者从注册表中读取位置　　HKEY_LOCAL_MACHINE\\Sofare\\Microsoft\\Windows\\CurrentVersion　　SystemRoot键取得如 C:\\WINDOWS　　　　◇[DELPHI]在form或其他容器上画线　　var x y:array [ ] of integer;　　lor:=clred;　　canvas pen style:=psDash;　　form canvas moveto(trunc(x[i]) trunc(y[i]));　　form canvas lineto(trunc(x[j]) trunc(y[j]));　　　　◇[DELPHI]字符串列表使用　　var tips:tstringlist;　　tips:=tstringlist create;　　tips loadfromfile( filename txt );　　edit text:=tips[ ];　　tips add( last line addition string );　　tips insert( insert string at NO line );　　tips savetofile( newfile txt );　　tips free;　　　　◇[DELPHI]简单的剪贴板操作　　richedit selectall;　　pytoclipboard;　　richedit cuttoclipboard;　　edit pastefromclipboard;　　　　◇[DELPHI]关于文件目录操作　　Chdir( c:\\abcdir );转到目录　　Mkdir( dirname );建立目录　　Rmdir( dirname );删除目录　　GetCurrentDir;//取当前目录名无 \\ 　　Getdir( s);//取工作目录名s:= c:\\abcdir ;　　Deletfile( abc txt );//删除文件　　Renamefile( old txt new txt );//文件更名　　ExtractFilename(filelistbox filename);//取文件名　　ExtractFileExt(filelistbox filename);//取文件后缀　　　　◇[DELPHI]处理文件属性　　attr:=filegetattr(filelistbox 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\\ );　　ExecuteFile( );　　ExecuteFile( mailto: );　　　　◇[DELPHI]取得系统运行的进程名　　var hCurrentWindow:HWnd;szText:array[ ] of char;　　begin　　hCurrentWindow:=Geindow(handle GW_HWndFrist);　　while hCurrentWindow <> do　　begin　　if Geindowtext(hcurrneindow @sztext )> then ems add(strpas(@sztext));　　hCurrentWindow:=Geindow(hCurrenindow GW_HWndNext);　　end;　　end;　　　　◇[DELPHI]关于汇编的嵌入　　Asm End;　　可以任意修改EAX ECX EDX 不能修改ESI EDI ESP EBP EBX 　　　　◇[DELPHI]关于类型转换函数　　FloatToStr//浮点转字符串　　FloatToStrF//带格式的浮点转字符串　　IntToHex//整数转进制　　TimeToStr　　DateToStr　　DateTimeToStr　　FmtStr//按指定格式输出字符串　　formatDateTime( YYYY MM DD hh mm ss DATE);　　　　◇[DELPHI]字符串的过程和函数　　Insert(obj target pos);//字符串target插入在pos的位置如插入结果大于target最大长度多出字符将被截掉如Pos在以外会产生运行错例如 st:= Brian 则Insert（ OK st ）会使st变为 BrOKian 　　Delete(st pos Num);//从st串中的pos（整型）位置开始删去个数为Num（整型）个字符的子字串例如 st:= Brian 则Delete(st )将变为Brn 　　Str(value st);//将数值value（整型或实型）转换成字符串放在st中例如 a= E 时则str(a: st)将使st的值为　　Val(st var code);//把字符串表达式st转换为对应整型或实型数值存放在var中 St必须是一个表示数值的字符串并符合数值常数的规则在转换过程中如果没有检测出错误变量code置为否则置为第一个出错字符的位置例如 st:= E x是一个实型变量则val(st x code)将使X值为 code值为　　Copy(st pos num);//返回st串中一个位置pos（整型）处开始的含有num（整型）个字符的子串如果pos大于st字符串的长度那就会返回一个空串如果pos在以外会引起运行错误例如 st:= Brian 则Copy(st )返回 ri 　　Concat(st st st …… stn);//把所有自变量表示出的字符串按所给出的顺序连接起来并返回连接后的值如果结果的长度将产生运行错误例如 st := Brian st := st := Wilfred 则Concat(st st st )返回 Brian Wilfred 　　Length(st);//返回字符串表达式st的长度例如 st:= Brian 则Length(st)返回值为　　Pos(obj target);//返回字符串obj在目标字符串target的第一次出现的位置如果target没有匹配的串 Pos函数的返回值为例如 target:= Brian Wilfred 则Pos( Wil target)的返回值是 Pos( hurbet target)的返回值是　　　　◇[DELPHI]关于处理注册表　　uses Registry;　　var reg:Tregistry;　　reg:=Tregistry create;　　reg rootkey:= HKey_Current_User ;　　reg openkey( Control Panel\\Desktop false);　　reg WriteString( Title Wallpaper );　　reg writeString( Wallpaper filelistbox filename);　　reg closereg;　　reg free;　　　　◇[DELPHI]关于键盘常量名　　VK_BACK/VK_TAB/VK_RETURN/VK_SHIFT/VK_CONTROL/VK_MENU/VK_PAUSE/VK_ESCAPE　　/VK_SPACE/VK_LEFT/VK_RIGHT/VK_UP/VK_DOWN　　F F $ ( ) $ B( )　　A Z $ ( ) $ A( )　　 $ ( ) $ ( )　　◇[DELPHI]初步判断程序母语　　DELPHI软件的DOS提示 This Program Must Be Run Under Win 　　VC++软件的DOS提示 This Program Cannot Be Run In DOS Mode 　　　　◇[DELPHI]操作Cookie　　okies( name ) domain:= ;　　with okies add do　　begin　　name:= username ;　　value:= username ;　　end　　　　◇[DELPHI]增加到文档菜单连接　　uses shellapi shlOBJ;　　shAddToRecentDocs(shArd_path pchar(filepath));//增加连接　　shAddToRecentDocs(shArd_path nil);//清空　　　　◇[杂类]备份智能ABC输入法词库　　windows\\system\\user rem　　windows\\system\\tmmr rem　　　　◇[DELPHI]判断鼠标按键　　if GetAsyncKeyState(VK_LButton)<> then //左键　　if GetAsyncKeyState(VK_MButton)<> then //中键　　if GetAsyncKeyState(VK_RButton)<> then //右键　　　　◇[DELPHI]设置窗体的最大显示　　onformCreate事件　　self width:=screen width;　　self height:=screen height;　　　　◇[DELPHI]按键接受消息　　OnCreate事件中处理 Application OnMessage:=MyOnMessage;　　procedure Tform MyOnMessage(var MSG:TMSG;var Handle:Boolean);　　begin　　if ssage= then //ANY键　　if ssage= then //F 　　if ssage= then //F 　　end;　　　　◇[杂类]隐藏共享文件夹　　共享效果可访问但不可见（在资源管理网络邻居中）　　取共享名为 direction$　　访问 //puter/dirction/　　　　◇[Java Script]Java Script网页常用效果　　网页秒定时关闭　　　　关闭窗口　　关闭　　定时转URL　　　　设为首页　　设为首页　　收藏本站　　收藏本站　　加入频道　　加入频道　　　　　　◇[DELPHI]随机产生文本色　　randomize;//随机种子　　lor:=rgb(random( ) random( ) random( ));　　　　◇[DELPHI]DELPHI UPDATE升级补丁序列号　　　　 X fx 　　　　◇[DELPHI]文件名的非法字符过滤　　for i:= to length(s) do　　if s[i] in [ \\ / : * ? < > | ] then　　　　◇[DELPHI]转换函数的定义及说明　　datetimetofiledate (datetime:Tdate cha138/Article/program/Delphi/201311/8427