Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
How to shutdown windows in Delphi 7?
- Thread starter Spent
- Start date
Well if you call (with executefile for example)
'C:\windows\rundll.exe' with parameters 'user.exit.exitwindows' that will shutdown a windows 98 system. there may be a more universal and neater way though using an API Call or a regisry hack.
I would need to look at the docs.
Steve:
A Delphi Programmer
A Feersum Endjinn indeed
'C:\windows\rundll.exe' with parameters 'user.exit.exitwindows' that will shutdown a windows 98 system. there may be a more universal and neater way though using an API Call or a regisry hack.
I would need to look at the docs.
Steve:
A Delphi Programmer
A Feersum Endjinn indeed
The following code will bring up the shutdown dialog box:
procedure TForm1.Button1Click(Sender: TObject);
var
shell: Variant;
begin
shell := CreateOleObject('Shell.Application');
shell.ShutdownWindows;
end;
Remember to also add 'StdCtrls' and 'ComObj' to your uses.
British.
procedure TForm1.Button1Click(Sender: TObject);
var
shell: Variant;
begin
shell := CreateOleObject('Shell.Application');
shell.ShutdownWindows;
end;
Remember to also add 'StdCtrls' and 'ComObj' to your uses.
British.
whosrdaddy
Vendor
look here for a complete answer :
--------------------------------------
What You See Is What You Get
--------------------------------------
What You See Is What You Get
DelphiAaron
Programmer
this function exsists in d5 its probably there in 7 as well.
ExitWindowsEx(EWX_SHUTDOWN,0);
Aaron Taylor
John Mutch Electronics
ExitWindowsEx(EWX_SHUTDOWN,0);
Aaron Taylor
John Mutch Electronics
- Status
Similar threads
- Locked
- Question