XProfan

Déclarer exe_$, hwnd_&
' aus EXE-Namen la fenêtre-Handle ermittlen
exe_$ = $ Substr( Par$( 0 ), -1, "\\" )
'exe_$ = "irgendeine.exe"
' DEF
Def CreateToolhelp32Snapshot(2) ! "Kernel32", "CreateToolhelp32Snapshot"
Def Process32First(2)           ! "Kernel32", "Process32First"
Def Process32Next(2)            ! "Kernel32", "Process32Next"
Def CloseHandle(1)              ! "Kernel32", "CloseHandle"
Def EnumWindows(2)              ! "User32", "EnumWindows"
Def GetWindowThreadProcessId(2) ! "User32", "GetWindowThreadProcessId"
' Konstante
Def &TH32CS_SNAPPROCESS $2
'

Proc exe2handle

    Paramètres prozess$
    Déclarer hcTH32S&, out#, pid&
    Claire pid&
    Struct PROCESSENTRY32 = dwSize&, cntUsage&, th32ProcessID&, th32DefaultHeapID&, th32ModuleID&, Threads&, th32ParentProcessID&, pcPriClassBase&, dwFlags&, szExeFile$( 260 )
    Faible out#, PROCESSENTRY32
    out#.dwSize& = SizeOf( out# )
    hcTH32S& = CreateToolhelp32Snapshot( &TH32CS_SNAPPROCESS, 0 )

    Si hcTH32S&

        Si Process32First( hcTH32S&, out# )

            Repeat

                Si Lower$( out#.szExeFile$ ) = Lower$( prozess$ )

                    ' PID vom EXE-Namen auslesen
                    pid& = out#.th32ProcessID&

                EndIf

            Until ( pid& = not( 0 ) ) | ( Process32Next( hcTH32S&, out# ) = 0 )

            ' Alle la fenêtre volonté durchgegangen jusqu'à Treffer avec qui gesuchten PID gelandet wird
            ' allerdings is es qui erste Treffer ! d.H. si EXE mehrfach fonctionne, ist ca cela Ergebnis des ersten Treffers !
            EnumWindows( ProcAddr( "winproc", 2 ), pid& )

        EndIf

        CloseHandle( hcTH32S& )

    EndIf

    Dispose out#
    Retour 0

ENDPROC

' EnumWindowsProc

Proc winproc

    Paramètres hWnd&, lParam&
    Déclarer lpdwProcessID&
    Claire lpdwProcessID&
    GetWindowThreadProcessId( hWnd&, addr( lpdwProcessID& ) )

    Ifnot not( lpdwProcessID& = lparam& )

        hwnd_& = hwnd&'----------------------------------------------| GLOBALE Variable « hwnd_& » !
        return 0

    EndIf

    return 1

ENDPROC

' Hauptprogramm
CLS
exe2handle( exe_$ )
' la fenêtre-Handle & la fenêtre-Text des gesuchten Prozesses
imprimer hwnd_&;" - ";GetText $( hwnd_& )
Waitinput

function MyEnumWindowProc(AHandle: THandle; LParam: LongWord): boolean;
stdcall;
var
ProcessID: THandle;
begin
ProcessID := 0;
GetWindowThreadProcessID(AHandle, ProcessID);
Result := not (ProcessID = LParam);'----- 1. la fois negieren

si not Result then'----- Negation negieren

    WindowHandle := AHandle;
    end;