 ::  |
| Autor |
Poruka |
himzo
Banovan!
Odomaćeni član
 |
Godine: 42
Datum registracije: 24 Okt 2005
Poruke: 1390
Mesto: Vojvoda Stepa
|
|
Da bi smo uključili / isključili AutoRun opciju CD/DVD plejera koristićemo sledeću proceduru:
| Code: |
procedure SetCDAutoRun(YesNo: Boolean);
const
DoAutoRun: Array [Boolean] of Integer = (0, 1);
var
Reg: TRegistry;
begin
try
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.KeyExists ('System\CurrentControlSet\Services\Class\CDROM') then
begin
if Reg.OpenKey('System\CurrentControlSet\Services\Class\CDROM', False) then
Reg.WriteBinaryData('AutoRun', DoAutoRun[YesNo], 1);
end;
finally
Reg.Free;
end;
ShowMessage ('Vaše podešavanje će imati efekta posle restartovanja sistema!');
end;
|
Parametar YesNo procedure SetCDAutoRun je Boolean tipa i služi za uključivanje (kada je postavljena vrednost True) ili isključivanje (kada je vrednost False) opcije AutoRun. Promene imaju efekta tek posle restarta racunara.
|
|
|
| |
|
 |
Doktor
~Sanjicino*slculence~
 |
Godine: 38
Datum registracije: 17 Nov 2005
Poruke: 4264
Mesto: Novi Sad
|
|
Da li moze nekako da se izbegne restart. Mislio sam da li postoji nacin da promene imaju efekta bez restartovanja racunara. Mozda neki drugi kod... 
Ja sam nov u programiranju i ne bih vise da te davim ali me jako zanima.
Hvala ti u napred. 
|
_________________
~*~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
|
|
