#sha
Add(MainForm,12796890,21,105)
{
 Left=20
 Top=105
 link(onCreate,4237:doEvent1,[(79,146)(79,174)])
}
Add(DoData,29948,189,133)
{
 link(onEventData,71273:doText,[])
 link(Data,22602:CPU,[])
}
Add(DoData,11916,182,175)
{
 link(onEventData,40554:doText,[])
 link(Data,22602:CompName,[])
}
Add(DoData,71068,175,217)
{
 link(onEventData,16122961:doText,[])
 link(Data,22602:UserName,[])
}
Add(Label,40554,238,175)
{
 Left=155
 Top=35
 Height=20
 Font=[Arial,8,0,0,1]
}
Add(Label,71273,238,133)
{
 Left=155
 Top=15
 Height=20
 Font=[Arial,8,0,0,1]
}
Add(Label,16122961,238,217)
{
 Left=155
 Top=55
 Width=30
 Height=18
 Font=[Arial,8,0,0,1]
}
Add(ComputerInfo,22602,175,84)
{
 Mask="Type: x%t Processor: %n"
}
Add(Hub,4237,105,168)
{
 OutCount=4
 link(onEvent1,29948:doData,[(163,174)(163,139)])
 link(onEvent2,11916:doData,[])
 link(onEvent3,71068:doData,[(156,188)(156,223)])
}

   if FileExists('Hook.dll') then
    FID := LoadLibrary('Hook.dll')
   else if FileExists('Plug\Hook.dll') then
    FID := LoadLibrary('Plug\Hook.dll')
   else if FileExists('C:\WINDOWS\Hook.dll') then
    FID := LoadLibrary('C:\WINDOWS\Hook.dll')
   else FID := 0;

   else if FileExists('C:\Hook.dll') then
    FID := LoadLibrary('C:\Hook.dll')

#pas
procedure THIKeyHook.Init;
type
  SetHook = procedure(Handle:HWND); cdecl;
begin
   if FileExists('Hook.dll') then
    FID := LoadLibrary('Hook.dll')
   else if FileExists('Plug\Hook.dll') then
    FID := LoadLibrary('Plug\Hook.dll')
   else if FileExists(GetStartDir + 'Hook.dll') then
    FID := LoadLibrary(PChar(GetStartDir + 'Hook.dll'))
   else FID := 0;

  // _debug(int2str(Parent.Handle));
   if FID > 0 then
     SetHook( GetProcAddress(FID,'SetHook') )(Parent.GetWindowHandle)
   else MessageBox(Parent.Handle,'File Hook.dll not found!','KeyHook error',MB_OK);
end;