1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

Windows Registry Editor Version 5.00

[HKEY_USERS\S-1-5-21-1229272821-299502267-839522115-1004\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.jpg]

[HKEY_USERS\S-1-5-21-1229272821-299502267-839522115-1004\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.jpg\OpenWithList]
"a"="Skype.exe"
"MRUList"="bhefcjdga"
"b"="mspaint.exe"
"c"="Photoshop.exe"
"d"="opera.exe"
"e"="delphi32.exe"
"f"="msnmsgr.exe"
"g"="IEXPLORE.EXE"
"h"="photopnt.exe"
"i"="msmsgs.exe"
"j"="trillian.exe"

[HKEY_USERS\S-1-5-21-1229272821-299502267-839522115-1004\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.jpg\OpenWithProgids]
"jpegfile"=hex(0):
"CorelPhotoPaint.Image.7"=hex(0):                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

uses 
  registry, shlobj; 

procedure TForm1.RegisterFileType(prefix: string; exepfad: string); 
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.Button1Click(Sender: TObject); 
begin 
  RegisterFileType('pci', 'c:\project1.exe'); 
end;