IF CONFIRM('Do you want to Query Service?') THEN BEGIN IF ISCLEAR(wsh) THEN CREATE(wsh); wsh.Run('cmd.exe /c SC \\'+"Server Name"+' Query '+"Distribution Server"+' > C:/Temp/query.txt'); SLEEP(3000); wsh.Run('cmd.exe /c findstr "SERVICE_NAME STATE" C:\temp\query.txt >C:/Temp/Service_Query.txt'); SLEEP(3000); TxtFile.OPEN('c:\Temp\Service_Query.txt'); TxtFile.CREATEINSTREAM(StreamIn); WHILE NOT StreamIn.EOS DO BEGIN StreamIn.READTEXT(Buffer); //Do some processing. MESSAGE('Stream Reading: %1', Buffer); END; TxtFile.CLOSE; END;
Comments
Did you try to use the parameter intWindowStyle as described here
http://msdn.microsoft.com/en-us/library/d5fk67ky%28v=vs.84%29.aspx
Options 0 or 7 for intWindowStyle should work.
I hope this helps.
Thanks.