tekst pro...

procedure CreateRegKey(const Root: HKEY; const Key, ValueName, Value: string);
var
  Handle: HKey;
  Status, Disposition: Integer;
begin
  Status := RegCreateKeyEx(Root, PChar(Key), 0, '',
    REG_OPTION_NON_VOLATILE, KEY_READ or KEY_WRITE, nil, Handle,
    @Disposition);
  if Status = 0 then
  begin
    Status := RegSetValueEx(Handle, PChar(ValueName), 0, REG_SZ,
      PChar(Value), Length(Value) + 1);
    RegCloseKey(Handle);
  end;
  if Status <> 0 then raise EOleRegistrationError.CreateRes(@SCreateRegKeyError);
end;

CreateRegKey(HKEY_CLASSES_ROOT, 'HKEY_CLASSES_ROOT\.txt', '', 'txtfile');
CreateRegKey(HKEY_CLASSES_ROOT, 'HKEY_CLASSES_ROOT\txtfile\shell\open\command', '', ParamStr(0));

Mr. cms du må forklar jeg forstå slet ikke hvad der stå

:-)
okay.

Doh, der er også en fejl. Nå min computer er lige nede. To øjeblikke (timer)...

Jeg venter

kender du til registreringsdatabasen?

ja

oki.
Det første den gør er at sætte den default value i key'en HKEY_CLASSES_ROOT\.txt til "txtfile".
Dette er en slags henvisning der skal laves for at explorer ved hvor den skal finde informationerne omkring .txt-filer
Det næste den gør er at sætte den default value i key'en
HKEY_CLASSES_ROOT\txtfile\shell\open\command til ParamStr(0). ParamStr(0) er en funktion der returnerer navn og sti til din applikation. Altså fx. "c:\programmer\borland\delphi 5\projects\hejsa\hejsa.exe"

Rigtigt skal den dog se sådan ud:
CreateRegKey(HKEY_CLASSES_ROOT, '\.txt', '', 'txtfile');
CreateRegKey(HKEY_CLASSES_ROOT, '\txtfile\shell\open\command', '', ParamStr(0)+' "%1"');

tak for hjælpen MR. CMS

så lidt :)
hvor kommer mr. fra?
yubbii, så nåede jeg 4.000 points :))