void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString Programa = "C:\\WINDOWS\\NOTEPAD.EXE";
AnsiString Wname = "Sin título - Bloc de notas";
char WinName[80];
char WinClass[80];
//HandleProg esta declarada dentro de la clase de la forma (HWND HandleProg;)
ShellExecute(HandleProg,"open", Programa.c_str() , NULL ,NULL,SW_SHOWNORMAL );
while(1)
{
HandleProg = FindWindow( 0,Wname.c_str() );
if( HandleProg != NULL )
break;
}
//Esto es solo para ver el nombre de la clase y el titulo del programa
GetWindowTextA( HandleProg ,WinName,sizeof( WinName )-1 );
GetClassNameA( HandleProg ,WinClass,sizeof( WinClass ) - 1 );
Label_WinClass->Caption = WinClass;
Label_WinName->Caption = WinName;
}
//---------------------------------------------------------------------------