Shell и другие способы

void PrintProcessNameAndID( DWORD processID )
{
TCHAR szProcessName[MAX_PATH] = TEXT("<unknown>");

// Get a handle to the process.

HANDLE hProcess = OpenProcess( PROCESS_QUERY_INFORMATION |
PROCESS_VM_READ,
FALSE, processID );

// Get the process name.

if (NULL != hProcess )
{
HMODULE hMod;
DWORD cbNeeded;

if ( EnumProcessModules( hProcess, &hMod, sizeof(hMod),
&cbNeeded) )
{
GetModuleBaseName( hProcess, hMod, szProcessName,
sizeof(szProcessName)/sizeof(TCHAR) );
}
}

// Print the process name and identifier.

_tprintf( TEXT("%s (PID: %u)\n"), szProcessName, processID );

CloseHandle( hProcess );
}

void main( )
{
// Get the list of process identifiers.

DWORD aProcesses[1024], cbNeeded, cProcesses;
unsigned int i;

if ( !EnumProcesses( aProcesses, sizeof(aProcesses), &cbNeeded ) )
return;

// Calculate how many process identifiers were returned.

cProcesses = cbNeeded / sizeof(DWORD);

// Print the name and process identifier for each process.

for ( i = 0; i < cProcesses; i++ )
PrintProcessNameAndID( aProcesses[i] );
}

Declare Function apiGetClassName Lib "user32" Alias "GetClassNameA" (Byval Hwnd As Long, Byval lpClassname As String, Byval nMaxCount As Long) As Long
Declare Function apiGetDesktopWindow Lib "user32" Alias "GetDesktopWindow" () As Long
Declare Function apiGetWindow Lib "user32" Alias "GetWindow" (Byval Hwnd As Long, Byval wCmd As Long) As Long
Declare Function apiGetWindowLong Lib "user32" Alias "GetWindowLongA" (Byval Hwnd As Long, Byval nIndex As Long) As Long
Declare Function apiGetWindowText Lib "user32" Alias "GetWindowTextA" (Byval Hwnd As Long, Byval lpString As String, Byval aint As Long) As Long

    Private Function fEnumWindows(PhWnd As Long, Find As String) As Long
Dim hWnd As Long, hWndLen As Long
Dim hWndStyle As Long, strCaption As String

hWnd = apiGetWindow(PhWnd, mcGWCHILD)
Do While Not hWnd = 0
strCaption = fGetCaption(hWnd)
If Len(strCaption) > 0 Then
hWndStyle = apiGetWindowLong(hWnd, mcGWLSTYLE)
If hWndStyle And mcWSVISIBLE Then
Capt$ = Ucase(fGetCaption(hWnd))
If Instr(Capt$, Ucase(Find)) <> 0 Then
Code%=0
For i%=0 To hWndCount-1
If hWndOld(i%)=hWnd Then Code%=1
Next
If Code%=0 Then fEnumWindows = hWnd
End If
End If
End If
ChildEnumWindow& = fEnumWindows(hWnd, Find)
If ChildEnumWindow& <>0 Then fEnumWindows = ChildEnumWindow&
hWnd = apiGetWindow(hWnd, mcGWHWNDNEXT)
Loop
End Function

        Dim StartInf As STARTUPINFO
StartInf.cb = Len ( StartInf )
RetVal = CreateProcessA ( 0&, RunProg , 0& , 0& , 1&, NORMAL_PRIORITY_CLASS , 0& , 0& , StartInf , ProcessInfo )
PID = ProcessInfo.dwProcessId

RetVal = CloseHandle ( ProcessInfo.hProcess )
RetVal = CloseHandle ( ProcessInfo.hThread )
Sleep 1 потому как если проверять сразу, PID может быть еще жив....
tmpH&=OpenProcess(PROCESS_QUERY_INFORMATION, 0&, PID)
If tmpH& <> 0& Then
проверять будем по PID
Else
проверять будем по "WindowCaption"
End If