タイトル

Delphi／ヘルプ

---

古いソフトを　MOから発掘して修正。
８年ぶりに、ヘルプを修正しようと編集したら、コンパイルするとエラー。
いったい、なにが。。。。　　

ということで、
HCRTF.EXEが4.01 しらべると　4.03が新しい物らしい

ということで　忘れないようにメモ


ヘルプコンパイラ　HCRTF.EXE
Hotspot Editor も同梱されているみたい。

でさっそくまた　コンパイル
今度はうまくいきました。
うーん。。。　編集したWordのバージョンのせいかな？


ヘルプ作りにくいしなぁ
　コンパイル面倒だし・・・
　　単なるHTMLでいいかもぉ　・・・
　　　って近頃はそうしている・・・


Microsoft HTML Help 1.4 SDK
HTML Help Downloads

Microsoft.NETSDKv1.1\Samples\Tutorials\deployment\1_helloworld
を試してみる
このサイト半角の￥がきえるのでてきとーによんでください

まず、環境変数PATHに
    C:￥WINDOWS￥Microsoft.NET￥Framework￥v1.1.4322
をいれてあるか確認。
build.batを実行
Hello.exe　ができた。　サイズ　3.00 KB (3,072 バイト)
早速実行。
Hello World using C#!

んで　じゃぁ　、Delphiいってみよう
Hello.dpr　を開く。　もちろん .netね。
オプションでデバッグ関係オフ。
さっそく　コンパイルいってみよう
18.5 KB (18,944 バイト)
ぎゃあ　でかくなった

くそ、　これでどうだぁ
dccil Hello.dpr
dccil -CC -$D- -$C- -$I- -$Y-  Hello.dpr
やっぱだめ。 大きい
コマンドラインから生成なんて、turboPascalと QuickC以来１２年ぶりだ・・・・・


Hello.dpr の内容
program Hello;

{$APPTYPE CONSOLE}
begin
  Console.WriteLine('Hello World using Delphi for .Net!');
end.

Delphi/マウスを移動しよう♪

---

mouse_evenで　マウスを　移動したり、クリックしたりできる。
マウスが移動するので、どうしても言うこと聞かないソフトを
自動でクリックさせるのに便利。
応用すると、マウス移動→クリック→入力などを　ユーザーが操作したように
再現させることができる。

function Mouse_PositionTomouse_event_Point(APoint : TPoint) : TPoint;
  var
    R :TRect;
begin
  if Not Windows.GetWindowRect(GetDesktopWindow,R) then
   Result := Point(0,0)
   else
  begin
    Result.X := Trunc(($FFFF)*(APoint.X/(R.Right-R.Left)));
    Result.Y := Trunc(($FFFF)*(APoint.Y/(R.Bottom-R.Top)));
  end;
end;

これは、独自関数。MOUSEEVENTF_ABSOLUTEのとき座標系が違うので変換。　
迷惑な仕様だ・・・・
名前が長すぎるのでシンプルにしたいところ・・・・
       ClickPt := Mouse_PositionTomouse_event_Point(Point(
         100    , 200     ));
 
操作例
    mouse_event(MOUSEEVENTF_MOVE+MOUSEEVENTF_ABSOLUTE
          ,ClickPt.X,ClickPt.Y,0,0);

     mouse_event(MOUSEEVENTF_LEFTDOWN,ClickPt.X,ClickPt.Y,0,0);
     mouse_event(MOUSEEVENTF_LEFTUP  ,ClickPt.X,ClickPt.Y,0,0);

 

ついでに文字出力
  procedure SendString(Text : String);
    var
      A_WMChar : TWMChar;
      i : integer;
  begin
    for i := 1 to Length(Text) do
    begin
      Application.ProcessMessages;
      A_WMChar.CharCode := Ord(Text[i]);
      A_WMChar.KeyData := 1;
      SendMessage(AHandle,WM_CHAR,A_WMChar.CharCode,A_WMChar.KeyData) ;
    end;
  end;

この方法は、ユーザーの操作で影響を受けるので
普通に、アプリにイベントを送りには、別のやり方が有効。

Delphiに使えるドキュメント生成ツール


・PasDoc SJIS対応版＋PasDoc GUI
・Doxygen　＋　Pas2Dox
・DelphiCodeToDoc
　http://dephicodetodoc.sourceforge.net/

考察
１）どちらにするか・・・・かなり悩む・・・

1. C#で書き出すことを考えると・・・doxygenにしたほうがいいけど
   C#のユニット作ってないのでまぁいいとしよう。CなんかMOに眠ったままだし。
   
2. と思っていたけど
3. doxygenを試すと日本語フォルダを認識しないので使えない。　ソースを英語フォルダにコピーして実行してみたが、　上のサイトのような物は表示されなかった。　ファイル名がでる程度・・・・
   設定ファイルを見る限り
   TStringListのValueを使えば簡単に変更できるので設定ツールを作る手もあるがばかばかしくて作る気はおきない。　どこか探せばおちているだろうし
   

２）ということで
PasDoc　にしたんだけど、 Type a= (v);
のときに @valueをしてみたが出力できない
vの前にコメントを貼ればできるが。。。
後方にコメントして、説明にできるタグはないのかな・・・・と思う

こちらはこちらで　不具合が。。。
でも、　お手軽
（編集：　R2 (0.8.8.3j) 2005-06-14をいれるとできました。
　　でも、今度はクラス階層が変。継承しているのに同じ段になった・・・）

どちらにしても
自分用の作って
テンプレートをＣＴＲＬ＋Ｊ　に登録して使うといい

() 構文がきかなくなったのが困りものだが・・・

テンプレート集
?

?

?