[ تمت الإجابة ]تعطيل درايفر السيدي روم و درايفر الفلاش ميموري

وجدت الحل وهو عن طريق الريجستري

وجاري عمل البريمج اوالباتش الآن

ما تحتاجه يتم عن طريق gpedit.msc لكن اين يتم حفظ بياناتها في الريجستري لا اعلم.

بأي حال لا يوجد "وظيفة" تنفذها مباشرة لهذا الغرض + لو وضعت ما توصلت إليه للآخرين يعد أفضل.

السلام عليكم

مرحبا اخوي Junkie

قمت بعمل البريمج وتمت تجربتة

الحل:

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR

وتعديل قيمة الStart لـ4 Hexadecimal

وبكذا تتعطل أجهزة التخزين عبر منفذ الusb

اما بالنسبة ل السيدي روم عن طريق

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\cdrom

وتعديل قيمة الStart لـ4 Hexadecimal

ارجو انها تفيد الاعضاء

وهناك طريقة آخرى

عن طريق انشاء ملفات من نوع .reg

واكتب داخله

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR]

"Start"=dword:00000004

وهذا للتمكين

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR]"Start"=dword:00000003

انظر الى هذا الكود

procedure TMainForm.LockCDROMs;
var
 w: dword;
 Root: string;
 i: byte;
begin
 w := GetLogicalDrives;
 Root := '#:';
 for i := 0 to 25 do
 begin
   Root[1] := Char(Ord('A') + i);
   if (W and (1 shl i)) > 0 then
	 if GetDriveType(PChar(Root)) = DRIVE_CDROM then
	 begin
	   DriveLetter := Copy(Root, 1, Length(Root) - 1);
	   CD_Lock(True, DriveLetter)
	 end
 end;
end;

انظر الى هذا الكود

procedure TMainForm.CD_Lock(Locked: Boolean, DriveLetter: string);
const
 IOCTL_STORAGE_MEDIA_REMOVAL = $002D4804;
var
 hDrive: THandle;
 Returned: DWORD;
 DisableEject: boolean;
begin
 hDrive := CreateFile(PChar('.' + DriveLetter), GENERIC_READ,
   FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL,
   0);
 if GetLastError <> 0 then
   MessageDlg('Error:' + IntToStr(GetLastError), mtError, [mbOK], 0);
 try
   DisableEject := Locked;
   if not DeviceIoControl(hDrive,
	 IOCTL_STORAGE_MEDIA_REMOVAL, // PREVENT_MEDIA_REMOVAL,
	 @DisableEject,
	 SizeOf(DisableEject),
	 nil,
	 0,
	 Returned,
	 nil) then
	 MessageDlg('Ошибка:' + IntToStr(GetLastError), mtError, [mbOK], 0)
 finally
   CloseHandle(hDrive)
 end;
end;

.............................................

معلش بالعربي يا روفا :P

اللي فهمته ان الشفرة ستقوم فقط بعدم تمكين ازالة الاجهزة الملحقة بالصورة النظامية :wacko:

يبدو ان هناك خطا في هذا البرنامج احاول تنفيذة ولكن لا فائدة عموما

هذا

//=================================================
function LockMedia(ADriveLetter: Char; ALock: Boolean): Boolean;
var LWStatus: Hwnd;
	LTemp: Cardinal;
	LPMR32: Boolean;
