rechtsklick-neue *** Datei

[scp]

Es geht auch einfacher, die Lösung heisst AddNewFileSupport(), ist sogar schon im Beispielprogramm drin:

Delphi-Quellcode:

uses
  ftypesAPI;
//...
              ftr := TFileTypeRegistration.Create;
              if(ftr <> nil) then
              try
                //...
                  if(ftr.RegisterType('.foo','FooFile','FOO-File')) then
                  begin
                    ftr.AddHandler('open','notepad.exe "%1"','Öffnen');
                    ftr.AddHandler('print','notepad.exe /p "%1"');
                    ftr.SetDefaultHandler;
                    ftr.AddNewFileSupport('.foo');
                  end;
                //...