VPF::Открыть программы - Форум программистов

Михалыч

Дата 15.3.2009, 23:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 472
Регистрация: 1.7.2008

Репутация: нет
Всего: нет

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

--------------------

За частый поиск был забанен во всех известных поисковых системах.
Обиженных комодераторов: 1

Данкинг

Дата 15.3.2009, 23:56 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

shellexecute?

--------------------

There's nothing left but silent epitaphs.

former

Дата 15.3.2009, 23:56 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 4
Всего: 17

Цитата(Михалыч @ 15.3.2009, 23:47

)

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

А известно, где их exe-шники лежат, или нужно самому определять?
Или может быть файл, связанный с этой программой открывать надо?

Добавлено через 5 минут и 39 секунд

Цитата(Данкинг @ 15.3.2009, 23:56

)

shellexecute

это если нужно конкретный файл запустить.

А может ему нужно по названию программы. Тогда в реестр!

--------------------

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

Михалыч

Дата 16.3.2009, 00:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 472
Регистрация: 1.7.2008

Репутация: нет
Всего: нет

Будет примерно так:
Через OpenDialog в ListBox наберутся программы,а после этого все программы из списка откроются.
Через ShellExecute они начнут все сразу открываться,а нужно что бы поочереди

Добавлено через 1 минуту и 53 секунды
Можно поставить таймер,но может есть другой путь?

--------------------

За частый поиск был забанен во всех известных поисковых системах.
Обиженных комодераторов: 1

former

Дата 16.3.2009, 00:19 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 4
Всего: 17

Вот здесь посмотри

--------------------

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

Poseidon

Дата 16.3.2009, 01:34 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133

Цитата(Михалыч @ 16.3.2009, 00:04

)

Можно поставить таймер,но может есть другой путь?

Ага, sleep

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Михалыч

Дата 16.3.2009, 09:20 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 472
Регистрация: 1.7.2008

Репутация: нет
Всего: нет

[Спасибо former, тема закрыта

Это сообщение отредактировал(а) Михалыч - 16.3.2009, 09:20

--------------------

За частый поиск был забанен во всех известных поисковых системах.
Обиженных комодераторов: 1

valerchi

Дата 21.5.2009, 19:06 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 163
Регистрация: 27.5.2008
Где: Геническ

Репутация: нет
Всего: нет

Здравствуйте. У меня есть задумка, но не знаю как её осуществить. Скажу вкратце. Нужно,чтобы в программе считался замкнутый цикл, с переменной, скажем, "x". И в этой же программе имелась кнопка, по нажатию которой на экран memo выводился результат "x". Но программа после этого продолжала работать и цикл продолжался.....
Результат мне нужен был быстро, поэтому я сделал всё кое-как и как попало....
Я сделал одну программу, на которой считался цикл, и результат записывался в файл.
Потом я запускал ещё одну программу, в которой по нажатию кнопки происходило считывание с файла результата, записанного первой программой. Вот, что я сделал... программа номер один:

Код


x:=0;
repeat

x:=x+1;
if x= 34 then x:=1; 
l: begin
assignfile(f,'d:\числа1.txt');
{$i-}
rewrite(f);
{$I+}
if IOResult <> 0 then
goto l;
writeln(f,inttostr(x));
closefile(f);
end;

until x=592;
end;

А вот программа номер два:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
x:string; y:integer;
var
f: TextFile; // файл
fName: String; // имя файла
buf: String; // буфер для чтения файла
label l;

begin
l: fName:='d:\числа1.txt';
AssignFile(f, fName);
{$i-}
Reset(f); // открыть для чтения
{$I+}
if IOResult <> 0  then
goto l;
// чтение из файла
begin
readln(f, buf); // прочитать строку из файла

CloseFile(f); // закрыть файл
y:=strtoint(buf);
if y=1 then x:='а';
if y=2 then x:='б';
if y=3 then x:='в';
if y=4 then x:='г';
if y=5 then x:='д';
if y=6 then x:='е';
if y=7 then x:='ё';
if y=8 then x:='ж';
if y=9 then x:='з';
if y=10 then x:='и';
if y=11 then x:='й';
if y=12 then x:='к';
if y=13 then x:='л';
if y=14 then x:='м';
if y=15 then x:='н';
if y=16 then x:='о';
if y=17 then x:='п';
if y=18 then x:='р';
if y=19 then x:='с';
if y=20 then x:='т';
if y=21 then x:='у';
if y=22 then x:='ф';
if y=23 then x:='х';
if y=24 then x:='ц';
if y=25 then x:='ч';
if y=26 then x:='ш';
if y=27 then x:='щ';
if y=28 then x:='ъ';
if y=29 then x:='ы';
if y=30 then x:='ь';
if y=31 then x:='э';
if y=32 then x:='ю';
if y=33 then x:='я';
end;

memo1.SelText:= memo1.SelText+x;

end;

end.

THandle

Дата 21.5.2009, 20:13 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

!
THandle

Модератор: Пожалуйста, один топик - один вопрос.

valerchi, создайте отдельную тему.

PS: закрыто.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »