くろねこの備忘録
2024年9月11日(水) 18:23 JST
TBrushStyleやTPenStyleなどの列挙型の値を文字列に変換するには次のように行う。
uses TypInfo;
function GetBrushStyleName(Value: TBrushStyle): String;
begin
Result := GetEnumName(TypeInfo(TBrushStyle), Ord(Value));
end;
逆に文字列から値に変換するには次のようにする。
uses TypInfo;
function GetBrushStyleValue(Name: String): TBrushStyle;
begin
Result := TBrushStyle(GetEnumValue(TypeInfo(TBrushStyle), Name));
end; 表題の通り、「ジェネリックのTListに格納したrecord型変数は解放する必要が無い」らしい。
DelphiでCreateOleObjecteにより起動したExcelが終了しないケースがあるかと思う。
くろねこの自宅ではExcel 2010を使用中であるが、幸いなことながらExcelが正常動作している際にはこのケースに遭遇したことは無い。しかしながら、勤務先のExcel 2003ではExcelの参照をもっている変数に対してunassignedを代入してもプロセスが解放されないと言うことが発生している。
このような際には、処理終了後Delphiの方からExcelプロセスの強制終了が必要になるかもしれない。
今回はこのようなときに役立つ処理を作成した。
また、この処理はハングアップしたExcelプロセスを強制終了する際にも役に立つだろう。
通常、ハングアプリケーションの明確な定義ない。しかし、通常ハングアップという状態では、該当のプロセスはいくつかの処理が"ビジー"になっていて、ユーザーから見た際に応答を停止している状態であると思われる。
次の処理は、アプリケーションがまだ一定時間で応答する際には通常に処理を実行しているとみなし、そうで無い場合にはハングアップしていると見なすこととした。
マシンの死活監視に欠かせないのがPing。
くろねこも社内でアプリケーションサーバーがDBサーバーに接続しに行く前に死活監視を...と言う話を切り出してからはなかなか実現できず、問題だけが積み上がっていた。
だって、それに集中する時間が無いんだもん...
すでに、社内のマネージャからは「ライフワーク」といわれ始めた...
そんな状況を打開するために、ちょっと気合いを入れて調査してみる。
よくあるPingのサンプルプログラムでは管理者権限が必要。
管理者権限が不要といわれているプログラムをいくつか試してみたが動かず暗礁に乗り上げていたが...
本日、先日買ったノートPCで帰宅中に、最悪.net Frameworkでもいいか～と調べていると...
やっぱり、Pingクラスってあるんですね。
さらに、Pingクラスを使っている例が無いかググってみると、WMIで実行する方法がある。
WMIはWin32でも実行できるので、今回はこちらでコーディングしてみることにした。
[Delphi] MainFormOnTaskBarとタスクバーボタンで完成できていなかったActiveFormOnTaskBarの動きがようやく完成です。
サポートの方にもご協力いただいて...実現しました。