🚀 go-pugleaf

Hans Galema wrote:

> But I still advise you to make the startapp. That is definitely
> less work.

As I thougth that that was a good idea I constructed one myself.
Just two TEdit's for application path and number of clients to open.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   AnsiString FileName = Edit1->Text;

   int maxclients = StrToInt ( Edit2->Text );

   int clientnr = -1;
   while ( ++clientnr < maxclients )
     {
     AnsiString UserName = "sipahi" + IntToStr ( clientnr );

     HINSTANCE hinstance = ShellExecute (
         NULL
         ,"open"
         ,FileName.c_str()
         ,UserName.c_str()
         ,NULL
         ,SW_SHOWNORMAL
         );

     if ( (int)hinstance <= 32 )
      break;
     }
}

But then if there are so many clients: how to close them ?

My clients put the filename in their caption besides other things.

To close them:

void __fastcall TForm1::Button2Click(TObject *Sender)
{
  AnsiString FileName = ExtractFileName ( Edit1->Text );

  AnsiString ClientCaption = ChangeFileExt ( FileName, "" );

  HWND hwnddesktop = GetDesktopWindow();
  HWND hwnd = FindWindowEx(hwnddesktop, 0, 0, 0);

  while( hwnd )
   {
    char buffer[128];

    GetWindowText(hwnd, buffer, sizeof(buffer));

    if ( buffer [0] )
      {
      if ( AnsiString ( buffer ).Pos ( ClientCaption ) )
         SendMessage ( hwnd, WM_CLOSE, 0, 0 );

      // that was case sensitive!
      }

    hwnd = FindWindowEx(hwnddesktop, hwnd, 0, 0);
   }
}

Hans.