Hejsan
Jag vill att när man klickar på en filtyp av tex .bj så ska mitt program startas
hur fixar man det? i registret?

Om du klickar på din fil i filhanteraren så kommer Windows fråga vilket program denna filtyp skall associeras med. Välj då ditt program så kommer det fungera och se även till att ditt program kan ta emot ett filnamn som skickas med.

Kan du exempelvis skriva test.exe pelle.txt och den filen används, då fungerar även ditt program i detta syfte.

Hejsan pelle
Antar att användare inte vill göra så här för att få det fixas
kanske borde ha skrivit att jag ville göra det med kod..=/ (om det går)

Testa följande:

<code>
uses registry, shlobj;

procedure RegisterFileType(ExtName:String; AppName:String);
var
reg:TRegistry;
begin
reg := TRegistry.Create;
try
reg.RootKey:=HKEY_CLASSES_ROOT;
reg.OpenKey('.' + ExtName, True);
reg.WriteString('', ExtName + 'file');
reg.CloseKey;
reg.CreateKey(ExtName + 'file');
reg.OpenKey(ExtName + 'file\DefaultIcon', True);
reg.WriteString('', AppName + ',0');
reg.CloseKey;
reg.OpenKey(ExtName + 'file\shell\open\command', True);
reg.WriteString('',AppName+' "%1"');
reg.CloseKey;
finally
reg.Free;
end

SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
RegisterFileType('adp','c:\myadpapp.exe');
end;
</code>