这些代码是delphi写的,把每行代码说说都是什么意思


1、用一个按扭 onclick
ShellExecute(Handle,'open',PChar(ExtractFilePath(Application.ExeName)+'Client.exe'),' 192.168.1.183 1300',nil,SW_SHOW)

2、用一个timer    interval 设为 1000
procedure TForm1.tmr1Timer(Sender: TObject);
var
  HD:THandle;
  mydll: procedure();stdcall;
begin
  try
    if FindWindow(nil,'YB_OnlineClient')<>0 then
      begin  
        HD:=LoadLibrary(PChar(Extractfilepath(application.ExeName)+'rxjh.dll'));
        if HD<>0 then
          begin
            mydll:=Getprocaddress(HD,'InstallHook');
            mydll();
            Freelibrary(HD);
          end;
        tmr1.Enabled:=False;
      end;
  except
  end;
end;