| |
| |
|
Julian
Schmidt | Mit diesem Ver código fuente puede ser ermitteln si una bestimmter Prozess se ejecuta.
Yo weiß no si einfacher, kürzer va.
Wenn sí Por favor, una Wink con el Zaunpfahl geben. 
Lässt se en el übrigen muy bien uso en a testen si el propio Programa ausgeführt se.
KompilierenMarcaSeparaciónDef CreateToolhelp32Snapshot(2) !"Kernel32", "CreateToolhelp32Snapshot"
Def Process32First(2) !"Kernel32", "Process32First"
Def Process32Next(2) !"Kernel32", "Process32Next"
Def CloseHandle(1) !"Kernel32", "CloseHandle"
Def GetCurrentProcessID(0) !"Kernel32", "GetCurrentProcessId"
Proc is_exists_Process
Parameters prozess$
Declare Entry#,err&,handle&,cpid&,ergebnis&
Struct PROCESSENTRY32=dwSize&, cntUsage&, th32ProcessID&, th32DefaultHeapID&, th32ModuleID&, Threads&, th32ParentProcessID&, pcPriClassBase&, dwFlags&, szExeFile$(260)
Dim Entry#,PROCESSENTRY32
Entry#.dwSize& = SizeOf(Entry#)
cpid&=GetCurrentProcessID()
handle& = CreateToolhelp32Snapshot(2,0)
If handle&
err& = Process32First(handle&, Entry#)
If err&
Repeat
err& = Process32Next(handle&, Entry#)
If err&
case Entry#.szExeFile$=prozess$ : ergebnis&=1
EndIf
Until err& = 0
CloseHandle(handle&)
EndIf
EndIf
Dispose Entry#
Return ergebnis&
EndProc
cls
if is_exists_Process("firefox.exe")
print "Firefox wird ausgeführt"
else
print "Firefox wird nicht ausgeführt"
Endif
waitinput
|
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...]  | 08.08.2011 ▲ |
|
| |
|
|
 | Lo son algo el Usted siempre "falsch" machst y así postest...
DEF-Deklarationen "gehören" no en Características pero son global. |
|
| |
| |
| |
|
|
Julian
Schmidt | Werde lo me merken  |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 08.08.2011 ▲ |
|
| |
|
|
| XProfan rockt si uno así correcto rockt!  |
|
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
Dieter
Zornow | | Funktioniert por desgracia, no en me. Lo se nichts erkannt. No veces Firefox |
|
| |
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 08.08.2011 ▲ |
|
| |
|
|
| | Was se porque erkannt voluntad? |
|
| |
| |
| |
|
|
Julian
Schmidt | En me funktioniert lo encima XProfan11, XProfanX2 fantastisch! Getestet de WinXP Pro. y Win7 Home Premium.
En IF schien lo auch funktioniert a haben.
Liegt vlt a Windoof öhhhmmmm..... Windows. |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 08.08.2011 ▲ |
|
| |
|
|
| Naja solange Yo no weiß qué Dieter eigentlich meint ... ^ ^
Apéndice: Ahhh... ahora klingelts en me.. él bezieht se imho en el Ausgangsbeitrag. ^ ^ |
|
| |
| |
| |
|
(1.061)
Deutsch
English
Français
Español
Italia