System Delphi

{
**************************************
THE PROFESSIONAL TURK SOFTWARE
Düzenleme..: Abdullah ELEN
WebSite....: www.proturksoft.com
e-mail.....: admin@proturksoft.com
Tarih......: 16.07.2004
**************************************
}
// Uses satırına Registry Unit'ini mutlaka ekleyin..!
procedure TForm1.Button1Click(Sender: TObject);
Var
A {Floppy 1},
B {Floppy 2},
C {HDD 1},
D {HDD 2, CD-ROM/WR, DVD-ROM/WR gibi}: Integer;
Buf: Byte;
Reg: TRegistry;
Begin
A:= 1; B:= 2; C:= 4; D:= 8;
Buf:= A + C;
Reg:= TRegistry.Create;
Reg.RootKey:= HKEY_CURRENT_USER;
Reg.OpenKey('SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\POLICIES\EXPLORER',True);
Reg.WriteBinaryData('NoDrives', Buf, 1);
Reg.CloseKey;
Reg.Free;
end;
{ --- ACIKLAMA BOLUMU ---
* Örnekte A ve C sürücüleri gizlenmiştir...
* Sadece A sürücüsünü gizlemek için, Buf:= A;
* A,B,C ve D sürücülerini gizlemek için, Buf:= A + B + C + D;
* Bütün sürücüleri göstermek için, Buf:= 0;
* Bu programı çalıştırdıktan sonra bilgisayarınızı yeniden başlatmanız
gerekecek. Aksi takdirde bu değişiklikleri gözleyemessiniz!
}