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

تم تحميل الصفحة في 1,4331711 ثانية
بعض الاكواد المساعدة في عمل برنامج اختراق
إنضم
27 ديسمبر 2013
المشاركات
338
الإعجابات
241
النقاط
43
الإقامة
Egypt
رد: بعض الاكواد المساعدة في عمل برنامج اختراق

اخى ممكن سؤال لو سمحت :30::30::30:
هو خارج عن الموضوع بس ازاى اعمل برنامج اختراق بالدلفى
 
إنضم
10 مايو 2013
المشاركات
274
الإعجابات
162
النقاط
43
الإقامة
%Dz%
رد: بعض الاكواد المساعدة في عمل برنامج اختراق

مشكور

دائماللافضل
:6::6::6:
 
إنضم
22 سبتمبر 2013
المشاركات
310
الإعجابات
238
النقاط
43
رد: بعض الاكواد المساعدة في عمل برنامج اختراق

روعه احسنت :25:
 
إنضم
21 مارس 2013
المشاركات
229
الإعجابات
158
النقاط
43
الإقامة
Iraq
رد: بعض الاكواد المساعدة في عمل برنامج اختراق

يعطيك العافية
بارك الله فيك
:15:
 

السفاحح

Beginner Developer
rank
إنضم
21 سبتمبر 2013
المشاركات
51
الإعجابات
32
النقاط
0
الإقامة
أ‚أ…أ‚أ،أµأڑأ±أ‘أ‚أ…أ‚أ‍أ±
رد: بعض الاكواد المساعدة في عمل برنامج اختراق

حبيً مٍڜگؤر علـى آلـآدؤآد لـؤ عنـدگ بعد آٺمٍنـھ ٺنـزلـھنـ
حبيً آڛٺمٍر آنـٺ ؤڜرؤحآٺگ آؤ آگؤآدگ مٍنـؤؤررر آلـديًفـ بؤيًنـة حبيً آڛٺمٍر

..
#####################################



#####################################

#للدنيا قآنون لآ #يتجاوزه آحد !'
كل مآ تفعله سيعود اليگ ~
و لو بعد حين !~
اكان #خيراً ام# شراً ؟

+.. فلنحسن صنع مآ #ينتظرنآ —

#####################################
 

ViRusRat

Active DeveloPer
rankrankrank
إنضم
1 نوفمبر 2013
المشاركات
726
الإعجابات
631
النقاط
93
الإقامة
ViRusRat
رد: بعض الاكواد المساعدة في عمل برنامج اختراق

واااااااااااااصل :15::15::15:
 

wolf.iq

security basra
rankrank
إنضم
4 أكتوبر 2014
المشاركات
406
الإعجابات
286
النقاط
63
الإقامة
iraq
رد: بعض الاكواد المساعدة في عمل برنامج اختراق

احسنت حبيبي الغالي
 
إنضم
10 مارس 2011
المشاركات
5,021
الإعجابات
3,850
النقاط
113
رد: بعض الاكواد المساعدة في عمل برنامج اختراق

wolf iq بتعرف بتستاهل مخالفة ليش بترد على مواضع قديمة لتزيد عدد مشاركاتك .. خربطت القسم كامل انتا :)
 
إنضم
8 يناير 2015
المشاركات
2,471
الإعجابات
2,180
النقاط
113
الإقامة
الاردن
رد: بعض الاكواد المساعدة في عمل برنامج اختراق

الله يعطيك العافيه انا عم برمج برنامج :154: لاكن يحتاج لـ الوقت
 
إنضم
13 يناير 2018
المشاركات
588
الإعجابات
585
النقاط
93
الإقامة
MrLoai






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

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


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

كود:
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;





 
إنضم
13 يناير 2018
المشاركات
588
الإعجابات
585
النقاط
93
الإقامة
MrLoai
لا اريد ان احبطك لكن ها
ته الاكواد لا تتناسب مع العنوان و ليست لها اهمية في بناء برنامج اختراق بالدلفي
 

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

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

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

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