Código Delphi [-]procedure TForm1.mnuNewUserClick(Sender: TObject); begin WinExec(PChar(ParamStr(0)), SW_SHOW); // Cuidado con el control de instancias múltiples ExitProcess(0); // Usa algo menos drástico end;
procedure TForm1.mnuNewUserClick(Sender: TObject); begin WinExec(PChar(ParamStr(0)), SW_SHOW); // Cuidado con el control de instancias múltiples ExitProcess(0); // Usa algo menos drástico end;