{$APPTYPE CONSOLE}

uses
  Windows, SysUtils,
  madCodeHook;

var
  bResult: Boolean;
  SI: TStartupInfo;
  PI: TProcessInformation;

begin
  try
    FillChar(SI, SizeOf(SI), 0);
    bResult := CreateProcessEx('vsides.exe', 'vsides.exe', nil, nil, false, 0, nil, nil, SI, PI, 'steplib.dll');
    if not bResult then
      RaiseLastOSError;
    WriteLn('Done!');
  except
    on E: Exception do
      WriteLn('Error: ', E.Message);
  end;
end.