+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : مصادر دلفي مفتوحة تعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=14)
+--- الموضوع : تجميد النظام لمدة معينة (/showthread.php?tid=1799)
تجميد النظام لمدة معينة - paix144 - 18-03-2010
السلام عليكم
تجميد النظام لمدة معينة - kachwahed - 18-03-2010
وعليكم السلام ورحمة
مشاركة طيبة بارك الله لك
التابع BlockInput من USER32.DLL لتجميد لوح المفاتيح ومؤشر الماوس في النظام
من الأحسن استدعاء التوابع من مكتبات DLL بشكل ديناميكي وإجراء فحص قبل ذلك، خاصة إذا كان التابع غير مرفق مع ويندوز...
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
function FuncExist
(DLLName, fName: string; var Ptr: pointer):
boolean;
var LibHnd: tHandle;
begin
Result := false;
Ptr := NIL;
if LoadLibrary(PChar(DLLName)) = 0 then exit;
LibHnd := GetModuleHandle(PChar(DLLName));
if LibHnd <> 0 then
begin
Ptr := GetProcAddress(LibHnd, PChar(fName));
if Ptr <> NIL then Result := true;
end;
end;
var
BlockInput : function(Block: BOOL):
BOOL; stdcall;
begin
if FuncExist
('USER32.DLL', 'BlockInput', @BlockInput) then
begin
BlockInput(true);
Sleep(2000);
BlockInput(false);
end;
end;
شكرا أخي paix144
تحياتي، بالتوفيق.
تجميد النظام لمدة معينة - paix144 - 18-03-2010
كل الشكر لك أخي كل مرة تضيف لمستك السحرية مشاء الله
جميل إستعملت دوال recursive صحيح؟
سأخود بنصيحتك في المرة القادمة :happy:
تجميد النظام لمدة معينة - kachwahed - 18-03-2010
إقتباس :جميل إستعملت دوال recursive صحيح؟الكود السابق لـ Zarko Gajic بتصرف