TEAM-ADA Archives

Team Ada: Ada Programming Language Advocacy

TEAM-ADA@LISTSERV.ACM.ORG

Options: Use Classic View

Use Proportional Font
Show Text Part by Default
Show All Mail Headers

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

Print Reply
Fri, 24 May 2002 09:50:20 +0530
text/plain (16 lines)
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.

ATOM RSS1 RSS2