Program not terminating on Windows 10

[scamb09]

I understand.

I'm creating a LPK similar to UniqueInstance, with more options, like instances counting and limit them to a license, stop the first and continue the job from next instances, and some more useful things for me.

If your problem persists, maybe I can finish my package including a solution for your case.

Please, sorry by my poor english.

How easy was that, problem solved!

Many thanks for this simple to use component, and if you do finish your version I will be interested.

Again, many thanks to you all.

scamb09.

[scamb09]

You could try using SendMessageTimeout().

Code: Pascal  [Select][+][-]

1. var
2.   Dummy: DWORD;
3. //...
4.   if GetLastError = ERROR_ALREADY_EXISTS then
5.   begin
6.     //Windows.SendMessageTimeout(HWND_BROADCAST, AppMessage, 0, 0);
7.     Windows.SendMessageTimeout(HWND_BROADCAST, AppMessage, 0, 0, SMTO_NORMAL or SMTO_ABORTIFHUNG, 1000, Dummy);
8.     Exit;
9.   end;

Fantastic, this also works, you guys are great, now I have two solutions.

Many thanks all.

scamb09.