| |
| |
|
Julian
Schmidt | avec diesem Voir le texte source peux on ermitteln si un bestimmter Prozess fonctionne.
je ne sais pas si es einfacher, kürzer allez.
si oui s'il te plaît une Wink avec dem Zaunpfahl donner. 
Lässt sich im übrigen très bien verwenden afin de testen si cela eigene Programme fonctionnement wird.
KompilierenMarqueSéparationDef 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 ▲ |
|
| |
|
|
 | il y a quelque chose cela Du toujours "falsch" fais et so postest...
DEF-Deklarationen "gehören" pas dans Funktionen mais sommes global. |
|
| |
| |
| |
|
|
Julian
Schmidt | Werde es mir merken  |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 08.08.2011 ▲ |
|
| |
|
|
| XProfan rockt si on avec cela richtig rockt!  |
|
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
Dieter
Zornow | | Funktioniert malheureusement pas chez mir. Es wird rien erkannt. pas la fois 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 ▲ |
|
| |
|
|
| | quoi soll car erkannt volonté? |
|
| |
| |
| |
|
|
Julian
Schmidt | chez mir funktioniert es sur XProfan11, XProfanX2 fantastisch! Getestet aus WinXP Pro. et Win7 Home Premium.
chez IF schien es aussi funktioniert trop avons.
Liegt vlt à Windoof öhhhmmmm..... Windows. |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 08.08.2011 ▲ |
|
| |
|
|
| bof solange je pas sais quoi Dieter eigentlich meint ... ^ ^
Nachtrag: Ahhh... maintenant klingelts chez mir.. il bezieht sich imho sur den Ausgangsbeitrag. ^ ^ |
|
| |
| |
| |
|
(1.042)
Deutsch
English
Français
Español
Italia