[Lazarus] kill a running program by name

2015-11-13 Thread fecske fecske 
How can I kill a running program (proces,task) by name?

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

Re: [Lazarus] kill a running program by name

2015-11-13 Thread fecske fecske 
This work perfekt for me from here...
http://www.swissdelphicenter.com/torry/showcode.php?id=266

on the windows7 64

with jwatlhelp32 and windows in uses

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;

procedure TForm1.Button1Click(Sender: TObject);
begin
  KillTask('notepad.exe');
end;

On Fri, Nov 13, 2015 at 12:08 PM, fecske fecske  wrote:
> Sorry!
> Windows 7 and later
>
> On Fri, Nov 13, 2015 at 12:06 PM, Mark Morgan Lloyd
>  wrote:
>> fecske fecske wrote:
>>>
>>> How can I kill a running program (proces,task) by name?
>>
>>
>> Depends on operating system.
>>
>> --
>> Mark Morgan Lloyd
>> markMLl .AT. telemetry.co .DOT. uk
>>
>> [Opinions above are the author's, not those of his employers or colleagues]
>>
>> --
>> ___
>> Lazarus mailing list
>> Lazarus@lists.lazarus.freepascal.org
>> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

Re: [Lazarus] kill a running program by name

2015-11-13 Thread Mark Morgan Lloyd 

fecske fecske wrote:

How can I kill a running program (proces,task) by name?


Depends on operating system.

--
Mark Morgan Lloyd
markMLl .AT. telemetry.co .DOT. uk

[Opinions above are the author's, not those of his employers or colleagues]

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

Re: [Lazarus] Extending TRect breaks Lazarus

2015-11-13 Thread Marco van de Voort 
On Wed, Nov 11, 2015 at 10:37:48PM +0100, Bart wrote:
> On 11/11/15, Marco van de Voort  wrote:
> 
> > Ok, I plan finalizing and committing the trect stuff in the coming week.
> 
> Should these be merged to 1.4 fixes branch?

If you want to run 1.4 with trunk yes.

It won't be in 3.0.0, and even 3.0.0 fixes branch is to be decided when
the impact is clearer.

So for now FPC trunk only, and see how much dust it throws up.

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

Re: [Lazarus] kill a running program by name

2015-11-13 Thread fecske fecske 
Sorry!
Windows 7 and later

On Fri, Nov 13, 2015 at 12:06 PM, Mark Morgan Lloyd
 wrote:
> fecske fecske wrote:
>>
>> How can I kill a running program (proces,task) by name?
>
>
> Depends on operating system.
>
> --
> Mark Morgan Lloyd
> markMLl .AT. telemetry.co .DOT. uk
>
> [Opinions above are the author's, not those of his employers or colleagues]
>
> --
> ___
> Lazarus mailing list
> Lazarus@lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus