Forum Discussion

1222tmiller's avatar
1222tmiller
Occasional Contributor
14 years ago

How do I control "Notepad" that my program opens.

If you have a problem connecting to our system, we automatically do an IP Trace and show it in Notepad.  For the test script to complete, I need to close it.  (using Delphi Script). How do I ge...
Dmitry_Nikolaev's avatar
Dmitry_Nikolaev
Staff
14 years ago

Hello Tom,





I recommend that you use the Sys.WaitProcess method to wait for a process. The following script waits for the Notepad process and closes it without saving the changes.







procedure Test1;

  var notepad : OleVariant;

  var wndNotepad : OleVariant;

begin

  notepad := Sys.WaitProcess('Notepad', 10000);

  if( notepad.Exists) then 

  begin

     wndNotepad := notepad.Window('Notepad');

     wndNotepad.Close();

     if (notepad.WaitWindow('#32770', 'Notepad').Exists) then

       notepad.WaitWindow('#32770', 'Notepad').Keys('n');

  end;

end;