Forbind med .TD3

programkoden er med forklaring

http://www.swissdelphicenter.ch/en/showcode.php?id=178

function TfrmMain.AssociateExtension(const aApplicationName, aApplicationTitle,
                                          aExtension, aFilename  : string) : integer;
begin
  with TRegistry.Create do
    try
      RootKey := HKEY_CLASSES_ROOT;

      if OpenKey('\' + aApplicationName,true) then
      begin
        WriteString('',aApplicationTitle);
        CloseKey;
      end;

      if OpenKey('\' + aExtension,true) then
      begin
        WriteString('',aApplicationName);
        CloseKey;
      end;

      if OpenKey('\'+aApplicationName,true) then
      begin
        WriteString('shell\open\command',aFilename + ' %1');
        CloseKey;
      end;
    finally
      Free;
    end;
end;

Stone kom først - man kan sgu da heller ikke tillade sig at slukke PC'en. Har modificeret lidt ved min rutine så nu er den helt analog med den stone refererer til

I øvrigt underligt at der ikke er et API-kald der registrerer lige netop det. Det er jo ikke for at windows API'en mangler procedurer og funktioner.

function TfrmMain.AssociateExtension(const aApplicationName, aApplicationTitle,
                                          aExtension, aFilename  : string) : integer;
begin
  result := false;
  with TRegistry.Create do
    try
      RootKey := HKEY_CLASSES_ROOT;

      if OpenKey('\' + aApplicationName,true) then
      begin
        WriteString('',aApplicationTitle);
        CloseKey;
      end;

      if OpenKey('\' + aExtension,true) then
      begin
        WriteString('',aApplicationName);
        CloseKey;
      end;

      if OpenKey('\'+aApplicationName,true) then
      begin
        WriteString('shell\open\command',aFilename + ' %1');
        CloseKey;
      end;
      // Notify the world. Shout it out: I have changed!
      SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
      result := true;
    finally
      Free;
    end;
end;

hjælp!!

stone jeg har prøvet dit forslag. har denne kode:
procedure TForm1.RegisterFileType ;
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_CLASSES_ROOT;
    //create a new key  --> .pci
    reg.OpenKey('.' + prefix, True);
    try
      //create a new value for this key --> pcifile
      reg.Writestring('', prefix + 'file');
    finally
      reg.CloseKey;
    end;
    //create a new key --> pcifile
    reg.CreateKey(prefix + 'file');
    //create a new key pcifile\DefaultIcon
    reg.OpenKey(prefix + 'file\DefaultIcon', True);
    //and create a value where the icon is stored --> c:\project1.exe,0
    try
      reg.Writestring('', exepfad + ',0');
    finally
      reg.CloseKey;
    end;
    reg.OpenKey(prefix + 'file\shell\open\command', True);
    //create value where exefile is stored --> c:\project1.exe "%1"
    try
      reg.Writestring('', exepfad + ' "%1"');
    finally
      reg.CloseKey;
    end;
  finally
    reg.Free;
  end;
  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
end;

procedure TForm1.ForbindmedTD31Click(Sender: TObject);
var dir : string;
begin
dir := ExtractFilePath(Application.ExeName);
RegisterFileType('TD3', 'c:\project1.exe');
end;


men ved:
RegisterFileType('TD3', 'c:\project1.exe');
giver den fejlen
[Pascal Error] Unit1.pas(258): E2034 Too many actual parameters
kan i hjælpe??, prøver hrc's forslag om lidt.

har du prøvet at trykke F1 ved fejlen så får du en forklaring

hmm næ.. har jeg sgu aldrig hørt om.

men jeg kan derværre ikke lige rette fejlen da jeg ikke fatter en brik af engelsk. så kan i give en kort oversættelse og en rettelse??

så løste problemet sig vist alligevel. her er den endelige kode, hvis der er andre som kigger med:

uses: registry, shlobj;

procedure TForm1.RegisterFileType(prefix: string; exepfad: string);
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_CLASSES_ROOT;
    reg.OpenKey('.' + prefix, True);
    try
      reg.Writestring('', prefix + 'file');
    finally
      reg.CloseKey;
    end;
    reg.CreateKey(prefix + 'file');
    reg.OpenKey(prefix + 'file\DefaultIcon', True);
    try
      reg.Writestring('', exepfad + ',0');
    finally
      reg.CloseKey;
    end;
    reg.OpenKey(prefix + 'file\shell\open\command', True);
    try
      reg.Writestring('', exepfad + ' "%1"');
    finally
      reg.CloseKey;
    end;
  finally
    reg.Free;
  end;
  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
end;

procedure TForm1.ForbindmedTD31Click(Sender: TObject);
var dir : string;
begin
dir := ExtractFilePath(Application.ExeName);
RegisterFileType('TD3', (dir + 'project1.exe'));
end;