Answer
یک شنبه 01 دی 1387, 16:49 عصر
من از این تابع استفاده کردم در مواقعی که flashocx نصب باشد درست کار میکنه ولی هنگامی که فلش نصب نیس خطا میده اگه دوستان کمک کنن ممنون میشم.
function insFlashOCX : Boolean;
begin
Result := True;
try
FlashOCX := TShockwaveFlash.Create(nil);
except
Result := False
end;
FlashOCX.Free;
end;
function insFlashOCX : Boolean;
begin
Result := True;
try
FlashOCX := TShockwaveFlash.Create(nil);
except
Result := False
end;
FlashOCX.Free;
end;