xregistry.pas

来自「在深度历险网站上发布的所有delphi程序原码。对初学delphi者很有用。」· PAS 代码 · 共 26 行

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 ReadKeyDefaultValue(REG: TRegistry; const sKey: string): string;
procedure WriteKeyDefaultValue(REG: TRegistry; const sKey, sValue: 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