program (TerminateProcess $ APPTYPE CONSOLE) uses
2016-08-22
0 0 0
no vote
Other
Earn points
program (TerminateProcess $ APPTYPE CONSOLE) uses SysUtils, Windows var ProcessHwnd, WindowHwnd : THandle ProcessID : DWORD begin// notebook to be the main window handle WindowHwnd : = FindWindow (Notepad, nil) if not isWindow (WindowHwnd) then ExitProcess (0)// notebook to be in the process logo GetWindowThreadProcessId (WindowHwnd, ProcessID) if ProcessID = 0 then ExitProcess (0)// identification process under the process opened handle ProcessHwnd : = OpenProcess (PROCESS_ALL_ACCESS, false, ProcessID) if ProcessHwnd = 0 then ExitProcess (0)// designated handle suspend the process Windows.TerminateProcess (ProcessHwnd, 0) end.
delphi
Related Source Codes
MY Function Library
0
0
no vote
DELPHI calls the voice synthesis provided by windo
0
0
no vote
Compare binary file
0
0
no vote
Delphi 7
0
0
no vote
SQL database table structure merge tool
0
0
no vote
No comment