6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7 SakuraSeeker, ComCtrls, Menus, ExtCtrls, StdCtrls, TestDSstp;
12 StatusBar1: TStatusBar;
13 SakuraSeeker1: TSakuraSeeker;
21 TestDSstp1: TTestDSstp;
23 procedure FormCreate(Sender: TObject);
24 procedure Exit1Click(Sender: TObject);
25 procedure Update1Click(Sender: TObject);
26 procedure SakuraSeeker1AfterDetection(Sender: TObject);
27 procedure SakuraSeeker1DetectResultChanged(Sender: TObject);
28 procedure Timer1Timer(Sender: TObject);
29 procedure Button1Click(Sender: TObject);
30 procedure Button2Click(Sender: TObject);
34 procedure GetMessage(var Message: TWMCopyData); message WM_COPYDATA;
47 procedure TForm1.FormCreate(Sender: TObject);
48 var SakuraSeeker: TSakuraSeeker;
50 SakuraSeeker := TSakuraSeeker.Create(Self);
51 SakuraSeeker.BeginDetect;
54 procedure TForm1.Exit1Click(Sender: TObject);
59 procedure TForm1.Update1Click(Sender: TObject);
61 SakuraSeeker1.BeginDetect;
65 procedure TForm1.Update;
69 ListView1.Items.Clear;
70 for i := 0 to SakuraSeeker1.Count-1 do begin
71 Item := ListView1.Items.Add;
72 Item.Caption := SakuraSeeker1[i].ProcessID;
73 Item.SubItems.Add(IntToStr(SakuraSeeker1[i].HWnd));
74 Item.SubItems.Add(SakuraSeeker1[i].Name);
78 procedure TForm1.SakuraSeeker1AfterDetection(Sender: TObject);
80 StatusBar1.SimpleText := IntToStr(SakuraSeeker1.Count) + '
\8c\8f ' +
85 procedure TForm1.SakuraSeeker1DetectResultChanged(Sender: TObject);
87 ShowMessage('Status Changed!');
90 procedure TForm1.Timer1Timer(Sender: TObject);
92 SakuraSeeker1.BeginDetect;
95 procedure TForm1.Button1Click(Sender: TObject);
100 if ListView1.Selected = nil then Exit;
101 Target := SakuraSeeker1[ListView1.Selected.Index].HWnd;
103 Str := 'SEND SSTP/1.4'#13#10'HWnd: '+IntToStr(Form1.Handle)+#13#10'Charset: Shift_JIS'#13#10 +
104 'Sender: Tester'#13#10'Script: \t
\82Ä
\82·
\82Ä
\82·
\81B\e'#13#10#13#10;
107 Dat.cbData := Length(Str);
108 Dat.lpData := PChar(Str);
110 SendMessage(Target, WM_COPYDATA, Form1.Handle, LPARAM(@Dat));
114 procedure TForm1.GetMessage(var Message: TWMCopyData);
117 ShowMessage(PChar(Message.CopyDataStruct^.lpData));
120 procedure TForm1.Button2Click(Sender: TObject);
122 if SakuraSeeker1.Count > 0 then
123 TestDSstp1.Go(SakuraSeeker1[0].HWnd);