20020606;22:00
私はプロの情報屋である。こう書くと、ゴロツキ探偵のような気分になるが、最近は、大学も情報工学科とか、情報科学科とかいわず、情報学研究科みたいになってしまっているので、こうなってしまう。プロのプログラマではないが、プログラミングは手段としてやっているので、レドモンド辺りでバグを大量生産しているプログラマよりは、はるかに腕がたつ。機械語が大好きである。コンピュータのハードの隅ずみまで精通していれば、小さくて高性能のプログラムが書けるからである。とはいえ、これで人工知能のプログラムをかくのはチョット辛いので、LISPやPROLOG(今や死語)も使うが、まあ、Ｃあたりが一番使い易い。ＢＡＳＩＣは子供のおもちゃで、昔、日曜プログラマ仕事というか、遊びでいじくったが、あの子供っぽい制御構造が好きになれず、やっぱりおもちゃだという印象が付きまとっている。

そんな中、６０ＭＢもある

Ｈｅｌｐでも見るか。

分かった；Ｈｅｌｐによれば、

ProcessMessages メソッドは，アプリケーションがメッセージキューを処理できるよう，その実行を一時的に停止します。

procedure ProcessMessages;

説明
ProcessMessages メソッドを呼び出すと，メッセージキューに現在あるメッセージをアプリケーションが処理できるようになります。ProcessMessages メソッドは Windows メッセージループが空になるまで循環し，その後アプリケーションへ制御を戻します。

注意 メッセージ処理を無視すると，ProcessMessages メソッドを呼び出すアプリケーションだけに影響し，そうでないアプリケーションには影響しません。時間のかかる処理を行うときに ProcessMessages を定期的に呼び出すようにすれば，アプリケーションが描画や他のメッセージに応答することが可能になります。 注意 ProcessMessages メソッドは，HandleMessages メソッドとは異なり，アプリケーションをアイドル状態にすることはできません。

ＯＳの都合で必要なのは分かったが、こんなものは純論理的には要らないな。

procedure TForm1.Button4Click(Sender: TObject);
begin
CanselFlag := True;
end;

その後、
　　　　　　　・・・
if CanselFlag then　Break;　

これで十分だ。こんな変な制御をするからＷｉｎｄｏｗｓはついプログラマが書き忘れて虫だらけになっているのだろう、という気がする。

次のコントラストの講座では、

//ユーザー関数（ラウンドバイト）
Function TForm1.RoundByte(data:Double):Byte;
begin
if Data >= 255 then //バイトの範囲（０〜２５５）に値を丸め込んでいます。
Data := 255;
if Data <= 0 then
Data := 0;
RoundByte := Round(Data);
end;

が少し引っかかった；

if data > 255 then Dta := 255;
if data <　0 then data := 0;
RoundByte := Round(Data);

でいいネ。

しかし、実はこれはプログラマは、良くやる手である。虫は、境界で出る。だから、こういう境界条件を書くところは、無駄に見えても安全サイドに倒して書く癖を付けておくことは重要なのだ。

１００ｍの道路に１０ｍ置きに端から端まで、植木を植えました。植木は何本必要でしょう、という問題に１００÷１０＝１０本とやる人は８９．２３４５６７８％位いるだろう。これが境界条件の怖さ。

Roundは、言及されていないが、そういう組込み関数があるのだろう。

さて、利家とまつでもみるか。

2002.0612 21:50

久しぶりに再開。今日は、ＡＰＩが一体どういう構造になっているか調査。

実は、ＶＮＣがセキュリティの為と称してパスワードを保存してくれないので面倒でしょうがない。そこで、F_Macroを使って一応自動Ｌｏｇｉｎはできたが、一寸動きが遅いので、パスワードをファイルにしておいて、ＶＮＣのパスワード入力ボックスに送り込めないかという練習問題を自分に課した。それに必要なＡＰＩを探す事によって、その構造をしろうという寸法。

で、Ｄｅｌｐｈｉを起動してコンポーネントを眺めても、ヘルプを眺めてもさっぱり分からない。そんなＡＰＩはなさそうに思えるが、本当の所はわからない。Ｖｅｃｔｏｒのユーティティ→設定関係にはその手のアプリが幾つかある。上のF_Macroもそうだが、「Windows操作の自動化、マウスの自動移動」などもそう。「キーボード　delphi」をキーにして、Ｇｏｏｇｌｅを調べると山のように当たるのでなかなか厄介である。その内、ＳｅｎｄＫｙｅｓというＡＰＩがＶｉｓｕａｌＢａｓｉｃにあり、これを使えば良いらしい事がわかった。やってみないとわからないが、とにかくヒントである。ところが、ＤｅｌｐｈｉにはこんなＡＰＩはないという。さらに調べると、ここから入って、ここに コンポーネントとして用意されていることが分かった。ただし、Ｄｅｌｐｈｉ４までしかない。

さらにＧｏｏｇｌｅで調べると、日本にもあった が、何と、Ｄｅｌｐｈｉ１．０！！であり、使えない（かどうかしらないが、とにかくＤｅｌｐｈｉ６用ではない）。

http://www.nifty.ne.jp/forum/fdelphi/faq/00021.htmには、下記のように書いてあり、Ｗｉｎｄｏｗｓ　ＡＰＩを使えるらしい；

if FileExists(ParamStr(1)) then
begin

Application.CreateForm(TForm1, Form1);
Application.Run;
end;
end.