Сообщество Чайников

Вопрос

Хочу написать такой код: берем текст (путь к файлу) из TextEdit и запускаем указанный файл. В результате запуска программа выдает ошибку. Подозреваю, что из edit текст копируется как string, а в параметрах запуска ShellExecute требуется PChar. Помогите пожалуйста разобраться или предложите более простой выход из этой ситуации. procedure TForm1.bbRunClick(Sender: TObject); var h:hWnd; i:byte; begin ShellExecute(h,'open',edit1.text,nil,'',SW_RESTORE); end; end;

Ответ

procedure TForm1.bbRunClick(Sender: TObject);
var h:hWnd;
i:byte;
begin
ShellExecute(h,'open',PChar(edit1.text),nil,SW_RESTORE);
end;
end;
winexec('путь', SW_HIDE); Или SW_SHOW.