1:
2:
3:

    reg.OpenKey(RegistryKeys.StartupAce, true);
    reg.OpenKey(a.Caption, true);
    reg.WriteString('Path', UTF8Encode(a.Path));                    

1:
2:
3:
4:

    if reg.OpenKey(RegistryKeys.StartupAce + '\' + a.Caption, true) then
      reg.WriteString('Path', UTF8Encode(a.Path))
    else
      ShowMessage('Fehler!');                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

    if reg.OpenKey(RegistryKeys.StartupAce, false) then
    begin
      reg.DeleteKey(e.OriginalCaption);
      reg.CloseKey;
      Result := True;
    end
    else
    begin
      MessageBoxW(Application.Handle,
        'Cannot access the Startup Ace registry key!',
        'Error',
        MB_OK or MB_ICONERROR);
    end;                    

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

    if reg.OpenKey(RegistryKeys.StartupAce, false) then
    begin
      reg.DeleteKey(e.OriginalCaption); // ist ja wohl ein Schuß in den Ofen
      // Erstmal Abfrage, ob Wert vorhanden
      if ValueExistst(...) then
      // Wenn ja, Wert löschen. DeleteKey würde ja den kompletten
      // Software\Microsoft\Windows\CurrentVersion\Run löschen
        DeleteValue(...)
      reg.CloseKey;
      Result := True;
    end
    else
    begin
      MessageBoxW(Application.Handle,
        'Cannot access the Startup Ace registry key!',
        'Error',
        MB_OK or MB_ICONERROR);
    end;                    

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

case Column of
      COL_PATH:
      begin
        if ({-->}e.Path[2]{<--} = ':') and not TPath.Exists(TPath.Expand(e.Path)) then
        begin
          TargetCanvas.Brush.Color := $8888FF;
          TargetCanvas.FillRect(CellRect);
        end;
      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:

function FindProcess(ExeNam: string): boolean;
var
   PIDArray: array [0..1023] of DWORD;
   cb: DWORD;
   I: Integer;
   ProcCount: Integer;
   hMod: HMODULE;
   hProcess: THandle;
   ModuleName: array [0..300] of Char;
   s:string;
   Found: boolean;
begin
     Found:=false;
     EnumProcesses(@PIDArray, SizeOf(PIDArray), cb);
     ProcCount := cb div SizeOf(DWORD);
     for I := 0 to ProcCount - 1 do
     begin
          hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or
            PROCESS_VM_READ,
            False,
            PIDArray[I]);
          if (hProcess <> 0) then
          begin
               EnumProcessModules(hProcess, @hMod, SizeOf(hMod), cb);
               GetModuleFilenameEx(hProcess, hMod, ModuleName, SizeOf(ModuleName));
               s:=ModuleName;
               s:=Uppercase(s);
               CloseHandle(hProcess);
               if s=Uppercase(ExeNam) then
               begin
                    Found:=true;
                    break;
               end;
          end;
     end;
     Result:=Found;
end;