Domyślny program

Odpowiedz Nowy wątek
2004-10-05 01:42

Rejestracja: 17 lat temu

Ostatnio: 7 lat temu

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 :)


Nie ma jutra bez komputra. :-)

Pozostało 580 znaków

2004-10-05 07:56

Rejestracja: 17 lat temu

Ostatnio: 8 lat temu

0

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


Szymek

<span style="color: blue">"Nie twierdzę, że kobiety są głupie,
zostały stworzone na podobieństwo mężczyzn...
"</span> - George Eliot<span style="color: green">

Pozostało 580 znaków

2004-10-05 09:18

Rejestracja: 17 lat temu

Ostatnio: 7 lat temu

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 :)


Nie ma jutra bez komputra. :-)

Pozostało 580 znaków

2004-10-05 14:11

Rejestracja: 17 lat temu

Ostatnio: 10 miesięcy temu

Lokalizacja: Sosnowiec

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;

Pozostało 580 znaków

2004-10-05 20:35

Rejestracja: 17 lat temu

Ostatnio: 7 lat temu

0

Dzieki Jack, zadzialalo :)


Nie ma jutra bez komputra. :-)

Pozostało 580 znaków

Odpowiedz

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