Программа пропадает с taskbat'a.

[Winexcel]

Сообственно такая ситуация: Есть главная форма(GuardForm), защита софта, если софт активирован то GuardForm выполняет следующий код: MainForm.show
GuardForm.Hide
Сообственно ероблема что когда прячется главная форма(GuardForm) то программа исчезает с таск бара. Кто знает как исправить?

[FaTaL]

Тогда не пряч окно, а сворачивай.

[blackstrip]

да, окно надо minimize ) а панель задач - не taskbat, а task baR

[Winexcel]

Сообщение от blackstrip

да, окно надо minimize ) а панель задач - не taskbat, а task baR

Писал с телефона, прошу прощения.

[Winexcel]

А можно ли как-то сделать перекулючение приоритета главной формы, ну была GuardForm а стала MainForm, просто в таск баре когда наводишь на иконку, высвечивается не то что нужно. Да и из за я не могу свернуть программу в трей.

[spirit-ua]

Сообщение от Winexcel

А можно ли как-то сделать перекулючение приоритета главной формы, ну была GuardForm а стала MainForm, просто в таск баре когда наводишь на иконку, высвечивается не то что нужно. Да и из за я не могу свернуть программу в трей.

Я бы делал по другому: при запуске показывал главное окно и сразу же поверх него окно с проверкой, если все гуд то закрывал окно проверки, если нет - закрывал программу ну или что там задумано

[northener]

Сообщение от Winexcel

Сообственно такая ситуация: Есть главная форма(GuardForm), защита софта, если софт активирован то GuardForm выполняет следующий код: MainForm.show
GuardForm.Hide

А почему бы не сделать это в файле проекта?

program MyProgram;

uses
  Forms, Controls,
  uMainForm in 'uMainForm.pas' {MainForm},
  uGuardForm in 'uGuardForm.pas' {GuardForm}
  //Any other forms here
  ;

{$R *.res}

begin
  GuardForm:=TGuardForm.Create(Application);
  if GuardForm.ShowModal = mrOK then begin
    Application.Initialize;
    Application.CreateForm(TMainForm, MainForm);
    ...
    Application.Run;
  end;
end.

[Winexcel]

Сообщение от spirit-ua

Я бы делал по другому: при запуске показывал главное окно и сразу же поверх него окно с проверкой, если все гуд то закрывал окно проверки, если нет - закрывал программу ну или что там задумано

Открываем любой hex редактор, нопим вызов формы, получаем программу бесплатно

[Winexcel]

Сообщение от northener

А почему бы не сделать это в файле проекта?

program MyProgram;

uses
  Forms, Controls,
  uMainForm in 'uMainForm.pas' {MainForm},
  uGuardForm in 'uGuardForm.pas' {GuardForm}
  //Any other forms here
  ;

{$R *.res}

begin
  GuardForm:=TGuardForm.Create(Application);
  if GuardForm.ShowModal = mrOK then begin
    Application.Initialize;
    Application.CreateForm(TMainForm, MainForm);
    ...
    Application.Run;
  end;
end.

Все проверки идут в

procedure TGuardForm.FormCreate(Sender: TObject);

А делать проверку в кнопке...Это не очень хорошо, да и не удобно пользователю. Перепробовал уже много действий с проектом:
Делал так:

	Application.Initialize;
	Application.CreateForm(TGuardForm, GuardForm);
	Application.CreateForm(TMainForm, MainForm);
	Application.Run;

И так:
В проекте:

GuardForm:=TGuardForm.Create(Application);
	Application.Initialize;
        {}
	Application.Run;

В guard form если всё удачно прошло то:

Application.CreateForm(TMainForm, MainForm);
guardform.Hide;

Сообсвтенно и пробовал в: PROJECT -> OPTIONS -> FORMS -> Свойство MainForm = Mainform
В AutoCreate-Forms на первом месте в списке стоит GuardForm.
Всё без результатов, после исчезновения GuardForm(GuardForm.hide) с таскбара - либо пропадает значок, либо форма не корректно разворачивается, а именно: если форму свернуть не через таскбар(двойным кликом по иконки в таскбаре) то форма сворачивается на рабочем столе в таком виде:


И развернуть ее можно только с этой формы, с таскбара при клике, тупо передается фокус на эту форму, вот же не задача

[Winexcel]

Сообственно помогло следующее:
Если изменить указатель Application.MainForm на другую форму, то всё запашет как надо: реализация:

var
p:pointer;
begin
	Pointer(p) := @Application.MainForm;
	Pointer(p^) := MainForm;