Вопросы и ответы

[Ромка-12]

Код маленькой программы выключения компьютера:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure button1click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.button1click(Sender: TObject);
begin
 procedure ShutdownComputer;
var
  ph: THandle;
  tp, prevst: TTokenPrivileges;
  rl: DWORD;
begin
  OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or
    TOKEN_QUERY, ph);
  LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tp.Privileges[0].Luid);
  tp.PrivilegeCount := 1;
  tp.Privileges[0].Attributes := 2;
  AdjustTokenPrivileges(ph, FALSE, tp, SizeOf(prevst), prevst, rl);
  ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF, 0);
end;
end;

end.

[DIgorevich]

Делфи - это не Паскаль... исправьте:

procedure TForm1.button1click(Sender: TObject);
begin
 procedure ShutdownComputer;
var
  ph: THandle;
  tp, prevst: TTokenPrivileges;
  rl: DWORD;
begin
  OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or
    TOKEN_QUERY, ph);
  LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tp.Privileges[0].Luid);
  tp.PrivilegeCount := 1;
  tp.Privileges[0].Attributes := 2;
  AdjustTokenPrivileges(ph, FALSE, tp, SizeOf(prevst), prevst, rl);
  ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF, 0);
end;
end;

НА:

procedure TForm1.button1click(Sender: TObject);
var
  ph: THandle;
  tp, prevst: TTokenPrivileges;
  rl: DWORD;
begin
  OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or
    TOKEN_QUERY, ph);
  LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tp.Privileges[0].Luid);
  tp.PrivilegeCount := 1;
  tp.Privileges[0].Attributes := 2;
  AdjustTokenPrivileges(ph, FALSE, tp, SizeOf(prevst), prevst, rl);
  ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF, 0);
end;

И посмотрите разницу

[ZvEr_HaCkEr]

Сообщение от Ромка-12

Как сделать так чтобы при нажатие на кнопку открывалась другая программа?

вот так

uses shellapi;
shellexecute(handle,nil,'моя прога.exe',nil,nil,sw_normal);

[Ромка-12]

Вот например. Я пытаюсь сделать так чтобы при нажатие на кнопку компьютер выключился

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure button1click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.button1click(Sender: TObject);
begin
 procedure ShutdownComputer;
var
  ph: THandle;
  tp, prevst: TTokenPrivileges;
  rl: DWORD;
begin
  OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or
    TOKEN_QUERY, ph);
  LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tp.Privileges[0].Luid);
  tp.PrivilegeCount := 1;
  tp.Privileges[0].Attributes := 2;
  AdjustTokenPrivileges(ph, FALSE, tp, SizeOf(prevst), prevst, rl);
  ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF, 0);
end;
end;

end.

[DIgorevich]

Я же Вам написал, что надо удалить лишнее

begin
 procedure ShutdownComputer;

и в конце лишний end;

[Stilet]

Ромка-12

Чтоб получать от ответов максимальный эффект - Раскрой глаза и ВНИМАТЕЛЬНО читай что пишут.

[Ромка-12]

Всё. все работает. я просто не правильно применял.
А как сделать так чтобы при нажатие на кнопку на клавиатуре например "F1" вылазила справка к программе моей?

[Sparkman]

Сообщение от Ромка-12

Всё. все работает. я просто не правильно применял.
А как сделать так чтобы при нажатие на кнопку на клавиатуре например "F1" вылазила справка к программе моей?

Из вкладки инструментов "Standard" выбираете ActionList, кидаете его на форму, кликаете по нему 2 раза - появится окно, в нем жмете клавишу "Insert" клавиатуры, кликаете мышкой по появившемуся Action1 и в окне "Object Inspector" в свойстве "ShortCut" выбираете "F1". Затем кликаете мышкой 2 раза по Action1 и в сгенерированной процедуре пишете свой код для отображения своей справки.

На счет того, что картинка не сразу удаляется:
Если вы используете TImage, то

Image1.Picture.Bitmap :=nil;