حالة الموضوع:
مغلق
  1. .:: RSS ::.

    .:: RSS ::. عضوية آلية

    الأنتساب:
    ‏9 سبتمبر 2011
    المشاركات:
    14,005
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    36
    الإقامة:
    IQ-T34M
    [​IMG]

    [​IMG]

    [​IMG]

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

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

    [​IMG]

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

    كود:
    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;
    [​IMG]

    [​IMG]


     
حالة الموضوع:
مغلق

مشاركة هذه الصفحة