xregistry.pas

来自「一组实用的公共函数」· PAS 代码 · 共 29 行

unit xRegistry;

interface

uses Windows, SysUtils, Registry;

function GetAssociatedExecutable(FileExt: string; var FileDesc, MIMEType: string): string;
function SetAssociatedExecutable(FileExt, Filetype, FileDesc, MIMEType, ExecutablePath: string): Boolean;

function ReadKeyStringValue(REG: TRegistry; const sKey, sItem: string): string;
procedure WriteKeyStringValue(REG: TRegistry; const sKey, sItem, sValue: string);

function ReadRegistryKeyStringValue(Root: HKEY; const Key, Item: String): String;
procedure WriteRegistryKeyStringValue(Root: HKEY; const Key, Item, Value: String);

implementation

uses xStrings;

function GetAssociatedExecutable(FileExt: string; var FileDesc, MIMEType: string): string;
var
  Filetype: string;
  P       : PChar; 
begin
  Result := '';
  
  if FileExt = '' then Exit;
  
  // 絋玂 FileExt