01-07-2009, 06:51 PM
استخدم التعليمة Try...Except.
وإليك هذه الدالة:
يقوم:
وإليك هذه الدالة:
يقوم:
PHP كود :
function IsAcrobatInstalled: Boolean; //Adobe Acrobat Reader
var
reg: TTntRegistry;
begin
Result := false;
reg := TTntRegistry.Create(KEY_READ);
with reg do
begin
try
RootKey := HKEY_CLASSES_ROOT;
if OpenKey('CLSID\{CA8A9780-280D-11CF-A24D-444553540000}', False) then
Result := true
finally
CloseKey;
Free
end
end
end;

