[R.i.m.s.k.y.]

salat,

Код:

Function InitializeSetup: Boolean; 
Begin 
If RegValueExists(HKLM, 'SubKeyName', ValueName) then MsgBox('Программа уже установлена', mbInformation, mb_Ok) 
End;