Как программно запустить vbs файл

@Seruch · Регистрация: 11.11.2020

Author24 — интернет-сервис помощи студентам

Приветствую. Мне надо чтобы vbs файл запускался по нажатию кнопки в программе

Нашел на форуме код:

C++

HWND hWnd;
AnsiString path = IncludeTrailingBackslash("File");
AnsiString file_name = path+"File.vbs";
if (FileExists(file_name)) {
  ShellExecute(this->hWnd,"open",file_name,0,0,SW_SHOWNORMAL);
else
  ShowMessage("Нет такого файла");

Но выдаёт ошибку на строке

C++

1	ShellExecute(this->hWnd,"open",file_name,0,0,SW_SHOWNORMAL);

No member named hWnd in Tform1

Помогите пожалуйста!

@volvo · 19.12.2022, 12:18

this->Handle

@Seruch · 19.12.2022, 12:42 **[ТС]**

volvo,

C++

1	ShellExecute(this->Handle,"open",file_name,0,0,SW_SHOWNORMAL);

no matchin function for call ShellExecuteW

@D1973 · 19.12.2022, 14:03

1. А Вы уверены, что путь в переменной file_name у Вас формируется правильный?
2. Третий параметр функции имеет тип LPCSTR, поэтому требуется преобразование

C++

1	ShellExecute(Handle, "open", file_name.c_str() ,0, 0, SW_SHOWNORMAL);

3. Свою версию Билдера Вы не озвучили, а зря. В юникодных версиях перед вторым параметром надо L добавить: L"open"

@Seruch · 19.12.2022, 14:42 **[ТС]**

D1973, 1. Да, правильно. Но даже по идеи если бы не правильно, то оно не выдавало бы именно ошибку. А просто запускалась программа и не могла запустить файл.
3. C++ Builder 10.4

Все еще есть ошибка
no matchin function for call ShellExecuteW

Добавлено через 2 минуты
гуглил, пишут что нужно добавить include <windows.h>, но у меня еще давно это есть

Добавлено через 9 минут
Нашел это. Вроде норм работает

C++

1 2	ShellExecute(NULL, _T("Open"), _T("C:\\Program Files\\My Prgram\\test1.vbs"), NULL, NULL, SW_SHOWNORMAL);

@D1973 · 19.12.2022, 14:42

Сообщение от Seruch

Все еще есть ошибка

Я не вижу, что делаете Вы, а у меня ошибок нет...

@D1973 · 19.12.2022, 14:45

Сообщение от Seruch

"C:\\Program Files\\My Prgram\\test1.vbs"

Сообщение от Seruch

IncludeTrailingBackslash("File");

Что общего между этими двумя путями? Ничего! Но Вы утверждали, что путь правильный...

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,432 Записей в блоге: 8
	19.12.2022, 12:18	2
	`this->Handle` 1

@D1973 Модератор 9267 / 6045 / 2380 Регистрация: 21.01.2014 Сообщений: 25,825 Записей в блоге: 3
	19.12.2022, 14:42	6
	Сообщение от Seruch Все еще есть ошибка Я не вижу, что делаете Вы, а у меня ошибок нет... Миниатюры 0

@D1973 Модератор 9267 / 6045 / 2380 Регистрация: 21.01.2014 Сообщений: 25,825 Записей в блоге: 3
	19.12.2022, 14:45	7
	Сообщение от Seruch "C:\\Program Files\\My Prgram\\test1.vbs" Сообщение от Seruch IncludeTrailingBackslash("File"); Что общего между этими двумя путями? Ничего! Но Вы утверждали, что путь правильный... 0