Скрытие формы приложения

[DarkSmile]

Здравствуйте! У меня такая задача, есть программа имеющая форму и несколько кнопок. Мне нужно запустить эту программу в скрытом режиме, тобиш запустить и скрыть форму дабы об существовании проги было известно только в диспетчере, но иметь полный доступ ко всем ее компонентам. Форма появляется не сразу и по моему не является главной. Пробовал сделать так:

CreateProcess(PChar('system.exe'), nil, nil, nil, true, CREATE_NO_WINDOW, nil, nil, SI, PI);
  repeat h := FindWindowA(nil, 'Files explorer');
  until h <> 0;
  repeat until IsWindowVisible(h);
  ShowWindow(h, SW_HIDE);

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

[beegl]

Скрытие формы приложения

  private
    { Private declarations }
    procedure AppMinimize(Sender: TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.AppMinimize(Sender: TObject);
begin
  ShowWindow(Application.Handle, SW_HIDE);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    if Owner is TWinControl then         // Owner might be of type TService
    if Application.MainForm <> nil then
    begin
      Application.MainForm.Visible := False;
    end;
  Application.OnMinimize:=AppMinimize;
  Application.OnRestore:=AppMinimize;
  Application.Minimize;
  AppMinimize(@Self);
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
    if IsWindowVisible(Application.Handle) then
    ShowWindow(Application.Handle, SW_HIDE);
end;

[DarkSmile]

Дак в том то и дело, что скрывать нужно не мою программу.

[Stilet]

CREATE_NO_WINDOW
0x08000000



The process is a console application that is being run without a console window. Therefore, the console handle for the application is not set.

This flag is ignored if the application is not a console application, or if it is used with either CREATE_NEW_CONSOLE or DETACHED_PROCESS.

Так что этим не скрыть.
А вот зато в STARTUPINFO насколько я понимаю есть поле wShowWindow, куда можно прописать SW_HIDE, чтоб окно не показывалось. Вот эту фишку ты прорули подробнее.

[DarkSmile]

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

Так что этим не скрыть.
А вот зато в STARTUPINFO насколько я понимаю есть поле wShowWindow, куда можно прописать SW_HIDE, чтоб окно не показывалось. Вот эту фишку ты прорули подробнее.

Такое работает только с формами дельфи, а мне нужно скрыть форму приложения написанного на сях. Да и при таком раскладе теряется доступ к форме.

[саша40]

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

Такое работает только с формами дельфи, а мне нужно скрыть форму приложения написанного на сях. Да и при таком раскладе теряется доступ к форме.

Неужели. Pasckal в какой-то степени является родственником VS С.

[Человек_Борща]

Такое работает только с формами дельфи, а мне нужно скрыть форму приложения написанного на сях. Да и при таком раскладе теряется доступ к форме.

Не пишите ерунды. На уровне API все программы равны, в части окон уж точно. Если там не DirectX конечно.
Если там Win-окно, CreateProcess его скроет.

Неужели. Pasckal в какой-то степени является родственником VS С.

Pascal скорее дедушка VS C.