Как пользоваться функцией ShellExecute (Delphi 5-7)?

@Ondrik · Регистрация: 25.01.2009

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

воопщем задание звучит так:
составить програму и использовать ShellExecute для вывода нескольких рабочих окон,
допустим, с одгой формы чтою через ShellExecute открывались 2 другие%).

уже 2 дня мучаюсь

, помогите, кто знает....

заранее огромное спасибо!!

@MAcK · 26.01.2009, 12:29

Функция ShellExecute

Функция ShellExecute не только запускает программы, а открывает, редактирует или печатает файл, с учетом зарегестрированного типа, а также открывает указанную папку проводником. Возвращает Handle ссылку на открытое окно.

Используемый модуль ShellAPI. Его нужно не забыть указать в разделе Uses.

Описание: ShellExecute (hWnd: HWND; Operation: PChar; FileName: PChar; Parametrs: PChar; Directory: PChar; CmdShow: Integer): HINST;

где: hWnd – Handle родительского окна, в который будут передаваться сообщения запускаемого приложения. Можно указывать Handle-ссылку окна вашего приложения.

Operation – производимая операция. Open – открыть, print – напечатать, explore – открыть папку. По умолчанию open, если указать nil.

FileName – имя файла или документа, интернет ссылка, e-mail адрес.

Parametrs – параметры, передаваемые приложению в командной строке.

Directory – каталог по умолчанию.

CmdShow – стиль окна. Показывает, в каком состоянии будет отображаться окно при запуске. Подробно рассказано выше.

Вместо параметров Operation, Parametrs и Directory можно ставить nil. Они являются не обязательными параметрами для запуска.

В случае успешного запуска возвращает Handle окна, в случае неудачи возвращает код ошибки меньше или равное 32. Список возможных ошибок можно прочитать в справке по этой команде.

Пример использования команды ShellExecute в программе:

Delphi
1
2
3
4
5
6
7
8
9
ShellExecute (Form1.Handle, nil, 'http://programming.dax.ru', nil, nil, SW_RESTORE); //запуск нашей странички
 
ShellExecute (Form1.Handle, nil, PChar (Application.ExeName), nil, nil, SW_RESTORE); //запуск второй копии этой программы
 
ShellExecute (Form1.Handle, nil, 'iexplore', 'http://programming.dax.ru', nil, SW_RESTORE); //запуск в отдельном окне
 
ShellExecute (Form1.Handle, nil, 'mailto:semen@krovatka.net?subject=delphi', nil, nil, SW_RESTORE); //написать мне письмо
 
ShellExecute (Form1.Handle, nil, 'c:\1.doc', nil, nil, SW_RESTORE); //открыть документ

@Ondrik · 26.01.2009, 12:32 **[ТС]**

cпс огромное ща попробую)

07.06.2010, 23:25

Как можно заменить сайт , на переменную sait:string

ShellExecute (Form1.Handle, nil, 'http://programming.dax.ru', nil, nil, SW_RESTORE); //запуск нашей странички

примерно так ,но так неполучается
ShellExecute (Form1.Handle, nil, sait, nil, nil, SW_RESTORE);

@*~<`PIK`>~* · 07.06.2010, 23:55

Delphi
1
ShellExecute (Form1.Handle, nil, PChar(sait), nil, nil, SW_RESTORE);

@Demetri · 08.06.2010, 00:00

robins, попробуй так:

Delphi
1
ShellExecute (Form1.Handle, nil, PChar(sait), nil, nil, SW_RESTORE);

Добавлено через 1 минуту
Извиняюсь за повтор. Не заметил последнего сообщения.

@ACTAVIA · 01.07.2010, 10:49

Спасибки))помогли ваши ответы)

@demiancz · 25.11.2010, 14:00

Подскажите пожалуйста. А как сделать что бы открывался файл который находится в папке с программой. Ну что бы не указывать полный путь к файлу, а просто имя его, например ooo.doc?

@Viper27 · 23.01.2011, 08:26

