Start HIDE and Show
Posted: Thu Jan 30, 2025 11:40 am
Hi, how do I make this work correctly?
launching
In the book, I added a timer to display the form, it doesn't work that way.
launching
Code: Select all
ShellExecute(Form1.Handle, '', 'cmd.exe', ' /c start SimpleOSRBrowser.exe', ExtractFilePath(paramstr(0)), SW_HIDE);

Code: Select all
procedure TForm1.Timer2Timer(Sender: TObject); //5s
begin
Timer2.Enabled:= False;
Application.ShowMainForm:= True;
ShowWindow(Application.Handle, SW_SHOWNORMAL);
end;