 ::  |
| Autor |
Poruka |
Doktor
~Sanjicino*slculence~
 |
Godine: 38
Datum registracije: 17 Nov 2005
Poruke: 4264
Mesto: Novi Sad
|
|
Da bi primer radio uvrstite unit Registry u Uses listu. Funkcija vraca logicku vrednost True ako rezac postoji u vasoj konfiguraciji, odnosno False ako nemate rezac.
| Code: | uses Registry;
...
function HasCDRecorder: Boolean;
var
reg: TRegistry;
begin
reg := TRegistry.Create;
try
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\CD Burning', False);
Result := reg.ValueExists('CD Recorder Drive');
reg.CloseKey;
finally
reg.Free;
end;
end; |
Primer:
| Code: | procedure TForm1.Button1Click(Sender: TObject);
begin
if HasCDRecorder then
ShowMessage('CD-Recorder postoji u vasoj konfiguraciji')
else
ShowMessage('Vi nemate CD-Recorder');
end; |
Napomena: Ovaj primer radi samo u XP operativnom sistemu...
|
_________________
~*~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
|
|
