autoruna kayıt defterinden ayar

  • Konbuyu başlatan Konbuyu başlatan bymxx
  • Başlangıç tarihi Başlangıç tarihi

bymxx

Üye
Katılım
26 Ocak 2007
Mesajlar
185
Tepkime puanı
0
Konum
BURSA
procedure TForm1.SetCDAutoRun(AAutoRun: 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[AAutoRun], 1);
end
finally
Reg.Free;
end;
ShowMessage('Windows tekrar başlayana kadar aktif olmaz' ');
end;
 
Geri
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.