Всем привет!!!

Пожалуйста помогите! Как с помощью программы запустить несколько экзэшников, например блокнот, калькулятор и Paint.
Т.е. я хотел сказать: "Какая команда это делает и возможно ли это?".

| Сообщение посчитали полезным:

ShellExecute например

| Сообщение посчитали полезным:

А синтаксис Можно? пожалуйста, например notepad.exe

| Сообщение посчитали полезным:

ShellExecute(NULL, "open", "notepad.exe", NULL, NULL, SW_SHOW);

| Сообщение посчитали полезным:

Не забудь ещё тогда в списке используемых модулей (uses) ShellAPI прописать.

| Сообщение посчитали полезным:

И так можно 3 строки прописать?
ShellExecute(NULL, "open", "notepad.exe", NULL, NULL, SW_SHOW);

А запущенное окно не станет активным?


| Сообщение посчитали полезным:

Sanya пишет:
А запущенное окно не станет активным?
С параметром SW_SHOWNA нет.

| Сообщение посчитали полезным:

Прописывать можно сколько угодно, только чтобы окно не стало активным, укажи SW_SHOWNA или SW_SHOWNOACTIVATE вместо SW_SHOW.

| Сообщение посчитали полезным:

Это получится типа вируса 5000 калькуляторов при запуске винды.

| Сообщение посчитали полезным:

Sanya пишет:
Это получится типа вируса 5000 калькуляторов при запуске винды

Да, серьезный будет вирус.
Когда я еще учился в школе, писал вирус под ДОС, он пароли Биоса менял при каждом перезапуске

| Сообщение посчитали полезным:

Спасибо, крутые перцы!!!


| Сообщение посчитали полезным:

Да уж. ShellExecute не знаем, а уже вирусы писать.
Тяжелый случай.

| Сообщение посчитали полезным:

Все равно, чего-то ему не хватает. Ксати у меня 6-й делфи.
Выдаёт ошибку типа несовместимость типов между 2 и 3 "NULL", а насчет того, что там не кавычки а ' ' - это по моему уму.

| Сообщение посчитали полезным:

Вообще-то, это у XaErO ошибка - в Delphi нужно не NULL, а nil писать.

| Сообщение посчитали полезным:

Правильно так будет:
ShellExecute(0, 'open', 'notepad.exe', nil, nil, SW_SHOWNA);

| Сообщение посчитали полезным:

Еще вот так можно:
ShellExecute(0, 'open', 'notepad.exe', '', '', SW_SHOWNA);

| Сообщение посчитали полезным:

deNULL, большое тебе спасибо!!!
Всем большое спасибо.

| Сообщение посчитали полезным:

А ещё, например, вот так :
[code]
var
si : TStartupInfo;
p : TProcessInformation;
begin
FillChar(Si, SizeOf(Si) , 0);
Application.Minimize;
CreateProcess(nil,'notepad.exe',nil,nil,False,Create_default_error_mod e,nil,nil,si,p);
WaitForSingleObject(p.hProcess,INFINITE);
Application.Restore;
end;
[/code]

| Сообщение посчитали полезным:

Ага. А ещё так:
WinExec('notepad.exe', SW_SHOWNA);

| Сообщение посчитали полезным:

deNULL пишет:
WinExec
Это устаревшая ф-ция, оставленная только для совместимости, в Win32 нужно использовать CreateProcess.

| Сообщение посчитали полезным:

А я и не говорю, что она не устаревшая, я просто сказал, что ею можно воспользоваться.

| Сообщение посчитали полезным:

deNULL
Плохой стиль, уважаемый.

| Сообщение посчитали полезным:

В смысле?

| Сообщение посчитали полезным:

Использование WinExec является плохим стилем программирования. Чему же ты учишь?

| Сообщение посчитали полезным:

Я не учу, я просто перечислил функции, с помощью которых можно запустить приложение, и все.

| Сообщение посчитали полезным:

deNULL пишет:
я просто перечислил функции
А я подумал Ara привёл ShellExecute, я CreateProcess, а ты WinExec Ладно, проехали, я всё понял

| Сообщение посчитали полезным:

deNULL пишет:
Вообще-то, это у XaErO ошибка
Это на С++, я ж ведь не думал, что мы не умеем nil писать, а так - тяжелый случай...

| Сообщение посчитали полезным:

XaErO пишет:
а так - тяжелый случай
Вот с этим я согласен =)

| Сообщение посчитали полезным:

а есть функция WaitForMultipleObjects, тогда можно ждать завершения нескольких прог сразу!

| Сообщение посчитали полезным:

А причем тут завершение нескольких прог?

| Сообщение посчитали полезным: