haiou327’blog

var i, d: integer; List: TStringlist; Reg: Tregistry; s: string;begin List := TStringList.Create; Reg := Tregistry.Create; Reg.RootKey := HKEY_LOCAL_MACHINE; Reg.OpenKe

(* 注册(关联)指定的扩展名 *) unit xRegExt; interface uses Registry, shlobj, Windows; /// /// 获取指定扩展名的打开程序 /// function GetExeByExtension(sExt : string) : string; /// /// 注册(关联)指定的扩展名 ///

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

{ 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

var reg: TRegistry; KeyList: TStringList; intIdx: Integer; Itm: TListItem; s: string; begin try KeyList := TStringList.Create; reg := TRegistry.Create; reg.RootKey := HKEY_LOCA

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