摘要:var Str:TStream; begin Str:=TFileStream.Create('c:/windows/system32/taskmgr.exe',fmOpenWrite); end; View Code
阅读全文
posted @ 2013-10-09 11:18
|
|||
随笔分类 - Delphi
摘要:var Str:TStream; begin Str:=TFileStream.Create('c:/windows/system32/taskmgr.exe',fmOpenWrite); end; View Code
阅读全文
posted @ 2013-10-09 11:18
摘要://方法1: uses EncdDecd; Memo2.Text:=UTF8Decode( DecodeString(Memo1.Text));//方法2:// 使用控件 Memo2.Text:=IdDecoderMIME1.DecodeString(Memo1.Text);View Code
阅读全文
posted @ 2013-10-09 11:10
摘要:找到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
摘要: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
|
|||