>>111
ret = ShellExecute(0, "", App.Path & "\test.exe", "> test.txt", App.Path, SW_HIDE)