DLL regisztráció egy kattintással

var reg: TRegIniFile;
    WinSysDir:Array[0..255] of char;
    RegCmd, UnregCmd, ViewCmd:string;
begin

    GetSystemDirectory(WinSysDir, 256);

    ViewCmd:=WinSysDir+'\VIEWERS\QUIKVIEW.EXE';
    RegCmd:=WinSysDir+'\REGSVR32.EXE %1';
    UnregCmd:=WinSysDir+'\REGSVR32.EXE /u %1';

    reg:=TRegIniFile.Create('');

    with reg do
    begin
        RootKey:=HKEY_CLASSES_ROOT;

        if FileExists(ViewCmd) then
        begin
            WriteString('dllfile\Shell\Open', '', 'Megnyitás ...');
            WriteString('dllfile\Shell\Open\command', '', ViewCmd+' %1');
        end;
        WriteString('dllfile\Shell\Register','','Register');
        WriteString('dllfile\Shell\Register\command','', RegCmd);
        WriteString('dllfile\Shell\Unregister','','Unregister');
        WriteString('dllfile\Shell\Unregister\command','', UnregCmd);
        Free;
    end;

    ShowMessage('Kész!');
end.