Const IOCTL_STORAGE_MEDIA_REMOVAL = $2D4804;
begin
  LwStatus := CreateFile(PChar('\\.\' + ADriveLetter + ':'), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, 0, 0);
  LPMR32 := ALock;
  if LwStatus <> INVALID_HANDLE_VALUE then
  begin
	result := DeviceIoControl(LwStatus, IOCTL_STORAGE_MEDIA_REMOVAL, @LPMR32, sizeof(LPMR32), nil, 0, LTemp, nil);
	CloseHandle(LwStatus);
  end else result := false;
end;

procedure TMainForm.Button1Click(Sender: TObject);
begin
  LockMedia('I',True);
  //
end;
//=================================================
procedure TMainForm.Button1Click(Sender: TObject);
begin
  LockMedia('I',False);
  //
end;
//=================================================

هذا الكود يعطل الCD

اوه انتظر عندما كنت اقرأ removal خطر في بالي الفلاش.. تمام هيك وصلت الفكرة :)

شكراً اخوي romanof

بس هذا الكود باي لغة مكتوب؟

عموماً هذه الاكواد اللي سويتها للي يبغا يستفيد منها مستقبلاً

لتعطيل أجهزة التخزين المحمولة

My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR", "Start", 4)

ولتعطيل الCD-ROOM

My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Cdrom", "Start", 4)

ولتعطيل الFloopy Disk

My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Flpydisk", "Start", 4)
		My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Sfloppy", "Start", 4)

طبعاً مكتوبة بال VB .NET

بالاذن من romanof, مكتوب بالدلفي

T15 كتب:

طبعاً مكتوبة بال VB .NET

إذاً لم طرحته في قسم الAPI؟؟؟؟ :S

ممكن حد يحول الكود الى C or C++

لانى مش فاهم حاجة من المكتوب

كود جميل ,, مع تغييرات طفيفة :

[color= #0000ff;]bool LockMedia[color= #000000;]([color= #0000ff;]char Drive, [color= #0000ff;]bool flag[color= #000000;])

[color= #000000;]{

	DWORD dwRet;

	PREVENT_MEDIA_REMOVAL pmr;

	[color= #0000ff;]char device[color= #000000;][[color= #ff0000;]16[color= #000000;]] [color= #000000;]= [color= #A31515;]"";

	[color= #0000ff;]bool rc;

	HANDLE hDevice;

 

	pmr.[color= #808000;]PreventMediaRemoval [color= #000000;]= flag;

	_snprintf[color= #000000;](device, [color= #0000ff;]sizeof[color= #000000;](device[color= #000000;]), [color= #A31515;]"[color= #A31515; font-weight: bold;][color= #A31515; font-weight: bold;].[color= #A31515; font-weight: bold;]%c:", Drive[color= #000000;]);

	hDevice [color= #000000;]= CreateFile[color= #000000;](device, GENERIC_READ[color= #000000;]|GENERIC_WRITE, [color= #ff0000;]0, [color= #ff0000;]0, OPEN_EXISTING, [color= #ff0000;]0, [color= #ff0000;]0[color= #000000;]);

	[color= #0000ff;]if [color= #000000;](hDevice [color= #000000;]== INVALID_HANDLE_VALUE[color= #000000;]) [color= #0000ff;]return false;

	rc [color= #000000;]= DeviceIoControl[color= #000000;](hDevice, IOCTL_STORAGE_MEDIA_REMOVAL, 

		[color= #000000;]&pmr, [color= #0000ff;]sizeof[color= #000000;](pmr[color= #000000;]), [color= #ff0000;]0, [color= #ff0000;]0, [color= #000000;]&dwRet, [color= #ff0000;]0[color= #000000;]);

	CloseHandle[color= #000000;](hDevice[color= #000000;]);

	[color= #0000ff;]return rc;

[color= #000000;]};

اخى لا اعرف كيف اشكرك

وهذا هو الجزء الخاص بالفلاش ميمورى

LONG CCDLockDlg::LockFlash(DWORD key)
{
	LONG result;

	HKEY hKey1;

	DWORD data=key;//00000003;
	DWORD *pdata=&data;


	LONG resultofSetKey;


	result=RegOpenKeyEx(HKEY_LOCAL_MACHINE,"SYSTEM\\CurrentControlSet\\Services\\USBSTOR",NULL,KEY_SET_VALUE,&hKey1);

	if(result==ERROR_SUCCESS)
	{
		resultofSetKey=RegSetValueEx(hKey1,"Start",0,REG_DWORD,(LPBYTE)pdata,(DWORD)(sizeof(pdata)));
		RegCloseKey(hKey1);
	}
	else
	{
		RegCloseKey(hKey1);
	}
	return result;	
}