ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2024年3月28日(木) 20:04

全ての表示時間は UTC+09:00 です




新しいトピックを投稿する  トピックへ返信する  [ 1 件の記事 ] 
作成者 メッセージ
投稿記事Posted: 2006年4月17日(月) 00:31 
オフライン

登録日時: 2005年7月19日(火) 07:02
記事: 183
お住まい: 宮城県
いまさら感が激しいですが^^;
AB2で多重起動の防止+起動済みの窓をアクティブ化する方法。

EnumWindows()を使った方法が、こちらですでに提示されてますが、これはコールバック関数をを使っているので、
AddressOf()の使えないAB2において、共有メモリを使って実現方法を
関数にまとめてみました。
(といっても、こちらもNoWestさんが話しに出されてますけどね^^;)

使い方。
Function NoMultipleBootButActiveSet( ByVal hTargetWnd As Long, ByVal strMapName As String ) As Long
多重起動を禁止したいウィンドウの窓ハンドルをhTargetWndにセット、
識別子として任意の文字列(hogeとか)をstrMapNameにセットする。
一つ目の起動のときの返り値は識別ハンドルで、解除時に利用する(実体は共有メモリのハンドルです。)。
同じ識別子strMapNameに対して多重起動が行われた際は、禁止は失敗し、
既に起動済みの窓がアクティブになり、返り値はNULLとなる。

Function NoMultipleBootButActiveUnset( ByVal hMap As Long ) As Long
多重起動の禁止を解除する。
hMap As LongにはNoMultipleBootButActiveSet()の返り値(NULLでないとき)をセット。

Function NoMultipleBootButActiveIsBooted( ByVal strMapName As String ) As Long
多重起動なのかどうかを判別する。
多重起動のときは、TRUEが返り、起動済みの窓がアクティブになる。
そうでないときは、FALSEが返る。

・・・まぁ、ミューテックスでの多重起動禁止みたいに簡単にアクティブ化まで
できたら楽だよね~、ってだけの話で^^;


通報する
ページトップ
期間内表示:  ソート  
新しいトピックを投稿する  トピックへ返信する  [ 1 件の記事 ] 

全ての表示時間は UTC+09:00 です


オンラインデータ

このフォーラムを閲覧中のユーザー: なし & ゲスト[9人]


トピック投稿:  可
返信投稿:  可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

検索:
ページ移動:  
cron
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by ocean