Código Delphi [-]procedure TForm1.FormCreate(Sender: TObject); begin CreateMutex(nil, False, 'ClubDelphi'); if GetLastError = 0 then WinExec(PChar(ParamStr(0)), SW_SHOWNORMAL); end;
procedure TForm1.FormCreate(Sender: TObject); begin CreateMutex(nil, False, 'ClubDelphi'); if GetLastError = 0 then WinExec(PChar(ParamStr(0)), SW_SHOWNORMAL); end;