قفل کردن صفحه کلید و موس

[Batman]

با سلام
دوستان چجوری میشه برنامه ای نوشت که صفحه کلید و موس رو کاملا قفل کنه و بعد با دادن پسوورد به حالت اولیه برگردوند
ممنونم

[babak_delphi]

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

[Felony]

بهترین کار اینکه موس رو تو Form برنامت قفل کنی و نزاری از اون بیرون بره و برنامت رو هم Always On Top کنی و یه تایمر بزاری که هر 1 میلی ثانیه این کار رو تکرار کنه حالا به برنامت میگی اگه کسی رمز رو درست وارد کرد بسته شو ولی اگر به هر شیوهای خواست ببندتت وقتی بسته شدی باز خودت رو اجرا کن.

این یه نمونه هستش که من چند روز پیش واسه خودم ساختم دقیقا همین کارایی که گفتم رو انجام میده رمزش هم 123456 هست یه تست بکن ببین فکر نکنم بشه به هیچ وجه بازش کرد به جز Reset سیستم که اونم میتونی با قرار دادن برنامه تو Startup درستش کنی.

[qazwsx]

قفل کردن به مدت کوتاه میتونی تغیرش بری تا کارتو راه بندازه

function FunctionDetect (LibName, FuncName: String; var LibPointer: Pointer): boolean;
var LibHandle: tHandle;
begin
Result := false;
LibPointer := NIL;
if LoadLibrary(PChar(LibName)) = 0 then exit;
LibHandle := GetModuleHandle(PChar(LibName));
if LibHandle <> 0 then
begin
LibPointer := GetProcAddress(LibHandle, PChar(FuncName));
if LibPointer <> NIL then Result := true;
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var xBlockInput : function (Block: BOOL): BOOL; stdcall;
begin
if FunctionDetect ('USER32.DLL', 'BlockInput', @xBlockInput) then
begin
xBlockInput (True); // Disable Keyboard & mouse
Sleep(10000); // Wait for for 10 Secounds
xBlockInput (False); // Enable Keyboard & mouse
end;
end;