از کار انداختن صفحه کلید

سلام دوستان
من می خوام با فشار دادن کلید روی فرمم صفحه کلید غیر فعال و با فشار دادن کلیدی دیگر صفحه کلیدم دوباره فعال شود:46:
میشه لطفا بگید چیکار باید کنم
ممنون میشم کمکم کنید
منتظرم
بای

سلام
يك روش استفاده از اين كامپوننت است :
TCPKeyHook

روش ديگر كه در واقع ورودي را غير فعال مي كنيد(ماوس+كيبورد) :

کد:

---

function FuncAvail(VLibraryname, VFunctionname: string; var VPointer: pointer):
  boolean;
var
  Vlib: tHandle;
begin
  Result := false;
  VPointer := nil;
  if LoadLibrary(PChar(VLibraryname)) = 0 then
    exit;
  VPointer := GetModuleHandle(PChar(VLibraryname));
  if Vlib <> 0 then
  begin
    VPointer := GetProcAddress(Vlib, PChar(VFunctionname));
    if VPointer <> nil then
      Result := true;
  end;
end;

---

کد:

---

procedure TForm1.Button1Click(Sender: TObject);
var
  xBlockInput: function(Block: BOOL): BOOL; stdcall;
begin
  if FuncAvail('USER32.DLL', 'BlockInput', @xBlockInput) then
  begin
    xBlockInput(true);
    Sleep(15000); // 15 secounds
    xBlockInput(false);
  end;
end;

---

ممنون
کد موس و صفحه کلید که هردو باهم قفل میشه رو بلد بودم ولی به درد نمی خوره اینجوری که میشه ویروس!!!!
لطفا لینک دانلود کامپوننت رو برام بذار
بازم ممنون
بای

نقل قول:

---

نوشته شده توسط sp1000 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

ممنون
کد موس و صفحه کلید که هردو باهم قفل میشه رو بلد بودم ولی به درد نمی خوره اینجوری که میشه ویروس!!!!
لطفا لینک دانلود کامپوننت رو برام بذار
بازم ممنون
بای

---

سلام
از اينجا بگيريد :

TCPKeyHook 1.8

کد:

---

http://rapidshare.com/files/42855873/TCPKeyHook_1.8.rar

---

سلام دوست عزیز :10:
واقعا چقدر عالیه آدم مشکلی داشته باشه بعد بیا اینجا مطرح کنه ، بعد 5 دقیقه ای بهش جواب بدهند :40:
خیلی خیلی ممنون :11:
فعلا بای

:20: :20:

و واقعا چقدر بده كه ادم يه پست 10 روز پيش بزنه تا الان جوابش رو ندن؟!