83466 |
2) , : [Code] procedure TMAIN.controlsClick(Sender: TObject); Var Men :HMenu; Hnd,HndDialog,HndControl,HndAsc,HndBtn :HWnd; ...code:
procedure TMAIN.runClick(Sender: TObject); begin MAIN.Close; ShellExecute(Application.Handle,PChar('open'),PChar('programpath\Start.exe'),nil,nil,SW_SHOW) end;