Registry
文章平均质量分 51
seagull327
若大的世界
展开
-
Regedit
var i, d: integer; List: TStringlist; Reg: Tregistry; s: string;begin List := TStringList.Create; Reg := Tregistry.Create; Reg.RootKey := HKEY_LOCAL_MACHINE; Reg.OpenKe原创 2009-07-06 21:34:00 · 1007 阅读 · 0 评论 -
Delphi 注册(关联)指定的扩展名
(*注册(关联)指定的扩展名*)unit xRegExt;interfaceuses Registry, shlobj, Windows;/// /// 获取指定扩展名的打开程序/// function GetExeByExtension(sExt : string) : string;/// /// 注册(关联)指定的扩展名///转载 2012-11-04 13:48:36 · 807 阅读 · 0 评论 -
Registry Demo
var Reg: TRegistry;begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_CLASSES_ROOT; if Reg.OpenKey(Edit2.Text, True) then begin Reg.WriteString('', Edit2.Text + ' Protoco原创 2013-01-18 18:25:09 · 505 阅读 · 0 评论 -
用KOL操作注册表(非DELPHI的registry)
{ KOL MCK } // Do not remove this line!{$DEFINE KOL_MCK}unit main;interface{$IFDEF KOL_MCK}uses Windows, Messages, ShellAPI, KOL {$IFNDEF KOL_MCK}, mirror, Classes, Controls, mckControls, mckOb转载 2013-02-16 13:38:17 · 906 阅读 · 0 评论 -
ListView_Registry
var reg: TRegistry; KeyList: TStringList; intIdx: Integer; Itm: TListItem; s: string;begin try KeyList := TStringList.Create; reg := TRegistry.Create; reg.RootKey := HKEY_LOCA原创 2009-10-19 02:06:00 · 468 阅读 · 0 评论 -
Registry and AdvstringGrid
var sBuf: array[1..1024] of byte;begin sBuf[1] := 128; sBuf[2] := 00; sBuf[3] := 00; sBuf[4] := 00; sBuf[5] := 00; sBuf[6] := 126; sBuf[7] := 00; sBuf[8] := 00; sBuf[9] := 00; s原创 2009-10-18 02:05:00 · 736 阅读 · 0 评论