摘要: procedure THostForm.LoadLocalModules;var i, x : integer; parentnode: TTreeNode; controller : THYModuleController; plugindescriptor : THYPLuginDescriptor;begin TreeView.Items.BeginUpdate; with ModuleManager do begin LoadModules(GetAppPath + 'plugin/*.dll'); for i := 0 to (ModuleCount - 1) do 阅读全文
posted @ 2010-11-25 16:16 delphi中间件 阅读(291) 评论(0) 推荐(0) 编辑
摘要: function blTree(const NodeCaption: string): TTreeNode; function GetNode(node: TTreeNode): TTreeNode; var I:integer; begin Result := nil; if node.Text = NodeCaption then begin Result := node; Exit; end; for I:=0 to node.Count-1 do begin GetNode(node.Item[i]); end; end;var I:integer;begin Result ... 阅读全文
posted @ 2010-11-25 16:14 delphi中间件 阅读(628) 评论(0) 推荐(0) 编辑
摘要: 1、CompareMem(@guid1, @guid2, SizeOf(TGUID))最开始时想到的方法。查看Delphi中TGUID的定义可以看到TGUID实际上是一个结构。对于结构的比较来说最方便的就是内存直接比较了。TGUID = packed recordD1: LongWord;D2: Word;D3: Word;D4: array[0..7] of Byte;end;2、SysUtils.IsEqualGUID(const guid1, guid2: TGUID)经人提醒后发现在SysUtils单元已经有了一个这样专门比较GUID是否相等的函数。查看SysUtils的源码可以看到, 阅读全文
posted @ 2010-11-25 07:30 delphi中间件 阅读(606) 评论(0) 推荐(0) 编辑
摘要: uses ComObj, ActiveX; procedure TForm1.Button1Click(Sender: TObject); var Guid: TGUID; str: string; begin CoCreateGuid(Guid); str := GUIDToString(Guid); Memo1.Lines.Add(str); end; procedure TForm1.Button2Click(Sender: TObject); const Guid: TGUID = (D1:$AAAAAAAA; D2:$BBB... 阅读全文
posted @ 2010-11-25 07:18 delphi中间件 阅读(323) 评论(0) 推荐(0) 编辑