大悟还俗

邮箱 key_ok@qq.com 我的收集 http://pan.baidu.com/share/home?uk=1177427271
  新随笔  :: 联系 :: 订阅 订阅  :: 管理

随笔分类 -  Delphi

上一页 1 ··· 4 5 6 7 8

摘要:var Str:TStream; begin Str:=TFileStream.Create('c:/windows/system32/taskmgr.exe',fmOpenWrite); end; View Code 阅读全文

posted @ 2013-10-09 11:18 大悟还俗_2 阅读(294) 评论(0) 推荐(0)

摘要://方法1: uses EncdDecd; Memo2.Text:=UTF8Decode( DecodeString(Memo1.Text));//方法2:// 使用控件 Memo2.Text:=IdDecoderMIME1.DecodeString(Memo1.Text);View Code 阅读全文

posted @ 2013-10-09 11:10 大悟还俗_2 阅读(521) 评论(0) 推荐(0)

摘要:找到Delphi XE5的安装根目录 .... \Program Files (x86)\Embarcadero\RAD Studio\12.0\bin下的cglm.ini文件,打开cglm.ini文件[Embarcadero License Management]RootDir=${MODULE_DIR}\..LicenseDir=${ROOTDIR}\LicenseInfoDir=${COMMON_APPDATA}\Embarcadero\.licensesSlipDir=${COMMON_APPDATA}\Embarcadero\RegExe=bdsreg.exeLockType=5[E 阅读全文

posted @ 2013-09-17 13:01 大悟还俗_2 阅读(349) 评论(0) 推荐(1)

摘要:var i:Integer;begin for i:=0 to componentcount-1 do begin if (components[i] is TEDIT) then begin TEDIT(components[i]).text:=''; end; end; end; 阅读全文

posted @ 2012-04-28 11:21 大悟还俗_2 阅读(175) 评论(0) 推荐(0)

上一页 1 ··· 4 5 6 7 8