Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- procedure TaskKill(FileName: String);
- var
- ResultCode: Integer;
- begin
- Exec(ExpandConstant('taskkill.exe'), '/f /im ' + '"' + FileName + '"', '', SW_HIDE,
- ewWaitUntilTerminated, ResultCode);
- end;
Add Comment
Please, Sign In to add comment