掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォームの２重起動防止（？）について (ID：12408)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
返答ありがとうございます 巷でよく見掛けるプログラムだと２重起動が判明したら、 今回表示しようとしてるウィンドウを開かせない（閉じる）様にしてると思うんです でも実際したいのは新ウィンドウを開いて古ウィンドウを閉じる事なのです 以下、現在のプログラムです ****************************************************************** hMutex := OpenMutex( MUTEX_ALL_ACCESS, False, MutexName ); if hMutex > 0 then begin //!既に起動中の場合メッセージ表示「既に起動中です。」 MessageDlg('既に起動中です。', mtInformation, [mbOk], 0); //!アプリケーションがアイコン可されていた場合、元のサイズにする if (IsIconic(hMutex)) then OpenIcon(hMutex); //!前面に移動させる SetForegroundWindow(hMutex); CloseHandle( hMutex ); Exit; end; hMutex := CreateMutex( nil, False, MutexName ); try Application.Initialize; Application.Title := '○○○○○○○'; Application.CreateForm(TFrmPinf, FrmPinf); Application.CreateForm(TDMPinf, DMPinf); Application.Run; finally //登録したMutexを破棄 ReleaseMutex( hMutex ); end; *****************************************************************
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.