Welkom bij de Tweaking4All gemeenschapsforums!
Voor je gaat deelnemen, bekijk de Forum Regels!
Specifieke onderwerpen: Start het onderwerp met de naam van het programma of systeem.
Bijvoorbeeld “MacOS X – Jouw vraag“, of bijvoorbeeld “MS Word – Jouw Tip of Truc“.
Merk op: Omschakelen naar een andere taal zal niet werken als je een post aan het lezen bent aangezien er waarschijnlijk geen vertaling beschikbaar is.
Met de volgende procedure kun je jouw programma als standaard programma instellen voor een bepaalde file-extensie:
procedure RegisterFileType(ExtName:String; AppName:String);
var reg:TRegistry;
begin
reg := TRegistry.Create;
try with reg do
begin
RootKey:=HKEY_CLASSES_ROOT;
OpenKey('.' + ExtName, True);
WriteString('', ExtName + 'file');
CloseKey;
CreateKey(ExtName + 'file');
OpenKey(ExtName + 'fileDefaultIcon', True);
WriteString('', AppName + ',0');
CloseKey;
OpenKey(ExtName + 'fileshellopencommand', True);
WriteString('',AppName+' "%1"');
CloseKey;
end;
finally
reg.Free;
end;
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil) ;
end;
