Kommando der tvinger genstart

i 98

/con /con

på http://borrisholt.com finder du en lille dims der kan genstarte alle 32 bits Wnidows versioner ...

Jens B

Denne kode fryser både key board og mus 100%
i den tid to sett i sleep(1500)


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;

// Source code in Button1 on Form1 -

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;


Zardic

Jeg har aldrig rigtig fundet ud af hvor man skal indsætte den der function code? Var det muligt at du kunne sende en sourcecode ( pro_doctor@hotmail.com )eller skrive en sourcecode her?

M.V.H. ProDoc