PDA

Ver la Versión Completa : Diálogo salir de Windows - obtener


marcoszorrilla
26-06-2006, 00:43:51
interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,ShellApi,ShlObj;

procedure ExitWindowsDialog(Handle: THandle); stdcall; external 'shell32.dll' index 60; //API declaration
....
procedure TForm1.Button1Click(Sender: TObject);
begin
ExitWindowsDialog(Handle);
end;