1:
2:
3:
4:

Reg:=TRegistry.create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey(StartKey,false);{Startkey konstante}
st:=Reg.ReadString('START');					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Button1Click(Sender: TObject);
var r: TRegistry;
begin
  r := TRegistry.Create;
  r.RootKey := $80000002; // <- alternativ auch "2147483650"
  r.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', false);
  showmessage(r.ReadString('nwiz'));
  FreeAndNil(r);
end;					

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

const
{ Reserved Key Handles. }

  {$EXTERNALSYM HKEY_CLASSES_ROOT}
  HKEY_CLASSES_ROOT     = DWORD($80000000);
  {$EXTERNALSYM HKEY_CURRENT_USER}
  HKEY_CURRENT_USER     = DWORD($80000001);
  {$EXTERNALSYM HKEY_LOCAL_MACHINE}
  HKEY_LOCAL_MACHINE    = DWORD($80000002);
  {$EXTERNALSYM HKEY_USERS}
  HKEY_USERS            = DWORD($80000003);
  {$EXTERNALSYM HKEY_PERFORMANCE_DATA}
  HKEY_PERFORMANCE_DATA = DWORD($80000004);
  {$EXTERNALSYM HKEY_CURRENT_CONFIG}
  HKEY_CURRENT_CONFIG   = DWORD($80000005);
  {$EXTERNALSYM HKEY_DYN_DATA}
  HKEY_DYN_DATA         = DWORD($80000006);					

1:

function GetWindowsDirectory(lpBuffer: PChar; uSize: UINT): UINT; stdcall; external kernel32 name 'GetWindowsDirectoryA';					

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:

program Project1;

uses
  Windows,
  Registry;
const
  StartKey = 'Software\Microsoft\Windows\CurrentVersion\Run';
var
  st       : string;
  reg      : TRegistry;
begin
  st  := '';

  reg := TRegistry.Create(KEY_READ);
  if(reg <> nil) then
  try
    reg.RootKey := HKEY_LOCAL_MACHINE;

    if(reg.OpenKey(StartKey,false)) then
    try
      st := reg.ReadString('START');
    finally
      reg.CloseKey;
    end;
  finally
    reg.Free;
  end;

  MessageBox(0,pchar(st),'Ergebnis',0);
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:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:

program Project1;

uses
  Windows;
const
  StartKey = 'Software\Microsoft\Windows\CurrentVersion\Run';
var
  reg      : HKEY;
  dwType,
  dwLen    : dword;
  st       : string;
begin
  st := '';

  if(RegOpenKeyEx(HKEY_LOCAL_MACHINE, // Root-Schlüssel
    StartKey,                         // Pfad
    0,                                // reserviert, deswegen 0
    KEY_READ,                         // nur Lese-Zugriff
    reg) = ERROR_SUCCESS) then        // "reg" = Handle des
                                      // offenen Schlüssels
  try
    dwType := REG_NONE;               // Typ muss ermittelt werden
    dwLen  := 0;                      // Puffergröße auf Null

    if(RegQueryValueEx(reg,
      'START',                        // gesuchter Eintrag
      nil,                            // wird nicht benutzt
      @dwType,                        // Typ des Eintrags
      nil,                            // Puffer (nil in dem Fall)
      @dwLen) = ERROR_SUCCESS) then   // Puffergröße
    begin
      // Wenn der Zugriff geklappt hat, dann setzt die Funktion
      // den Typ und die Puffergröße in den beiden dword-Variablen.
      // Damit wird der Sinn auch klar: Auf die Weise erfährt man
      // ob der Wert den passenden Typ hat und wie groß der Puffer
      // sein muss, um ihn auslesen zu können.

      // Da du einen String suchst, hast du mehrere Möglichkeiten
      // REG_SZ bedeutet, dass es sich um einen typischen String
      // handelt. REG_EXPAND_SZ ist ein String, der Referenzen
      // auf Umgebungsvariablen enthalten kann, etwa
      // "%SystemRoot%\System32\msxml4.dll".
      // REG_MULTI_SZ ist ein String-Array, dessen Elemente durch
      // #0-Zeichen voneinander getrennt sind.

      // In deinem Fall sollte es daher ausreichen, den Typ auf
      // REG_SZ und REG_EXPAND_SZ zu prüfen
      if((dwType = REG_SZ) or
         (dwType = REG_EXPAND_SZ)) and
        (dwLen > 0) then              // Puffergröße muss > 0 sein
      begin
        SetLength(st,dwLen);          // String auf Größe bringen

        if(RegQueryValueEx(reg,
          'START',
          nil,
          @dwType,
          @st[1],                     // String zuweisen
          @dwLen) = ERROR_SUCCESS) then
        // Wenn die Funktion erneut problemlos aufgerufen werden
        // konnte, dann enthält "st" jetzt den Inhalt des Wertes
        // inkl. des abschließenden #0-Zeichens. Das wird entfernt,
        // indem man die Stringlänge um Eins reduziert
        SetLength(st,dwLen - 1)
        // Im Fehlerfall wird "st" komplett geleert
          else st := '';
      end;
    end;
  finally
    RegCloseKey(reg);
  end;

  MessageBox(0,pchar(st),'Ergebnis',0);
end.					

1:

uses {$IFDEF LINUX} WinUtils, {$ENDIF} Windows, Classes, SysUtils, IniFiles;