TEAM-ADA Archives

Team Ada: Ada Programming Language Advocacy


Options: Use Classic View

Use Monospaced Font
Show Text Part by Default
Condense Mail Headers

Topic: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Content-Transfer-Encoding: 7bit
Sender: "Team Ada: Ada Advocacy Issues (83 & 95)" <[log in to unmask]>
Content-Type: text/plain; charset="iso-8859-1"
From: David Botton <[log in to unmask]>
Date: Fri, 24 May 2002 10:13:56 -0400
MIME-Version: 1.0
Reply-To: David Botton <[log in to unmask]>
Parts/Attachments: text/plain (31 lines)
Likely your application does not have sufficient permissions to do this.

You need to first enable the SE_SHUTDOWN_NAME permission on the
application's process.

David Botton

----- Original Message -----
From: <[log in to unmask]>
To: <[log in to unmask]>
Sent: Friday, May 24, 2002 12:20 AM

> with Win32.Winreg;
> use  Win32.Winreg;
> procedure SystemShut is
>    Issucess      : Win32.BOOL;
>     begin
>       Issucess:=InitiateSystemShutdown
>                   (null,null,0,WIN32.FALSE,WIN32.TRUE);
> end SystemShut;
> This programme is to initiate the system shut down, but the function is
> returning false, which means there is a error.
> Can anyone fix.