Registry;

public

{ Public declarations }

procedure RegisterFileType(ext: string; FileName: string);

procedure TForm1.RegisterFileType(ext: string; FileName: string);

var

reg: TRegistry;

begin

reg:=TRegistry.Create;

with reg do

begin

RootKey:=HKEY_CLASSES_ROOT;

OpenKey('.'+ext,True);

WriteString('',ext+'file');

CloseKey;

CreateKey(ext+'file');

OpenKey(ext+'file\DefaultIcon',True);

WriteString('',FileName+',0');

CloseKey;

OpenKey(ext+'file\shell\open\command',True);

WriteString('',FileName+' "%1"');

CloseKey;

Free;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

RegisterFileType('DelphiWorld', Application.ExeName);

end;