• R/O
  • SSH
  • HTTPS

bkopenurl: コミット


コミットメタ情報

リビジョン3 (tree)
日時2010-11-28 17:02:09
作者bnr32

ログメッセージ

Ver.1.001
○選択文字列を指定した検索エンジンで検索する機能を追加

変更サマリ

差分

--- trunk/BkOpenURL.dpr (revision 2)
+++ trunk/BkOpenURL.dpr (revision 3)
@@ -6,11 +6,11 @@
66
77 NOTICE:
88 You can freely use, modify, redistribute this source code unless you modify
9-this notice. This software is provided by the author and contributors 'AS IS'
9+this notice. This software is provided by the author and contributors 'AS IS'
1010 and any express or implied warranties are disclaimed.
1111
1212 Note:
13- BeckyAPI.pas must be exist in either specified library folder (recommended)
13+ BeckyAPI.pas must be exist in either specified library folder (recommended)
1414 or the same folder as .dpr file.
1515 *)
1616
@@ -27,8 +27,14 @@
2727 ClipBoardPushPop;
2828
2929 const
30- Ver = '1.000';
30+ Ver = '1.001';
3131
32+type
33+ TSearchEngine = record
34+ Name:String;
35+ Url:String;
36+end;
37+
3238 //const
3339 // g_hInstance : Longint = 0; // not used
3440
@@ -40,6 +46,7 @@
4046 DataFolder:String;
4147 PlugInFolder:String;
4248 BrowserPath:String;
49+ SearchEngine1:TSearchEngine;
4350
4451 g_nIDOpenURL: UINT;
4552 g_nIDHttpOpenURL: UINT;
@@ -46,6 +53,7 @@
4653 g_nIDMailtoOpenURL: UINT;
4754 g_nIDFtpOpenURL: UINT;
4855 g_nIDExpOpenURL: UINT;
56+ g_nIDSearchURL: UINT;
4957
5058 {$R *.RES}
5159
@@ -254,8 +262,12 @@
254262 buf := '\\' + buf;
255263 end;
256264 end;
265+ if LPARAM = g_nIDSearchURL then
266+ begin
267+ buf:=SearchEngine1.Url+buf;
268+ end;
257269 // デバッグ用
258-// ShowMessage(buf);
270+ ShowMessage(buf);
259271 { 実行 }
260272 if ( BrowserPath <> '' ) and
261273 ( ( LPARAM = g_nIDOpenURL ) or
@@ -310,6 +322,8 @@
310322 begin
311323 try
312324 BrowserPath:=ReadString('Browser','Path','');
325+ SearchEngine1.Name:=ReadString('SearchEngine1','Name','Google');
326+ SearchEngine1.Url:=ReadString('SearchEngin1','URL','http://www.google.co.jp/search?q=');
313327 finally
314328 AppIni.Free;
315329 end;
@@ -347,10 +361,14 @@
347361 // g_nIDExpOpenURL
348362 MENU5_STRING = 'Explorer で開く';
349363 MENU5_STATUSBAR_STRING = '選択文字列を Explorer で開きます';
364+ // g_nIDSearchURL
365+ MENU6_STRING = ' で検索する';
366+ MENU6_STATUSBAR_STRING = '選択文字列を検索します';
350367 BKC_PROPERTY = $80A7; { プロパティ }
351368 var
352369 MenuPos: Integer;
353370 hSubMenu: HMENU;
371+ buf: String;
354372 begin
355373 case nType of
356374 { BKC_MENU_MAIN: ; }
@@ -376,6 +394,12 @@
376394 AppendMenu(hSubMenu, MF_BYPOSITION or MF_STRING, g_nIDOpenURL, MENU1_STRING);
377395 // SEPARATOR
378396 AppendMenu(hSubMenu, MF_BYPOSITION or MF_SEPARATOR, 0, nil);
397+ // Search
398+ g_nIDSearchURL := bka.RegisterCommand(MENU6_STATUSBAR_STRING, nType, @ProcOpenURL);
399+ buf:=SearchEngine1.Name+MENU6_STRING;
400+ AppendMenu(hSubMenu, MF_BYPOSITION or MF_STRING, g_nIDSearchURL, PAnsiChar(buf));
401+ // SEPARATOR
402+ AppendMenu(hSubMenu, MF_BYPOSITION or MF_SEPARATOR, 0, nil);
379403 // http://
380404 g_nIDHttpOpenURL := bka.RegisterCommand(MENU2_STATUSBAR_STRING, nType, @ProcOpenURL);
381405 AppendMenu(hSubMenu, MF_BYPOSITION or MF_STRING, g_nIDHttpOpenURL, MENU2_STRING);
--- trunk/b2pluginssetup/BkOpenURL.txt (revision 2)
+++ trunk/b2pluginssetup/BkOpenURL.txt (revision 3)
@@ -1,4 +1,4 @@
1-BkOpenURL for Becky!2 Ver 1.000
1+BkOpenURL for Becky!2 Ver 1.001
22 -------------------------------
33
44 ■はじめに
@@ -23,6 +23,7 @@
2323 ・選択文字列を URL と見なして開く
2424  ├Explorer で開く
2525  ├URL と見なして開く
26+ ├XXX で検索する
2627  ├http:// を付加して開く
2728  ├mailto: を付加して開く
2829  └ftp:// を付加して開く
@@ -50,6 +51,14 @@
5051 ですので、<<"”[「C:\Windows\System32\test.log」]”">> は C:\Windows\System32\test.log になります。
5152    ?\\が先頭になく、且つX:\のようにドライブ文字が先頭にない場合\\を追加します。
5253 例)server\public\test.xls の場合 \\server\public\test.xls を開こうとします。
54+6、XXX で検索する
55+  選択文字列を指定した検索エンジンで検索します。
56+  この時、4で起動したいブラウザが指定してあればそのブラウザで起動します。
57+  BkOpenURL.dllをインストールしたフォルダにBkOpenURL.iniと言うファイルを作成し中身を
58+  [SearchEngine1]
59+  Name=メニューに表示する名称(デフォルトはGoogle)
60+  URL=ブラウザに渡すURL文字(デフォルトは http://www.google.co.jp/search?q= )
61+  とすれば別の検索エンジンで検索が可能です。
5362
5463 ■変更(又は追加)するレジストリ
5564 無し
@@ -70,4 +79,6 @@
7079 尚、 このプログラムの使用によって生じた損害等については作者は何も保証する義務を負わないこととさせて頂きます。
7180
7281 ■VerUp履歴
82+'10/11/28 Ver.1.001 ○選択文字列を指定した検索エンジンで検索する機能を追加
83+
7384 '10/11/23 Ver.1.000 ○正式Verリリース
--- trunk/BkOpenURL.dproj (revision 2)
+++ trunk/BkOpenURL.dproj (revision 3)
@@ -1,4 +1,5 @@
1-<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
1+<?xml version="1.0" encoding="utf-8"?>
2+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
23 <PropertyGroup>
34 <ProjectGuid>{22830ed3-0e88-4018-ba92-1ce388cc5188}</ProjectGuid>
45 <MainSource>BkOpenURL.dpr</MainSource>
@@ -23,7 +24,7 @@
2324 <Borland.Personality>Delphi.Personality</Borland.Personality>
2425 <Borland.ProjectType>VCLApplication</Borland.ProjectType>
2526 <BorlandProject>
26-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="HostApplication">C:\Program Files\RimArts\B2\B2.exe</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">True</VersionInfo><VersionInfo Name="Locale">1041</VersionInfo><VersionInfo Name="CodePage">932</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription">OpenURLプラグインの改造版です。</VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">BkOpenURL.dll</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright">Y.Takayanagi</VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">BkOpenURL Plugin</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">BkOpenURL.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
27+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="HostApplication">C:\Program Files (x86)\RimArts\B2\B2.exe</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">1</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">True</VersionInfo><VersionInfo Name="Locale">1041</VersionInfo><VersionInfo Name="CodePage">932</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription">OpenURLプラグインの改造版です。</VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.1</VersionInfoKeys><VersionInfoKeys Name="InternalName">BkOpenURL.dll</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright">Y.Takayanagi</VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">BkOpenURL Plugin</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">BkOpenURL.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
2728 </ProjectExtensions>
2829 <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
2930 <ItemGroup>
旧リポジトリブラウザで表示