Klavye Mouse Devre Dışı [Delphi]

[Logic]

function FuncAvail
(_dllname, _funcname: string; var _p: pointer):
boolean;
var _lib: tHandle;
begin
Result := false;
_p := NIL;
if LoadLibrary(PChar(_dllname)) = 0 then exit;
_lib := GetModuleHandle(PChar(_dllname)) ;
if _lib <> 0 then
begin
_p := GetProcAddress(_lib, PChar(_funcname)) ;
if _p <> 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(5000) ;
xBlockInput(false) ;
end;
end;

arkadaşlar bu programda 5 saniye süreyle klavye ve mous ınızın kontrolunu kaybediyorsunuz.

xBlockInput(true) ; > kitle

xBlockInput(false) ; > aç

 

[abbas_aze]

Saolasın iyi bir cod

 

[ranger_24]

Cde 5 satır ... ama suresiz o.. yotubeda vardi.. first virus application dı galiba...oda kolay