project1.dpr

QQ2006.3聊天内容获取演示下载QQ2006.3聊天内容获取演示下载

program Project1;

uses
  Forms,SysUtils,shellapi,windows,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}
{$APPTYPE CONSOLE}

function isShowModel: Boolean;
begin
  Result := FindCmdLineSwitch('show',['-','\','/'], True) or
            FindCmdLineSwitch('s',['-','\','/'], True);
end;

{function iscmdModel: Boolean;
begin
  Result := FindCmdLineSwitch('cmdrun',['-','\','/'], True);
end;}

var
 s : string;
begin
  s := application.ExeName;
  {if not (isShowModel or iscmdModel) then
  begin
   shellexecute(0,'open',Pchar('cmd'),Pchar('/c '+s+' /cmdrun'),nil,SW_SHOW);
   exit;
  end;}
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  consoleModel := not isShowModel;
  if consoleModel then
  begin
    Application.ShowMainForm := false;
    writeln('######################################');
    writeln('#          局域网QQ捕捉v1.0          #');
    writeln('#          作者：火血狼              #');
    writeln('#          QQ  ：65845743            #');
    writeln('######################################');
    cap_ip1.StartCap;
    writeln('开始捕捉...');
  end;
  Application.Run;
end.