incim.pas

来自「Yahoo Messenger for Mobile」· PAS 代码 · 共 65 行

unit incim;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
Var
 T: TSearchRec;
 Tmp: String;
 F: TextFile;
 N: Integer;
 SaveC: Integer;
 Count: Integer;
 Found: Boolean;
begin
 Memo1.Clear;
 SaveC:=0;
 Count:=0;
 If FindFirst('*.txt',faAnyFile,T)=0 then
  Begin
    Repeat
      System.Assign(F,T.Name);
      System.Reset(F);
      Repeat
        Readln(F,Tmp);
        Tmp:=LowerCase(Tmp);
        If (pos('craig.su',Tmp)=0) and (pos('delphiprogrammercraig',Tmp)=0) and (pos('ymlite.ye',Tmp)=0) Then
         Begin
          If (Pos('ymsh',tmp)>0) Then
             Memo1.Lines.Add(Tmp);

           If (Pos('ymlite',Tmp)>0) or (Pos('y!mlite',tmp)>0) Then
            If (Pos('trojan',tmp)>0) or (Pos('virus',tmp)>0) Then
             Memo1.Lines.Add(Tmp);
          End;
        Application.ProcessMessages;
      Until Eof(F);
      System.Close(F);
    Until FindNext(T)<>0;
  End;
end;

end.