Delphi ile USB Bellek Engelleme Programı
USB bellekler, verileri kolayca taşımak ve paylaşmak için kullanılan kullanışlı cihazlardır. Ancak, yetkisiz erişimi önlemek için USB belleklerin engellenmesi bazen gerekli olabilir. Bu makale, Delphi kullanarak bir USB bellek engelleme programı oluşturma adımlarını açıklayacaktır.
Gereksinimler
- Delphi IDE
- Windows işletim sistemi
Adımlar
1. Yeni Bir Delphi Projesi Oluşturma
Delphi IDE’yi açın ve “Dosya” > “Yeni” > “Uygulama” seçeneğine gidin. Uygulamaya “USBBlocker” adını verin ve “Tamam”a tıklayın.
2. USB Cihazlarını Listeleme
USB cihazlarını listelemek için aşağıdaki kodu kullanın:
“`delphi
uses
System.SysUtils,
Winapi.Windows;
var
hDevInfo: HDEVINFO;
dwIndex: DWORD;
dwSize: DWORD;
spdi: SP_DEVINFO_DATA;
begin
hDevInfo := SetupDiGetClassDevs(nil, ‘USB’, nil, DIGCF_PRESENT);
if hDevInfo <> INVALID_HANDLE_VALUE then
begin
dwSize := SizeOf(spdi);
dwIndex := 0;
while SetupDiEnumDeviceInfo(hDevInfo, dwIndex, @spdi) do
begin
// USB cihazının adını ve diğer bilgilerini alın
end;
SetupDiDestroyDeviceInfoList(hDevInfo);
end;
end;
“`
3. USB Cihazını Engelleme
Belirli bir USB cihazını engellemek için aşağıdaki kodu kullanın:
“`delphi
uses
System.SysUtils,
Winapi.Windows;
var
hDevice: HANDLE;
dwFlags: DWORD;
begin
// USB cihazının yolunu alın
hDevice := CreateFile(devicePath, GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, FILE_FLAG_OVERLAPPED, nil);
if hDevice <> INVALID_HANDLE_VALUE then
begin
dwFlags := FILE_DEVICE_SECURE_OPEN;
DeviceIoControl(hDevice, FSCTL_SET_DEVICE_SECURE_OPEN, @dwFlags, SizeOf(dwFlags), nil, 0, nil, nil);
CloseHandle(hDevice);
end;
end;
“`
4. USB Cihazının Engellemesini Kaldırma
Engellenen bir USB cihazının engellemesini kaldırmak için aşağıdaki kodu kullanın:
“`delphi
uses
System.SysUtils,
Winapi.Windows;
var
hDevice: HANDLE;
dwFlags: DWORD;
begin
// USB cihazının yolunu alın
hDevice := CreateFile(devicePath, GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, FILE_FLAG_OVERLAPPED, nil);
if hDevice <> INVALID_HANDLE_VALUE then
begin
dwFlags := 0;
DeviceIoControl(hDevice, FSCTL_SET_DEVICE_SECURE_OPEN, @dwFlags, SizeOf(dwFlags), nil, 0, nil, nil);
CloseHandle(hDevice);
end;
end;
“`
5. Kullanıcı Arayüzü Oluşturma
Kullanıcıların USB bellekleri engellemelerine ve engellemelerini kaldırmalarına olanak tanıyan bir kullanıcı arayüzü oluşturun. Örneğin, aşağıdaki gibi bir form oluşturabilirsiniz:
- Bir düğme USB bellekleri listeler
- Bir açılır liste USB bellekleri görüntüler
- Bir düğme seçili USB belleği engeller
- Bir düğme seçili USB belleğin engellemesini kaldırır
Faydalı Siteler ve Dosyalar
Sonuç
Bu makale, Delphi kullanarak bir USB bellek engelleme programı oluşturma adımlarını açıklamıştır. Bu program, yetkisiz erişimi önlemek için USB bellekleri engellemek ve engellemelerini kaldırmak için kullanılabilir.