syscfg.pas

OICQ黑客工具。可以查看对方IP地址

unit SysCfg;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Spin, StdCtrls, Buttons,FileCtrl;

type
  TSysCfgDlg = class(TForm)
    btnOk: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox1: TGroupBox;
    Label7: TLabel;
    edLocalPort: TSpinEdit;
    GroupBox3: TGroupBox;
    Label5: TLabel;
    edPath: TEdit;
    btnBrowOICQPath: TSpeedButton;
    cbAutoLaunch: TCheckBox;
    Label3: TLabel;
    edSrvAddr: TEdit;
    Label4: TLabel;
    edSrvPort: TSpinEdit;
    Label1: TLabel;
    edDBFPath: TEdit;
    btnBrowDBFPath: TSpeedButton;
    OpenDlg: TOpenDialog;
    procedure btnBrowOICQPathClick(Sender: TObject);
    procedure btnBrowDBFPathClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    class function Execute:Boolean;
    class function LoadConfig(var path,dbfPath,SrvIp: String;var SrvPort, LocalPort: WORD;var AutoLaunch:Boolean):Boolean;
    class function SaveConfig(path,dbfPath,SrvIp:String;SrvPort,LocalPort:WORD;AutoLaunch:Boolean):Boolean;
  end;
const
IniPath='SpyCfg2.Dat';
var
GOICQPath,GDBFPath,GSrvIp:String;
GSrvPort,GLocalPort:Word;
GAutoLaunch:Boolean;

implementation
uses IpHdr;
{$R *.DFM}
//uses info, Main;
{ TSysCfgDlg }

class function TSysCfgDlg.Execute: Boolean;
begin
with TSysCfgDlg.Create(Application) do
    begin
    if(TSysCfgDlg.LoadConfig(GOICQPath,GDBFPath,GSrvIp,GSrvPort,GLocalPort,GAutoLaunch))then
        begin
        edPath.Text:=GOICQPath;
        edDBFPath.Text:=GDBFPath;
        edSrvAddr.Text:=GSrvIp;
        edSrvPort.Value:=GSrvPort;
        edLocalPort.Value:=GLocalPort;
        cbAutoLaunch.Checked:=GAutoLaunch;
        end;
    Result:=(ShowModal=mrOk);
    if(Result)then
        begin
        GSrvIp:=edSrvAddr.Text;
        GSrvPort:=edSrvPort.Value;
        GLocalPort:=edLocalPort.Value;
        GOICQPath:=edPath.text;
        GDBFPath:=edDBFPath.Text;
        GAutoLaunch:=cbAutoLaunch.Checked;
        TSysCfgDlg.SaveConfig(GOICQPath,GDBFPath,GSrvIp,GSrvPort,GLocalPort,GAutoLaunch);
        end;
    Free;
    end;
end;

procedure TSysCfgDlg.btnBrowOICQPathClick(Sender: TObject);
var
path:string;
begin
if(SelectDirectory('请选择OICQ安装的路径','',path))then
    begin
    edPath.Text:=path;
    end;
end;

{$I-}
class function TSysCfgDlg.LoadConfig(var path,dbfPath,SrvIp: String;
  var SrvPort, LocalPort: WORD;var AutoLaunch:Boolean): Boolean;
var
f:TextFile;
s:string;
begin
if(not FileExists(IniPath))then
    begin
    Result:=False;
    Exit;
    end;
AssignFile(f,IniPath);
Reset(f);
try
    if(not eof(f))then ReadLn(f,path);
    if(not eof(f))then ReadLn(f,dbfPath);
    
    if(not eof(f))then ReadLn(f,s);
    SrvIp:=s;
    if(not eof(f))then ReadLn(f,s);
    SrvPort:=StrToInt(s);

    if(not eof(f))then ReadLn(f,s);
    LocalPort:=StrToInt(s);

    if(not eof(f))then ReadLn(f,s);
    AutoLaunch:=(s='T');
    Result:=True;
except
    Result:=False;
    end;
CloseFile(f);
end;
{$I+}

class function TSysCfgDlg.SaveConfig(path,dbfPath,SrvIp: String;
  SrvPort, LocalPort: WORD;AutoLaunch:Boolean): Boolean;
var
f:TextFile;
begin
AssignFile(f,ExtractFilePath(Application.ExeName)+IniPath);
Rewrite(f);
try
    WriteLn(f,path);
    WriteLn(f,dbfPath);
    WriteLn(f,SrvIp);
    WriteLn(f,IntToStr(SrvPort));
    WriteLn(f,IntToStr(LocalPort));
    if(AutoLaunch)then WriteLn(f,'T')
    else WriteLn(f,'F');
    Result:=True;
except
    On e:Exception do
        begin
        Result:=False;
        ShowMessage(E.Message);
        end;
    end;
CloseFile(f);
end;

procedure TSysCfgDlg.btnBrowDBFPathClick(Sender: TObject);
begin
if(OpenDlg.Execute)then
    begin
    edDBFPath.Text:=OpenDlg.FileName;
    end;
end;

end.