FC2ブログ

プロセス削除について

プロセス削除

指定したプロセスを削除します。
このやり方は、プロセス名をキーに、該当するプロセスを削除します。
同じプロセス名が複数存在する場合、すべて削除します。

なお、プロセス名やその他詳細は、"System.Diagnostics.Process.GetProcesses()"で取得できます。やり方は、Sampleを見てくださいね。
⇒って、サンプルはブログに移植できませんでした。m(__)m

'==============================================================================
'
' プロセス削除
'
' ------------------------------------------------------------------------
' 説明 : 指定したプロセスを削除する
'
' ------------------------------------------------------------------------
' 引数 : strProcessName   プロセス名
'    strErrMsg      エラーメッセージ
' 戻値 : True:成功、False:失敗
'
'==============================================================================

Public Function fncProcRun(ByVal strProcessName As String, _
                Optional ByRef strErrMsg As String = "") As Boolean
  Dim proKillProcess As System.Diagnostics.Process = Nothing
  Dim proSerchProcess() As Process = Nothing
  Dim proFindProcess As Process = Nothing


  Try

    '--------------------------------------------------
    ' 対象プロセスをセット
    '--------------------------------------------------

    proSerchProcess = System.Diagnostics.Process.GetProcessesByName(strProcessName)


    '--------------------------------------------------
    ' 対象プロセスを削除
    '--------------------------------------------------

    '対象プロセスのプロセスを検索
    For Each proFindProcess In proSerchProcess
      '対象プロセスのプロセスIDを取得
      proKillProcess = System.Diagnostics.Process.GetProcessById(proFindProcess.Id)

      '対象プロセスを強制終了
      proKillProcess.Kill()
      proKillProcess.Dispose()
    Next


    '--------------------------------------------------
    ' プロセス解放
    '--------------------------------------------------

    proSerchProcess = Nothing
    proFindProcess = Nothing


    '--------------------------------------------------
    ' 戻り値設定
    '--------------------------------------------------

    Return True

  Catch ex As Exception

    '--------------------------------------------------
    ' エラーメッセージ設定
    '--------------------------------------------------

    strErrMsg = "プロセス削除中にエラーが発生しました。" & vbCrLf & _
          "詳細は以下のとおり" & vbCrLf & _
          "--------------------------------------------------" & vbCrLf & _
          ex.Message


    '--------------------------------------------------
    ' 戻り値設定
    '--------------------------------------------------

    Return False

  End Try

End Function



【宣伝・・・(*´ω`)】

タイトルロゴ3

 システム葵では、個人様向けでも企業様向けでも、パソコン修理から、パソコン設定、パソコンの使い方、LAN環境構築、ソフトウェア開発まで、様々な実績がありますので、困ったことがあれば、お気軽にご相談下さい。
関連記事

テーマ : プログラミング
ジャンル : コンピュータ

コメントの投稿

非公開コメント

検索フォーム
最新記事
カテゴリ
全記事表示リンク

全ての記事を表示する

最新コメント
プロフィール

ITLife

Author:ITLife
システム葵新井聡太です。
東京都東村山市に生まれ、ここで育ち、ここで結婚し、システムエンジニア一筋で十数年やってきました。
ここでは主に、パソコンを中心にITに関わることを備忘録として残していきたいと思います。
少しでも来ていただいた方のお役に立てたら幸いです。
m(_ _)m

p.s
ここで紹介している内容は一例です。すべては、自己責任でお願いします。

カレンダー
05 | 2019/06 | 07
- - - - - - 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 - - - - - -
訪問数
月別アーカイブ
リンク