регистрация расширения

[Djonik]

вот код:

 procedure TForm1.FormCreate(Sender: TObject);
var
 reg :Tregistry;

begin
   Reg:=TRegistry.Create;
  reg.RootKey:=hkey_classes_root;
  Reg.OpenKey('.kna',true); 
  reg.WriteString('','My'); 
  reg.CloseKey;
  Reg.OpenKey('My',true);
  reg.WriteString('','Файл .kna');
  //короче ниже так должно быть
  Reg.OpenKey('shell',true);
  Reg.OpenKey('open',true);
  reg.OpenKey('command',true);
   reg.WriteString('',Application.ExeName+' "%1"');
   reg.CloseKey;
  reg.Free;
 
 if ParamCount() >1 then
    begin
      fileName:=Paramstr(1);
      Form1.Caption:=FileName;
    end
end;

Расширение регистрируется все нормально, а функция ParamCount возвращает ноль и Paramst пустая строка. Мне нужен путь к файлу с которого я запустил программу.

[ОДИНОЧЕСТВО В СЕТИ]

Мне нужен путь к файлу с которого я запустил программу.

к exe - шнику чтоль?

GetDir(0,s);
 showmessage (s+application.ExeName);

или

s:=ExtractFilePath(paramstr(0))+application.ExeName;
 showmessage (s);

[Djonik]

Путь к *.kna. Paramstr должна вернуть этот путь , но почему то она пустая.