Hej ...
Jeg har fået den lidt skøre ide at gøre sådan at man kan skrive ind at *.txt filer skal åbnes i mit program og kan jo godt gøre det ved hjælp af reg. men kan man uden den hvis ja hvordan ?
-------------------------------------------------------
My name is Johnny and i am Funny and have a lots of Money. ;-)
I Delphi kan man vist ikke gøre det uden at bruge reistreringsdatabasen, men den her kode vil tilføje dit program til .txt filerne i registreringsdatabasen:
<pre>uses ... Registry;
var
MyReg: Tregistry;
begin
MyReg := Tregistry.Create;
MyReg.RootKey := HKEY_CLASSES_ROOT;
MyReg.OpenKey('.txt', true);
MyReg.WriteString('', 'DitProgram-Fil');
MyReg.CloseKey;
MyReg.OpenKey('DitProgram-Fil\\shell\\open\\command', true);
MyReg.WriteString('', '"'+application.exename+'" "%1"');
MyReg.CloseKey;
MyReg.OpenKey('DitProgram-Fil\\DefaultIcon', true);
MyReg.WriteString('', application.exename+',0'); // Stien til det ikon .txt filerne skal have
MyReg.CloseKey;
MyReg.free;
end;</pre>
Emil Melgaard
- Admin på gruppen Delphi spilprogrammering.
http://www.delphispilprogram.udvikleren.dk[Redigeret d. 11/10-03 16:08:42 af Emil Melgaard]