Français
Stammtisch & le café

TerminateProcess.

 


Beschreibung:

qui API TerminateProcess finissez den angegebenen Prozess, entlädt cependant aucun geladenen DLL’s.




Deklaration:

Def @TerminateProcess(2) !KERNEL32,TerminateProcess




paramètre:

1.paramètre: Handle des Prozesses
2.paramètre: LongInt Variable avec dem Exitcode pour den Prozess.



Rückgabewert:

0 chez Mißerfolg, ansonsten 1.


Beispiele:

[...] 
KompilierenMarqueSéparation
DEF CreateProcessA(10)    ! "Kernel32","CreateProcessA"
DEF GetExitCodeProcess(2) ! "Kernel32","GetExitCodeProcess"
DEF TerminateProcess(2)   ! "Kernel32","TerminateProcess"
DEF ZeroMemory(2)         ! "Kernel32","RtlZeroMemory"
Declare lpCommandLine#
Declare lpStartupInfo#
Declare lpProcessInformation#
Declare ExitCode#
Declare Prozess$

Proc CreateProcess

    Parameters CommandLine$,Showparameter$,XPOS$,YPOS$,XSIZE$,YSIZE$
    Declare hProcess&,Flags&
    Dim lpCommandLine#,Len(CommandLine$)+1
    Dim lpStartupInfo#,68
    ZeroMemory(lpStartupinfo#,68)
    Long lpStartupInfo#,0=68
    Case Showparameter$<>"" : LET FLAGS&=FLAGS&+1
    CASE @OR(XPOS$<>"",YPOS$<>"") : LET FLAGS&=FLAGS&+4
    CASE @OR(XSIZE$<>"",YSIZE$<>"") : LET FLAGS&=FLAGS&+2
    Long lpStartupInfo#,44=Flags& Flag, welche Anteile von Startupinfo berücksichtigt werden sollen
    Word lpStartupInfo#,48=@VAL(Showparameter$) SHOWParameter von WinExec
    Long lpStartupInfo#,16=@VAL(XPOS$) Einleuchtend - oder?
    Long lpStartupInfo#,20=@VAL(YPOS$) Einleuchtend - oder?
    Long lpStartupInfo#,24=@VAL(XSIZE$) Einleuchtend - oder?
    Long lpStartupInfo#,28=@VAL(YSIZE$) Einleuchtend - oder?
    Dim lpProcessInformation#,16
    ZeroMemory(lpProcessInformation#,16)
    String lpCommandLine#,0=CommandLine$
    CreateProcessA(0,lpCommandLine#,0,0,0,0,0,0,lpStartupInfo#,lpProcessInformation# )
    hProcess&=Long(lpProcessInformation#,0)
    Dispose lpCommandLine#
    Dispose lpStartupInfo#
    Dispose lpProcessInformation#
    Return hProcess&

EndProc

Proc KillProcess

    Parameters hProcess&
    GetExitCodeProcess(hProcess&,Exitcode#)
    TerminateProcess(hProcess&,Long(exitcode#,0))
    Dispose Exitcode#

EndProc

Proc ProcessStatus

    parameters prozid&
    declare status&
    GetExitCodeProcess(prozid&,Exitcode#)
    status& = long(Exitcode#,0)
    return status&

endproc

Declare hProcess&
LET PROZESS$=@LOADFILE$("Datei auswählen","*.EXE")
CASE PROZESS$="" : END
Dim exitcode#,4
createprocess PROZESS$,"0","","","","" Prozess versteckt
createprocess PROZESS$,"1","100","30","200","100" Prozess sichtbar
createprocess PROZESS$,"2","10","30","400","400" Prozess minimiert
LET hProcess& = @&(0)
Windowstyle 31+512
WindowTitle "Prozess überwachen"
Window 0,0-640,440
settimer 400

while %MENUITEM<>-2

    waitinput
    ProcessStatus hProcess&
    print @&(0)
    print hex$(long(Exitcode#,0))

endwhile

KillProcess hProcess&
Dispose
xitcode# Fin

[keywords:96a8ffacd3]
Prozess Programme Task finissons killen
[/keywords:96a8ffacd3]
 
05.03.2005  
 



répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

2.404 Views

Untitledvor 0 min.
Andre Rohland12.06.2018
Georg Teles19.05.2014

Themeninformationen

cet Thema hat 1 participant:

unbekannt (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie