push SW_HIDE
push eax
call ShowWindow
Надо спрятать окно!
В Delphi хочу сделать так, чтобы вначале загрузки программы окна не было! Ну, как в Ассемблере:
Вот в Delphi:
Код:
Вот в Delphi:
Код:
procedure TForm1.FormCreate(Sender: TObject);
var
handle: hwnd;
begin
//Form1.Hide(); не помогает!
handle := GetWindow(0,GW_OWNER); // ТОЖЕ
ShowWindow(handle,SW_HIDE); // НЕ РАБОТАЕТ!
end;
var
handle: hwnd;
begin
//Form1.Hide(); не помогает!
handle := GetWindow(0,GW_OWNER); // ТОЖЕ
ShowWindow(handle,SW_HIDE); // НЕ РАБОТАЕТ!
end;
1. попробуй ShowWindow(Form1.Handle, sw_hide);
2. Form1.Visibility:=false
2. Form1.Visibility:=false
Нужно во первых установить значение Visible главной формы в false, а во вторых нужно прописать в файле проекта, где WinMain в самом начале Application.ShowMainForm=false
Спасибо! Всё получилось!
Да?Можно было вообще в проекте(в файле .dpr) вставить начальный код(который должен работать без окна),а потом уже Form.Initialize/Create или как там(давно на Delphi не работал)
