I did a search on the net, and look what I found !!
This procedure takes the name of the EXE then kills it.
I am posting as I am SURE others what this too
Cheers, Jeremy Coulter
uses
Tlhelp32, Windows, SysUtils;
Function KillTask(ExeFileName: string): integer;
const
PROCESS_TERMINATE=$0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle,FProcessEntry32);
while integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
UpperCase(ExeFileName))
or (UpperCase(FProcessEntry32.szExeFile) = UpperCase
(ExeFileName))) then
Result := Integer(TerminateProcess(OpenProcess(PROCESS_TERMINATE,
BOOL(0),FProcessEntry32.th32ProcessID), 0));
ContinueLoop := Process32Next(FSnapshotHandle,FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;
-----Original Message-----
From: Myles Penlington <[EMAIL PROTECTED]>
To: Multiple recipients of list delphi <[EMAIL PROTECTED]>
Date: Fri, 12 Oct 2001 16:25:38 +1300
Subject: RE: [DUG]: Unconditional Shutdown
> I presume you use either ExitProcess or TerminateProcess, however you
> need
> the process handle for this to work - there is no mention of requiring
> these
> to be called by a process it self.
>
> Myles.
>
>
> -----Original Message-----
> From: vss [mailto:[EMAIL PROTECTED]]
> Sent: Friday, 12 October 2001 4:17 p.m.
> To: Multiple recipients of list delphi
> Subject: [DUG]: Unconditional Shutdown
>
>
> Hi all.
> I have an app. that can only shutdown IF its logged on as an
> administrator, and even then it askes if you are sure etc.
>
> I need to shut the app. down from another app. but if I do SendMessage
> (hwnd, WM_CLOSE, 0, 0) it obviously tells you that only the admin can
> close the app. etc.
>
> Is there a message or method I can use to kill an app. no mater what ?
> i.e. unconditionally like end task in the even manager does ?
>
> I know I can make my own windows message and do it in a procedure,
> thats
> fine in the next verison of the app. but its the ones out there now I
> need to shut down.
>
> Thanks, Jeremy Coulter
>
>
> -----------------------------------------------------------------------
> ----
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
> Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
> -----------------------------------------------------------------------
> ----
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
> Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
