Uncloseable App.

[Jake012345]

Hello!

How can I deny to user to destroy the form?
I did it:

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

1. procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
2. begin
3.   if PasswordBox('Authentication','Type the password:')<>'asd' then
4.   CloseAction:=caNone;
5. end;
6.  

But they can Destroy it with taskmanager. And it calls the OnDestroy but there is no closeaction..

[jamie]

let them destroy it...

You set a flag somewhere.. .and if this flag isn't set when the destroy happens then invalidate anything that happen...

[Jake012345]

Can I execute a restarter .bat (or anything) from OnDestroy?

[jamie]

That type of program is not welcomed in most places...

Although I know how to do it I won't... Sorry..

[Raul_ES]

I use the onFormCloseQuery event the following way (adapt to your needs)t:

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

1. procedure TmainForm.FormCloseQuery(Sender: TObject; var CanClose: boolean);
2. begin
3.   if ServerOn = True then // or if authenthicate()='user whoever is banned for closing' not in "vip user list"
4.   begin
5.   CanClose := False;
6.   ShowMessage('Close server first!')
7.   end else if ServerOn = False then
8.   begin
9.   CanClose := False;
10.   uEButton_quitClick(nil) // procedure to terminate the application, close files, databases, sockets...
11.   end;
12. end;

[jamie]

Yeah but he's trying to force the app to stay alive no matter what.. That type of program is not welcomed where I come from.

[Jake012345]

I write it to Deny the access to selected files with open those with TFileStream.create(...,fmDeny).
I trying to do my idea in an older topic.

Yeah but he's trying to force the app to stay alive no matter what.. That type of program is not welcomed where I come from.

If you know an easier way I'll happy.

[Jake012345]

And sure I want to run it without window, (at most with TrayIcon) so the taskmanager is the biggest problem.

form the topic:

if someone using the same computer corrupted the files either by accident or on purpose.

So not enough a warning that says 'Hey! that's not yours so keep away yourself!'.

[ASBzone]

Hello!

How can I deny to user to destroy the form?
I did it:

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

1. procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
2. begin
3.   if PasswordBox('Authentication','Type the password:')<>'asd' then
4.   CloseAction:=caNone;
5. end;
6.  

But they can Destroy it with taskmanager. And it calls the OnDestroy but there is no closeaction..

Can you give us some more information about what this application is supposed to be accomplishing?

It is very hard to create processes that cannot be killed by Task Manager (or the appropriate API), and typically, Windows reserves that ability to key kernel level processes.

Understanding why you are trying to do this -- in detail -- will help you to get better suggestions and solutions (or alternative ways of addressing your actual problem).

[Jake012345]

Maybe Useless!

Little bit complicated...
So you can make a program what starts on startup and auto load in all files in the folder.
And now the files are unmodifiable until the program runs. (On the OnClose action, you can make a restart procedure (for the task manager))
The Reader application can send data for this application to motivate that to makes the current file free.

I hope it can be worked!

In the linked Topic

[Jake012345]

Here's the 'first bone':

[Raul_ES]

And sure I want to run it without window, (at most with TrayIcon) so the taskmanager is the biggest problem.

form the topic:

if someone using the same computer corrupted the files either by accident or on purpose.

So not enough a warning that says 'Hey! that's not yours so keep away yourself!'.

Maybe you want to create a system daemon or a Windows service running in the background? Only the administrator or certain allowed users will be able to terminate the process.
You then can create a visual app (or a small tray icon) to communicate with such service.

[RAW]

...now the files are unmodifiable until the program runs.

Those things should be handled with a user account, put the files inside a folder that can be read but not changed by the user ....

@Raul_ES
this is easier:

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

1. if ServerOn Then
2. if Not ServerOn Then

[Raul_ES]

Easier and cleaner 

thanks RAW

[Raul_ES]

Yeah but he's trying to force the app to stay alive no matter what.. That type of program is not welcomed where I come from.

you mean even if a root user or administrator kills the app process?