file-open-find-exe application

[Lionheart008]

hello petr.

perhaps you can check this version, if it's more elegant ?

' Empty GUI script created on 12-19-2009 18:25:02 by frank (ThinAIR)
'-- test it! 

Uses "ui", "os", "console"
 
 Dim startingApp,f As Long
 OS_ShellExecute ( "open", "excel.exe", "", "", %OS_WNDSTYLE_NORMAL )   
 startingApp = WIN_GetActive                        
 WIN_SetForeground(startingApp)   
 
 Do While startingApp = %TRUE  
   WIN_FindByTitle("Excel", %WIN_FINDTITLESTART)  'f=
 Loop 
 PrintL,"excel found! " + Str$(startingApp)           
  
 SendKeys ("{ENTER}1234567 898238 4422.58 8934 Angelina Jolie{ENTER},12")
 WaitKey
 
 '-- you can try to use alternative -------------------------------------- 
 'OS_ShellExecute ( "open", "winword.exe", "", "", %OS_WNDSTYLE_NORMAL )
  'SendKeys ("1242678 898238 4422.58 8934 {ENTER},22")          
 '------------------------------------------------------------------------

nice day, thanks, frank lion"ice"head