| |
| |
|
Julian
Schmidt | Mit diesem Quelltext kann man ermitteln ob ein bestimmter Prozess läuft.
Ich weiß nicht ob es einfacher, kürzer geht.
Wenn ja bitte einen Wink mit dem Zaunpfahl geben. 
Lässt sich im übrigen sehr gut verwenden um zu testen ob das eigene Programm ausgeführt wird.
KompilierenMarkierenSeparierenDef 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 ▲ |
|
| |
|
|
 | Es gibt etwas das Du immer "falsch" machst und so postest...
DEF-Deklarationen "gehören" nicht in Funktionen sondern sind global. |
|
| |
| |
| |
|
|
Julian
Schmidt | Werde es mir merken  |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 08.08.2011 ▲ |
|
| |
|
|
| XProfan rockt wenn man damit richtig rockt!  |
|
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
Dieter
Zornow | | Funktioniert leider nicht bei mir. Es wird nichts erkannt. Nicht mal 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 soll denn erkannt werden? |
|
| |
| |
| |
|
|
Julian
Schmidt | Bei mir funktioniert es über XProfan11, XProfanX2 fantastisch! Getestet aus WinXP Pro. und Win7 Home Premium.
Bei IF schien es auch funktioniert zu haben.
Liegt vlt an Windoof öhhhmmmm..... Windows. |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 08.08.2011 ▲ |
|
| |
|
|
| Naja solange ich nicht weiß was Dieter eigentlich meint ... ^^
Nachtrag: Ahhh... jetzt klingelts bei mir.. er bezieht sich imho auf den Ausgangsbeitrag. ^^ |
|
| |
| |
| |
|
(865)
Deutsch
English
Français
Español
Italia