Anti End Task, not WM_Close?

[rollstuhlfahrer]

Zitat von user:

edited :

Code:

SM_BASE = WM_USER +  1736 ;
SM_SHUTTINGDOWN = SM_BASE +2;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=false;
if (GetSystemMetrics (SM_SHUTTINGDOWN) <> 0) then
CanClose:=false;
end;

The code is right?

Can't be right. You don't set CanClose to true in any case. It has to be

Delphi-Quellcode:

if (GetSystemMetrics (SM_SHUTTINGDOWN) <> 0) then
CanClose := true;

Bernhard

[user]

Zitat von rollstuhlfahrer:

Can't be right. You don't set CanClose to true in any case. It has to be

Delphi-Quellcode:

if (GetSystemMetrics (SM_SHUTTINGDOWN) <> 0) then
CanClose := true;

Bernhard

Still not working. I also change the value of SM_SHUTTINGDOWN to 2000 (referenced from MSDN). I am using 7 32 bit.

[Luckie]

And what's the use of it? If I want to end your application I just will call ProcessTerminate and that's it. Even a normal user cab do this. He just has to switch to the process panel of the taskmanager. Users ain't silly.

[user]

Zitat von Luckie:

And what's the use of it? If I want to end your application I just will call ProcessTerminate and that's it. Even a normal user cab do this. He just has to switch to the process panel of the taskmanager. Users ain't silly.

I already hook TerminateProcess.

[rollstuhlfahrer]

Why hook ProcessTerminate? - You just need to hook OpenProcess.
But why do you do so? - Just create a process with Admin-Account and don't let the user get Admin-Rights and your process acts like it should, cause a Non-Admin can't terminate Processes from an Admin-Account. Or create a service.

Bernhard

[user]

Zitat von rollstuhlfahrer:

Why hook ProcessTerminate? - You just need to hook OpenProcess.
But why do you do so? - Just create a process with Admin-Account and don't let the user get Admin-Rights and your process acts like it should, cause a Non-Admin can't terminate Processes from an Admin-Account. Or create a service.

Bernhard

Yes, hooking XxOpenProcess maybe better than hooking XxProcessTerminate. I'll implement that later. No, user can use my app in Admin-Account. My problem is user can kill my app from end task.

[rollstuhlfahrer]

Why do you need a not-closable Application?

Bernhard

[Luckie]

If I want to kill your application and you will not allow ist, I just pull the plug after the administrator has removed your application from auto run. Or can you prevent the user from pulling the plug with your application?