6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
7 StdCtrls, Menus, Clipbrd, ExtCtrls, UrlMon, ShellAPI, MMSystem,
11 TAboutDialog = class(TForm)
21 procedure FormCreate(Sender: TObject);
22 // procedure BNGikoNaviImageClick(Sender: TObject);
23 // procedure BNMonazillaImageClick(Sender: TObject);
24 // procedure BN365ccImageClick(Sender: TObject);
25 // procedure Timer2Timer(Sender: TObject);
26 // procedure HiLabelClick(Sender: TObject);
27 procedure FormClose(Sender: TObject; var Action: TCloseAction);
28 procedure CopyButtonClick(Sender: TObject);
29 // procedure Image1Click(Sender: TObject);
30 // procedure Timer1Timer(Sender: TObject);
39 AboutDialog: TAboutDialog;
44 ST: array[0..10] of string =
45 ('
\81y
\8a´
\8eÓ
\81z
\96\88\93x
\82 \82è
\82ª
\82Æ
\82¤
\82²
\82´
\82¢
\82Ü
\82·
\81y
\8eÓ
\88Ó
\81z',
46 '
\82¢
\82Â
\82à
\83z
\83b
\83g
\83]
\83k
\82Ì
\83\
\81[
\83X
\82ð
\8eQ
\8dl
\82É
\82³
\82¹
\82Ä
\82¢
\82½
\82¾
\82¢
\82Ä
\82¨
\82è
\82Ü
\82·',
47 '
\83A
\83C
\83R
\83\93\82È
\82Ç
\82Ì
\91f
\8dÞ
\82Í
\8b\8d\82³
\82ñ
\8dì
\82Ì
\83A
\83C
\83R
\83\93\82ð
\8eg
\82Á
\82Ä
\82¨
\82è
\82Ü
\82·',
48 'gzip
\83R
\83\93\83|
\81[
\83l
\83\93\83g
\82Í
\96¼
\96³
\82µ
\82³
\82ñ
\8dì
\82Ì
\82ð
\8eg
\82Á
\82Ä
\82¨
\82è
\82Ü
\82·',
49 '
\88Ã
\8d\86\89»
\8f\88\97\9d\82ÍJane
\8dì
\8eÒ
\82³
\82ñ
\82Ì
\82ð
\8eg
\82Á
\82Ä
\82¨
\82è
\82Ü
\82·',
50 'Dolib
\8aÖ
\98A
\82ÍDax
\82³
\82ñ
\8dì
\82Ì
\82ð
\8eg
\82Á
\82Ä
\82¨
\82è
\82Ü
\82·',
51 'Dolib
\82ð
\89ü
\91¢
\82·
\82é
\82Æ
\82«kage
\8dì
\8eÒ
\82³
\82ñ
\82Ì
\83\
\81[
\83X
\82ð
\8eQ
\8dl
\82É
\82µ
\82Ä
\82¨
\82è
\82Ü
\82·',
52 '
\82¢
\82Â
\82àDel
\83X
\83\8c\82Å
\83t
\83T
\83M
\83R
\82³
\82ñ
\82É
\8f\95\82¯
\82Ä
\82à
\82ç
\82Á
\82Ä
\82Ü
\82·',
53 '
\82¢
\82ë
\82¢
\82ë
\82È
\83\
\81[
\83X
\82ð
\8eQ
\8dl
\82É
\82µ
\82Ä
\82¨
\82è
\82Ü
\82·',
54 '
\83M
\83R
\83i
\83r
\83X
\83\8c\82Å
\82Í
\83\86\81[
\83U
\82Ì
\95û
\81X
\82É
\93Ã
\82Ü
\82³
\82ê
\82Ä
\82¨
\82è
\82Ü
\82·',
55 '
\82Æ
\82Ä
\82à
\82¨
\82¢
\82µ
\82ã
\82¤
\82²
\82´
\82¢
\82Ü
\82µ
\82½');
57 // MAIL_GIKOANVI: string = 'mailto:gikonavi@ice.dti2.ne.jp';
58 // URL_GIKONAVI: string = 'http://gikonavi.hp.infoseek.co.jp/';
59 // URL_MONAZILLA: string = 'http://www.monazilla.org/';
60 // URL_365CC: string = 'http://www.kyoto.zaq.ne.jp/365cc/';
61 // TIP_GIKONAVI: string = '
\83M
\83R
\83i
\83r
\82Ì
\83y
\81[
\83W';
62 // TIP_MONAZILLA: string = '2ch
\97p
\83u
\83\89\83E
\83U
\82ð
\8dì
\90¬
\82µ
\82Ä
\82¢
\82é
\83T
\83C
\83g' + #13#10
63 // + '
\83M
\83R
\83i
\83r
\82à
\82Ü
\82º
\82Ä
\82à
\82ç
\82Á
\82Ä
\82Ü
\82·';
64 // TIP_365CC: string = '2ch
\83L
\83\83\83\89\82Ì
\91f
\8dÞ
\82ð
\90»
\8dì
\82µ
\82Ä
\82é
\8b\8d\82³
\82ñ
\82Ì
\83y
\81[
\83W' + #13#10
65 // + '
\83M
\83R
\83i
\83r
\82Å
\82à
\97\98\97p
\82³
\82¹
\82Ä
\82à
\82ç
\82Á
\82Ä
\82Ü
\82·
\81B';
70 procedure TAboutDialog.FormCreate(Sender: TObject);
73 VersionMemo.Lines.Add('Version ' + BETA_VERSION_NAME_J
74 + FloatToStr(BETA_VERSION)
78 VersionMemo.Lines.Add('');
79 VersionMemo.Lines.Add('<Plugins>');
80 VersionMemo.Lines.Add(Trim(GikoSys.GetPluginsInfo));
81 VersionMemo.Lines.Add('');
82 VersionMemo.Lines.Add('<IE>');
83 VersionMemo.Lines.Add(Trim(GikoSys.GetIEVersion));
87 {procedure TAboutDialog.BNGikoNaviImageClick(Sender: TObject);
89 GikoSys.OpenBrowser(URL_GIKONAVI, gbtAuto);
92 procedure TAboutDialog.BNMonazillaImageClick(Sender: TObject);
94 GikoSys.OpenBrowser(URL_MONAZILLA, gbtAuto);
97 procedure TAboutDialog.BN365ccImageClick(Sender: TObject);
99 GikoSys.OpenBrowser(URL_365CC, gbtAuto);
102 {procedure TAboutDialog.Timer2Timer(Sender: TObject);
104 Timer2.Interval := 3000;
105 Label5.Caption := ST[FCnt];
107 if FCnt > (Length(ST) - 1) then FCnt := 0;
110 {procedure TAboutDialog.HiLabelClick(Sender: TObject);
112 ShellExecute(Handle, 'Open', PChar(MAIL_GIKOANVI), '', '', SW_SHOW);
115 procedure TAboutDialog.FormClose(Sender: TObject;
116 var Action: TCloseAction);
118 // AnimateWindow(Handle, 200, AW_HIDE or AW_BLEND);
119 // sndPlaySound(nil, SND_ASYNC or SND_MEMORY);
122 {procedure TAboutDialog.Image1Click(Sender: TObject);
128 Timer2.Enabled := False;
129 Timer1.Enabled := True;
131 hResInfo := FindResource(HInstance, '#101', 'WAVE');
132 hglb := LoadResource(HInstance, hResInfo);
133 FRes := LockResource(hglb);
134 sndPlaySound(FRes, SND_ASYNC or SND_MEMORY);
138 {procedure TAboutDialog.Timer1Timer(Sender: TObject);
140 Canvas.Brush.Style := bsClear;
141 Canvas.Font.Color := Random($FFFFFF);
142 Canvas.Font.Size := Random(30);
143 Canvas.TextOut(Random(Width), Random(Height), '
\83l
\83^
\90Ø
\82ê');
147 procedure TAboutDialog.CopyButtonClick(Sender: TObject);
149 //
\83o
\81[
\83W
\83\87\83\93\8fî
\95ñ
\82ðClipBoard
\82É
\93ü
\82ê
\82é
150 Clipboard.SetTextBuf( PChar(VersionMemo.Text) );