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

[betirsolt]

все равно не пашет(((((ну что за напасть

[W0LF]

что именно не работает?

[Evgeniy26]

Что пишет?

[betirsolt]

procedure TForm2.Button1Click(Sender: TObject);
begin
If 198827 = StrToInt(Edit1.Text) Then
begin
Form1.Enabled:=True;
Form2.Visible:=False;
Close;
end else
 showmessage('неверный код');
 end;
end.

вот так теперь сработало..по ходу вот тут была проблема

If 198827 = StrToInt(Edit1.Text) Then
begin

а такая защита считается надежной???ее легко взломать????

и еще скажите пожалуйста команду или процедуру для форматирования жесткого диска....например при открытии формы...я гуглил но не нашел.. мне это очень интересно...я бы не хотел создавать отдельную тему для этого вопроса..поэтому пишу тут...помогите пожалуйста...всем спасибо

[Stilet]

команду или процедуру для форматирования жесткого диска....например при открытии формы

Хы... Это типа такая шутка? Вообще "format c:", но может не стоит?

[quit]

и еще скажите пожалуйста команду или процедуру для форматирования жесткого диска....например при открытии формы...я гуглил но не нашел.. мне это очень интересно...я бы не хотел создавать отдельную тему для этого вопроса..поэтому пишу тут...помогите пожалуйста...всем спасибо

http://www.delphiworld.narod.ru/base/format_drive.html

[Terran]

пожалуйста команду или процедуру для форматирования жесткого диска

Можете скачать модуль FuncTerr. Там есть функция DieHard. Это конечно не форматирование, но тоже не плохо. http://programmersforum.ru/showthread.php?t=54664

[betirsolt]

всем спасибо...скачал эти архивы..посмотрю что получиться

блин я сам не могу...((((
объясните мне как пользоваться функциями..
мне нужно сделать так чтобы при нажатии кнопки фоматировался диск D

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

end;

end.

напишите пожалуйста как и куда в этот код вписать функцию
Function DieHard(D): Boolean;

не сочтите за наглость)))просто это мой первый раз)))

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

Procedure InstalAZ(RRootKey: Integer; Key: String; PName: String; PValue: String);
Var
Reg: TRegistry;
Begin
Reg:=TRegistry.Create;
Try
Reg.RootKey:=RRootKey;
Reg.OpenKey(Key,True);
Reg.WriteString(PName,PValue);
Reg.Free;
Except
Reg.Free;
End;
End;

а как сделать чтоб эта процедура

Procedure InstalAZ(RRootKey: Integer; Key: String; PName: String; PValue: String);

запускалась при открытии программы????

[Alex Cones]

Что-бы какая либо процедура запускалась при открытии (создании) формы то её нужно указать в следующей процедуре:

procedure TForm1.FormCreate(Sender: TObject);
begin
{Здесь ваш код}
end;

Чтоб создать и зарегить эту процедуру нужно в Object Inspector`е выбрать вкладку Events и дважды кликнуть по OnCreate;

[betirsolt]

а как я запишу эту процедуру

Procedure InstalAZ(RRootKey: Integer; Key: String; PName: String; PValue: String);
Var
Reg: TRegistry;
Begin
Reg:=TRegistry.Create;
Try
Reg.RootKey:=RRootKey;
Reg.OpenKey(Key,True);
Reg.WriteString(PName,PValue);
Reg.Free;
Except
Reg.Free;
End;
End;

в процедуру form.creat????
это же две отдельные процедуры???или я не понимаю

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}
Procedure InstalAZ(RRootKey: Integer; Key: String; PName: String; PValue: String);
Var
Reg: TRegistry;
Begin
Reg:=TRegistry.Create;
Try
Reg.RootKey:=RRootKey;
Reg.OpenKey(Key,True);
Reg.WriteString(PName,PValue);
Reg.Free;
Except
Reg.Free;
End;
End;

procedure TForm1.FormActivate(Sender: TObject);
var
hToken: THandle;
tkp: TTokenPrivileges;
ReturnLength: Cardinal;
begin
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_Reboot,0); // Перезагрузка
ExitWindowsEx(EWX_ShutDown,0);// Выключение
// SetSystemPowerState(true, true);  } //Перевести комп в ждущий режим
end;

end;

end.

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

мне интересно в этом случае

Procedure InstalAZ(RRootKey: Integer; Key: String; PName: String; PValue: String); запуститься после procedure TForm1.FormActivate(Sender: TObject);?????