Domyślny program

0

Witam, chcialem tylko zapytac czy taka postac powinny przyjac klucze w rejestrze aby moj program stal sie domyslnym programem do otwierania plikow .asm ??
Generalnie to co procka tworzy podobne jest do reszty znajdujacych sie juz tam kluczy (dla innych rozszerzen) ale nie dziala :(

procedure TForm2.CheckBox1Click(Sender: TObject);
var
reg: TRegistry;
begin
reg:= TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.OpenKey('asmfile\Shell\Open\Command', True);
Reg.WriteString('', '"'+ Application.ExeName + '" "%1"');
reg.CloseKey;
Reg.OpenKey('asmfile\DefaultIcon', True);
Reg.WriteString('',Application.ExeName+',1');
reg.Free;
end;

Dzieki z gory :)

0

Zapomniałeś dodać klucz .asm i tam wartość domyślną ustawić na asmfile.

0

Niestety, zrobilem tak jak mowiles i dalej nie dziala :( ale jak usune klucz asmfile to wtedy juz jest postep bo odpala sie moj program ale nic nie laduje :)

0
procedure Button1Click(Sender: TObject);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    with Reg do
    begin
      Reg.RootKey := HKEY_CLASSES_ROOT;

      OpenKey('.asm', True);
      WriteString('', 'asmfile');
      CloseKey;

      OpenKey('asmfile\shell\open\command', True);
      WriteString('', '"' + Application.ExeName + '" "%1"');
      CloseKey;

      OpenKey('asmfile\DefaultIcon', True);
      WriteString('', Application.ExeName + ',1');
      CloseKey;
    end;
  finally
    Reg.Free;
  end;
end;
0

Dzieki Jack, zadzialalo :)

1 użytkowników online, w tym zalogowanych: 0, gości: 1