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:

 procedure TTurnierplaner.ExtRegistrieren(var Schluss : Boolean);
var
  R: tWinRegistry;
begin

  R := TWinRegistry.CreateWithKey(HKEY_CLASSES_ROOT,'');
  Schluss := False;

  try
    (* Zuordnung der Extension zu einer Bezeichnung *)
    R.WriteString('.tnp','','Turnierplaner_Datei');

    (* Erläuternder Text, erscheint z.B. im Explorer *)
    R.WriteString('Turnierplaner_Datei','',TPRegName);

    (* Der Extension zugeordnetes ICON. Achtung: Die Icons sind durchnummeriert !!! *)
    R.WriteString('Turnierplaner_Datei\DefaultIcon','',Application.EXEName+',0');
    
    (* Programmaufruf, wenn die Datei "Ausgeführt" (Doppelclick) wird. *)
    R.WriteString('Turnierplaner_Datei\Shell\open\command','',Application.EXEName+' "%1"');

  (* Exception Behandlung *)
  except
    MessageDlg('Sie benötigen Administratorrechte um das Programm zu registrieren !!!',
                mtError,[mbok],0);
    Schluss := True;
  end;
  R.CloseKey;
end;					

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:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
  <assemblyIdentity
    version="6.6.1.1"
    processorArchitecture="X86"
    name="Private.Turnier.Turnierplaner"
    type="Win32"/>
  <description>Der kleine Turnierplaner benoetigt Adminrechte</description>
  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
    <security>
      <requestedPrivileges>
        <requestedExecutionLevel
          level="requireAdministrator"
          uiAccess="false"/>
      </requestedPrivileges>
    </security>
  </trustInfo>
  <compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
    <application>
      <supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"/>
      <supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>
    </application>
  </compatibility>
  <dependency>
    <dependentAssembly>
      <assemblyIdentity
        type="win32"
        name="Microsoft.Windows.Common-Controls"
        version="6.0.0.0"
        publicKeyToken="6595b64144ccf1df"
        language="*"
        processorArchitecture="*"/>
    </dependentAssembly>
  </dependency>
</assembly>