Приветствую, подскажите пожалуста что здесь не так?
Код:
var
str:TStringList;
i:integer;
begin
str:=TStringList.Create;
str.LoadFromFile('prompt.txt');
for i:= 0 to str.Count - 1 do
WinExec(PANSIChar(str.Strings[i]),SW_SHOW);
Код выполняется но команды не выполняются что прописаны в prompt.txt