Код:
procedure TConfigForm.FormCreate(Sender: TObject);
begin
Application.OnMinimize:= AppMinimize;
Application.OnRestore := AppMinimize;
Application.Minimize;
AppMinimize(@Self);
end;
procedure TConfigForm.AppMinimize(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE);
end;
©Drkb::00459
__________________
Помогаю платно.
Помогаю иногда бесплатно.
|