تشخیص نصب بودن flashocx

[Answer]

من از این تابع استفاده کردم در مواقعی که flashocx نصب باشد درست کار میکنه ولی هنگامی که فلش نصب نیس خطا میده اگه دوستان کمک کنن ممنون میشم.


function insFlashOCX : Boolean;
begin
Result := True;
try
FlashOCX := TShockwaveFlash.Create(nil);
except
Result := False
end;
FlashOCX.Free;
end;

[Answer]

یعنی واقعا کسی نمیتونه راهنمایی کنه

[pad_kay]

با سلام
من كد شما را به صورت زير تغيير دادم


unction insFlashOCX : Boolean;
begin
Result := True;
try
FlashOCX := TShockwaveFlash.Create(nil);
except
Result := False
end;
if Assigned(FlashOCX) then
FlashOCX.Free;
end;

در اين حالت ديگر پيغام خطا نمي دهد
موفق باشيد