:: |
Autor |
Poruka |
Doktor ~Sanjicino*slculence~
![~Sanjicino*slculence~ ~Sanjicino*slculence~](/images/ranks/stars_orange.gif)
![](images/avatars/1176565723449c4a8bc1d54.jpg) |
Godine: 38
Datum registracije: 17 Nov 2005 Poruke: 4264 Mesto: Novi Sad
![blank.gif](images/flags/blank.gif)
|
|
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:
![](http://www.domaci.de/sanjica_021/doktor/banner.gif) |
|
|
|
![](templates/subDomaci/images/spacer.gif) |
|
|
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
|
|