该文被密码保护。 阅读全文

摘要： 执行这些代码, Edit1只能输入数字,小数点和负号,负号和小数点只能输入一个,负号必须在最前,粘贴的数字必须完全正确. type TForm1 = class(TForm) Edit1: TEdit; procedure FormCreate(Sender: TObject); private Edit1OldProc: TWndMethod; pro... 阅读全文

该文被密码保护。 阅读全文

摘要： jo := SO(); jo.S['tttt'] := 'tttt'; TbSendedTidJson['jo'] := jo; ja := TbSendedTidJson['jo'];//取出来后，增加新的key， TbSendedTidJson的内容也变的 ja.S['bbb'] := 'bbb'; ShowMessage(TbSendedTidJson.AsString); ... 阅读全文

摘要： TOleControl(WebBrowser1).Visible := False 这样就可以隐藏浏览器控件了。 ---------------------------------------------- RTC三层技术交流，QQ：64445322 作者： 男 crystalmoon (黑夜杀手) ▲▲▲▲▲ - 盒子活跃会员 2017-4-13 14:14:44 8楼：... 阅读全文

摘要： function RegDataToDataType(Value: TRegDataType): Integer; begin case Value of rdString: Result := REG_SZ; rdExpandString: Result := REG_EXPAND_SZ; rdInteger: Result := REG_DWORD; rd... 阅读全文

摘要： //其实是对应的{ TModalResult values } const mrNone = 0; mrOk = idOk; mrCancel = idCancel; mrAbort = idAbort; mrRetry = idRetry; mrIgnore = idIgnore; mrYes = idYes; ... 阅读全文

摘要： procedure delay(msecs: integer); var Tick: DWord; Event: THandle; begin Event := CreateEvent(nil, False, False, nil); try Tick := GetTickCount + DWord(msecs); while (msecs > 0) ... 阅读全文

摘要： 晕!这个不是很简单的东西吗? //---------WMI---------- type Rec_Wmi = record ComputerName: string; Namespace: string; User: string; Password: string; WMIType: string; Enum: IEnumVariant; ... 阅读全文

该文被密码保护。 阅读全文