Вот я написал тебе фунцию на WinApi
Code
function RegEx(keysect: HKEY; keyName: pchar): boolean;
var
TempKey: HKEY;
begin
result:= RegOpenKey(keysect, keyName, TempKey) = ERROR_SUCCESS;
regclosekey(TempKey);
end;
HKEY - секция, то есть имя раздела
keyName - название ключа
Пример вызова функции в приложении без формы:
program KeyExists;
uses
windows;
function RegEx(keysect: HKEY; keyName: pchar): boolean;
var
TempKey: HKEY;
begin
result:= RegOpenKey(keysect, keyName, TempKey) = ERROR_SUCCESS;
regclosekey(TempKey);
end;
begin
if RegEx(HKEY_CURRENT_USER, 'Software\Microsoft\Windows\CurrentVersion\run') then
messagebox(0, 'Такой ключ есть', 'Успех', MB_OK+MB_ICONEXCLAMATION+MB_APPLMODAL)
else messagebox(0, 'Такого ключа нет', 'Ошибка', MB_OK+MB_ICONSTOP+MB_APPLMODAL);
end.