Åben fil med program

ikke noget... hvis du har sat din reg.db op rigtig burde den åbne den automatisk

som regel er det dog lettere at gøre det gennem "åben med"-funktionen i windows

doh... jeg sidder vist og svarer på det forkerte... sorry

>> mysitesolution

hvad mener du ?

Stoney

uses registry;

var
  MyReg: TRegistry;
begin
  MyReg := TRegistry.Create;
  MyReg.RootKey := HKEY_CLASSES_ROOT;
  MyReg.LazyWrite := false;
  MyReg.OpenKey('.wit\shell\open\command', true);
  MyReg.WriteString('', '"'+application.exename+'" "%1"');
  MyReg.CloseKey;
  MyReg.OpenKey('.wit\DefaultIcon', true);
  MyReg.WriteString('', application.exename+',0');
  MyReg.CloseKey;
  MyReg.free;
end;

fx .doc dokumenter ( Word-dokumenter ) de åbner automatisk med word, hvordan gør jeg så .wit filer åbnes automatisk med mit program

se dkn's indlæg

Stoney

dkn -> det er ganske almindelige tekst filer, hvad skal jeg så skrive i mit program for at den gør dette: code.loadfromfile(filen);

er filnavnet gemt i paramstr eller noget?

ja det ligger i paramstr

var
i:integer;
st:String;
begin
st := '';
for i := 1 to paramcount do
  st := st+paramstr(I);
showmessage(st);
end;