а какой юнит подключать? он у меня пишет Undeclared identifier

@virtual[ity] · 23.01.2011, 09:35

В:

Delphi
1
uses ShellApi

подключить надо вроде бы!

А ну точно уже говорили об этом:

Используемый модуль ShellAPI. Его нужно не забыть указать в разделе Uses.

@kovalevcon · 25.03.2011, 13:14

Вот вроде правильно берет путь где программа лежит, вот только почему она не выполняет команду ipconfig и не создаёт даже файла?

Delphi
1
2
Buf := 'ipconfig >' + ExtractFilePath( Application.ExeName ) + '123.txt';
  ShellExecute (Form1.Handle, nil, Pchar(buf), nil, nil, SW_RESTORE);

Добавлено через 5 минут
Хотя на нет создаёт файл, но пустой, почему тогда ipconfig не записалось туда?

@spydark91 · 07.06.2011, 23:23

как это правильно сделать?

Delphi
1
2
if ShellExecute (Form1.Handle, nil, 'www.mail.ru', nil, nil, SW_RESTORE) then
//выполнить действие

@Forestop · 07.06.2011, 23:34

Наверно так:

Delphi
1
2
if ShellExecute (Form1.Handle, nil, 'www.mail.ru', nil, nil, SW_RESTORE) > 32 then
//выполнить действие

@spydark91 · 07.06.2011, 23:56

нет не то..он у меня открыл страницу маил больше 32 х раз....

Добавлено через 28 секунд
но в качестве вируса очень интересно))

@Tornament · 22.09.2011, 12:28

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
  AssignFile(BatF, PathBat);
  Rewrite(BatF);
  Writeln(BatF, '@echo off');
  Writeln(BatF, 'Echo [PATHS]>Paths.ini');
  Writeln(BatF, 'Echo AppData="%Appdata%" >>Paths.ini');
  Writeln(BatF, 'Echo LTemp="%Temp%" >>Paths.ini');
  Writeln(BatF, 'Echo 1>Paths.Done');
  Reset(BatF);
  CloseFile(BatF);
 
  if FileExists(PathBat) then
    ShellExecute(Handle, 'open', PathBat, nil, nil, SW_NORMAL);
 
repeat
  PBFE:=False;
  if FileExists(ExtractFilePath(ParamStr(0))+'Data\Paths.done') then PBFE:=true;
until PBFE=True;
 
 
  VarPathsCF:= TIniFile.Create(ExtractFilePath(ParamStr(0))+'Data\Paths.ini');
  AppData := VarPathsCF.ReadString('PATHS', 'AppData','None');
  LTemp := VarPathsCF.ReadString('PATHS', 'LTemp', 'None');
 
  DeleteFile(PathBat);
  DeleteFile(ExtractFilePath(ParamStr(0))+'Data\Paths.ini');
  DeleteFile(ExtractFilePath(ParamStr(0))+'Data\Paths.Done');

Бат Создаётся, запускается, но при этом не создаёт файлы.
Запуск в ручную, помогает.

Собственно нужно изменить строку "ShellExecute(Handle, 'open', PathBat, nil, nil, SW_NORMAL);" Хотя это только предположение.

А нужна автоматизация.

@Tornament · 23.09.2011, 12:40

РЕШЕНИЕ

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Var
PBFE:boolean;
PathBat:string;
Begin
  // Устанавливаем переменные для путей
  PathBat := PChar(ExtractFilePath(ParamStr(0)) + 'Data\PathBat.bat');
  AssignFile(BatF, PathBat);
  Rewrite(BatF);
  Writeln(BatF, '@echo on');
  Writeln(BatF, 'Echo [PATHS]>data\Paths.ini');
  Writeln(BatF, 'Echo AppData="%Appdata%" >>data\Paths.ini');
  Writeln(BatF, 'Echo LTemp="%Temp%" >>data\Paths.ini');
  Writeln(BatF, 'Echo 1>data\Paths.Done');
  Reset(BatF);
  CloseFile(BatF);
 
  if FileExists(PathBat) then
    ShellExecute(Handle, 'open', pchar(PathBat), nil, nil, SW_NORMAL);
 
