 ::  |
| Autor |
Poruka |
Doktor
~Sanjicino*slculence~
 |
Godine: 38
Datum registracije: 17 Nov 2005
Poruke: 4264
Mesto: Novi Sad
|
|
Ova funkcija se najcesce koristi u slucajevima kada zelite da instalirate neki novi Plug-In za MS Word. Naravno da bi odredjeni alat radio morate imati instaliran pomenuti program. U slucaju da Word nije instaliran zahtev za instalacijom dodatnog softvera se ignorise i samim tim se sprecava eventualna pojava greske. Funkcija koristi Registry unit zbog toga sto podatke o instaliranom softveru cita iz baze registara operativnog sistema.
Na slican nacin se moze proveriti da li u sistemu postoje instalirane i druge komponente MS Office paketa.
| Code: | uses
Registry;
...
function IsWordInstalled: Boolean;
var
Reg: TRegistry;
s: string;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CLASSES_ROOT;
Result := Reg.KeyExists('Word.Application');
finally
Reg.Free;
end;
end; |
Primer:
| Code: | procedure TForm1.Button1Click(Sender: TObject);
begin
if IsWordInstalled then
ShowMessage('Microsoft Word je instaliran!');
end; |
|
_________________
~*~Vojim svoje srculence najvise na svetu ~*~ :322:
 |
|
| |
|
 |
|
|
Vi ne možete otvarati nove teme u ovom forumu
Vi ne možete odgovarati na teme u ovom forumu
Vi ne možete menjati Vaše poruke u ovom forumu
Vi ne možete brisati Vaše poruke u ovom forumu
Vi ne možete glasati u anketama u ovom forumu
Vi ne možete postavljati fajlove u ovom forumu
Vi ne možete preuzeti fajlove sa ovog foruma
|
|
