Kolejne pytanie z rejestrem

Jak zrobić aby każdy plik z rozszerzeniem *.tex ( !!

Poszukaj na forum!!

Są też przykłady. Możesz skorzystać też z mojego unit Asocjacje (jest na 4p).

Patrz: Artykuły

Patrz: Artykuły

Po pierwsze: to jest w gotowcach.
po drugie jest tam taki kod na własne rozszerzenie:
uses Registry;

procedure TMainForm.Button1Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create; // otworz rejestr
try
try
Reg.RootKey := HKEY_CLASSES_ROOT; // odpowiedni klucz otworz :)
Reg.OpenKey( // Utworz klucz
'.rzi', True);
Reg.WriteString('', 'RziFile'); // dodaj typ klucza
Reg.CloseKey; // zamknij klucz
Reg.OpenKey( // stworz klucz oznaczajacy ikone
'rzifileDefaultIcon', True);
Reg.WriteString('', Application.ExeName + ',1');
Reg.CloseKey;
Reg.OpenKey( // stworz kolejny...
'rzifileshellopencommand', True); // akcja po nacisnieciu
Reg.WriteString('','"'+Application.ExeName+'" "%1"');// wpisz sciezke programu
Reg.CloseKey;
Reg.OpenKey(
'rzifileshellEdytuj', True); // stworz nowe pozycje - Edyuj
Reg.WriteString('', 'Otwórz w programie...'); // tekst pozycji
Reg.CloseKey;
Reg.OpenKey( // stworz akcje po nacisnieciu
'rzifileshellEdytujcommand', True);
Reg.WriteString('', '"' + Application.ExeName + '" "%1"'); // dopisz sciezke programu
except
raise Exception.Create('Błąd! Wystąpił błąd wzwiązany z rejestrem!');
end;
finally
Reg.Free;
end;
Application.MessageBox(
'Rejestracja udała się! Stwórz teraz jakiś plik z rozszerzeniem *.rzi');
end;

Wytłuszczony tekst to zapewne o tej ikonce. Mam z 4p programix ext tak jest identycznie i tem działa OK.
Ale tak się naciska na przycisk, a ja nie chcę na przycisk.
Mam ten kodzik w onCreate Formy i niedziała, bo gdy się klika na przycisk Zapisz Jako wybierze się rozszerzenie *.tex to ikonka ma postać takiej białek karteczki z logo Windows.

Może po prostu powinienem wstawić ten kod w inne miejsce?