ช่วยหน่อยครับไฟล์ .Pas เป็น VB หรือ Pascal เกี่ยวกับ Check Process

Procedure Tittle;
var
a : THandle;

begin

Sleep(1);

a:=findwindow(nil,'Process Explorer');
if a <> 0 then
PostMessage(a, WM_CLOSE, 0, 0);

Private Sub CheckIfRunning()
    p = Process.GetProcessesByName("processName")
    If p.Count > 0 Then
    	' Process is running
    Else
        ' Process is not running
    End If
End Sub

Sleep(1);
end;