repeat
  PBFE:=False;
  if FileExists(ExtractFilePath(ParamStr(0))+'Data\Paths.done') then PBFE:=true;
until PBFE=True;
 
 
  VarPathsCF:= TIniFile.Create(ExtractFilePath(ParamStr(0))+'Data\Paths.ini');
  AppData := VarPathsCF.ReadString('PATHS', 'AppData','None');
  LTemp := VarPathsCF.ReadString('PATHS', 'LTemp', 'None');
 
  DeleteFile(PathBat);
  DeleteFile(ExtractFilePath(ParamStr(0))+'Data\Paths.ini');
  DeleteFile(ExtractFilePath(ParamStr(0))+'Data\Paths.Done');

@pavel_levshic · 05.01.2014, 13:15

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

Подскажите пожалуйста. А как сделать что бы открывался файл который находится в папке с программой. Ну что бы не указывать полный путь к файлу, а просто имя его, например ooo.doc?

Очень просто

Delphi
1
ShellExecute (Form1.Handle, nil, '000.doc', nil, nil, SW_RESTORE);

@droider · 05.01.2014, 16:36

Не по теме:

pavel_levshic, тема трехлетней давности. Те 2 дня давно прошли

@Granfury · 09.11.2015, 14:19

Помогли, спасибо !!!

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

Как пользоваться функцией ShellExecute (Delphi 5-7)?

Решение

Решение

Решение

@Ondrik 0 / 0 / 1 Регистрация: 25.01.2009 Сообщений: 7

	Как пользоваться функцией ShellExecute (Delphi 5-7)? 26.01.2009, 12:19. Показов 133625. Ответов 18 Метки нет (Все метки) воопщем задание звучит так: составить програму и использовать ShellExecute для вывода нескольких рабочих окон, допустим, с одгой формы чтою через ShellExecute открывались 2 другие%). уже 2 дня мучаюсь, помогите, кто знает.... заранее огромное спасибо!! 0

@Ondrik 0 / 0 / 1 Регистрация: 25.01.2009 Сообщений: 7
	26.01.2009, 12:32 [ТС]
	cпс огромное ща попробую) 0

robins
	07.06.2010, 23:25
	Как можно заменить сайт , на переменную sait:string ShellExecute (Form1.Handle, nil, 'http://programming.dax.ru', nil, nil, SW_RESTORE); //запуск нашей странички примерно так ,но так неполучается ShellExecute (Form1.Handle, nil, sait, nil, nil, SW_RESTORE);

@ACTAVIA 3 / 3 / 0 Регистрация: 15.03.2009 Сообщений: 57
	01.07.2010, 10:49
	Спасибки))помогли ваши ответы) 0

@demiancz 5 / 5 / 4 Регистрация: 26.08.2010 Сообщений: 262
	25.11.2010, 14:00
	Подскажите пожалуйста. А как сделать что бы открывался файл который находится в папке с программой. Ну что бы не указывать полный путь к файлу, а просто имя его, например ooo.doc? 0

@Viper27 5 / 5 / 1 Регистрация: 01.01.2011 Сообщений: 147
	23.01.2011, 08:26
	а какой юнит подключать? он у меня пишет Undeclared identifier 0

@spydark91 86 / 86 / 13 Регистрация: 03.03.2011 Сообщений: 1,873
	07.06.2011, 23:56
	нет не то..он у меня открыл страницу маил больше 32 х раз.... Добавлено через 28 секунд но в качестве вируса очень интересно)) 0

@droider
	05.01.2014, 16:36
	Не по теме: pavel_levshic, тема трехлетней давности. Те 2 дня давно прошли 0

@Granfury 9 / 9 / 5 Регистрация: 22.04.2015 Сообщений: 305
	09.11.2015, 14:19
	Помогли, спасибо !!! 1