18-03-2010, 06:08 PM
18-03-2010, 07:41 PM
وعليكم السلام ورحمة
مشاركة طيبة بارك الله لك
التابع BlockInput من USER32.DLL لتجميد لوح المفاتيح ومؤشر الماوس في النظام
من الأحسن استدعاء التوابع من مكتبات DLL بشكل ديناميكي وإجراء فحص قبل ذلك، خاصة إذا كان التابع غير مرفق مع ويندوز...
الأخ paix144 عندما يكون بحوزتك مثال صغير مثل هذا، يمكن إرفاق الكود البرمجي فقط
شكرا أخي paix144
تحياتي، بالتوفيق.
مشاركة طيبة بارك الله لك
التابع 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
تحياتي، بالتوفيق.
18-03-2010, 09:04 PM
18-03-2010, 10:59 PM
إقتباس :جميل إستعملت دوال recursive صحيح؟الكود السابق لـ Zarko Gajic بتصرف