Исходное сообщение CONSTantius

Исходное сообщение dandr

Исходное сообщение TRAViS
Ааааааа!!! Дельфийка!!!! )))) Родное сердце!!! Я тож делфист )))

Коль уж дельфисты собрались, то вопрос на засыпку...
Имеется небольшая БД, в которой каждая строка по сути - готовая команда для cmd.
Подсобите, как эту команду запустить. Да ещё и в фоновом режиме.
В принципе, можно слить в батник и запускать его, но это как-то неэтично...

Я тож дельфиец ;) Ща поглядим-с. ИМХО можно посмотреть WinExec и ShellExecute, хотя скорее всего придется делать геморнее. Есть вариант открыть консоль и слать ей нажатия клавиш, но тогда все же уж лучше батник. Мм, соображаю как бы все это оформить :)

Исходное сообщение CONSTantius
dandr,
Вообще, если серьезно, то проще это дело обсудить в асе ;) Хоть сейчас. Мну стало интересно и ща я попробую че-нить закодить :) Хотя бы просто выполнение командной строки с невидимым окошком.

Исходное сообщение CONSTantius
Блин, похоже тот, кому все это и нужно, взял и свалил куда-т.. Спать может? :) А я тут подорвался на бурном энтузиазме закодить че-нибудь

Исходное сообщение Vl_ad_le_na
*спряталась за штору и бормочет: "Я не участвую в этом сумасшествии... я не знаю, в какой руке держать мышку..."*

Исходное сообщение CONSTantius
Недолгие разборки привели к такому:

code:


ShellExecute(Handle, 'open', 'cmd', Pchar('/c ' + s), nil, SW_HIDE);

В s, очевидно, команда. Без ключа /c cmd не хочет принимать команду в качестве параметра, к тому же это ключ для автоматического закрытия консоли после отработки команды. SW_HIDE - запуск с невидимым окошком. Только при использовании путей с пробелами в строке s надо пути в кавычки ставить. Ну это уж ерунда :)
P.S. ShellAPI не забудь подключить ;)

Исходное сообщение dandr

Исходное сообщение CONSTantius
dandr,
Вообще, если серьезно, то проще это дело обсудить в асе ;) Хоть сейчас. Мну стало интересно и ща я попробую че-нить закодить :) Хотя бы просто выполнение командной строки с невидимым окошком.

На тот момент, когда ты это писал, я уже спал)))
Асю дома не юзаю. Если есть Jabber - вечером появлюсь. Dandr@ya.ru

Исходное сообщение dandr
Я ж не думал, что ты вот так вот подорвёшься с места в карьер))))

Исходное сообщение dandr

Исходное сообщение CONSTantius
Недолгие разборки привели к такому:

code:


ShellExecute(Handle, 'open', 'cmd', Pchar('/c ' + s), nil, SW_HIDE);

В s, очевидно, команда. Без ключа /c cmd не хочет принимать команду в качестве параметра, к тому же это ключ для автоматического закрытия консоли после отработки команды. SW_HIDE - запуск с невидимым окошком. Только при использовании путей с пробелами в строке s надо пути в кавычки ставить. Ну это уж ерунда :)
P.S. ShellAPI не забудь подключить ;)

Вау, какая прелесть! Спасибо)))))

Исходное сообщение CONSTantius
Я так и подумал, ты же адекватный человек (:
Jabber-jabber... Надо для начала учетную запись что ли получить где-то. Никогда жабером не пользовался

Исходное сообщение CONSTantius

Исходное сообщение dandr
Я ж не думал, что ты вот так вот подорвёшься с места в карьер))))

Да у меня весь вечер руки чесались что-нибудь полезное сделать (:

Исходное сообщение dandr

Исходное сообщение CONSTantius
Я так и подумал, ты же адекватный человек (:
Jabber-jabber... Надо для начала учетную запись что ли получить где-то. Никогда жабером не пользовался

:)
Что мешает начать?)))

Исходное сообщение dandr

Исходное сообщение CONSTantius

Исходное сообщение dandr
Я ж не думал, что ты вот так вот подорвёшься с места в карьер))))

Да у меня весь вечер руки чесались что-нибудь полезное сделать (:

Сделал, спасибо)))

Исходное сообщение CONSTantius

Исходное сообщение dandr

Исходное сообщение CONSTantius
Я так и подумал, ты же адекватный человек (:
Jabber-jabber... Надо для начала учетную запись что ли получить где-то. Никогда жабером не пользовался

:)
Что мешает начать?)))

Ничего не мешает, более того... Я просто не знал, что GoogleTalk - это jabber-протокол. Есть у меня jid, и я уже запросил у тебя авторизацию. Приходило/нет?

Исходное сообщение CONSTantius

Исходное сообщение Vl_ad_le_na
*спряталась за штору и бормочет: "Я не участвую в этом сумасшествии... я не знаю, в какой руке держать мышку..."*

Неужели я произвожу впечатление _такого_ безумного маньяка, что приходится прятаться за штору? (:

code:

ShellExecute(Handle, 'open', 'cmd', Pchar('/c ' + s), nil, SW_HIDE);

Исходное сообщение dandr

Исходное сообщение Vl_ad_le_na
*спряталась за штору и бормочет: "Я не участвую в этом сумасшествии... я не знаю, в какой руке держать мышку..."*

Не отмазывайся: за блондинкО уже не проканаешь))))

Автор: Vl_ad_le_na

Исходное сообщение dandr

Исходное сообщение Vl_ad_le_na
*спряталась за штору и бормочет: "Я не участвую в этом сумасшествии... я не знаю, в какой руке держать мышку..."*

Не отмазывайся: за блондинкО уже не проканаешь))))

от блин...:DDDDDDD
спс за симпу)))))))

Автор: CONSTantius
Недолгие разборки привели к такому:

code:



ShellExecute(Handle, 'open', 'cmd', Pchar('/c ' + s), nil, SW_HIDE);

В s, очевидно, команда. Без ключа /c cmd не хочет принимать команду в качестве параметра, к тому же это ключ для автоматического закрытия консоли после отработки команды. SW_HIDE - запуск с невидимым окошком. Только при использовании путей с пробелами в строке s надо пути в кавычки ставить. Ну это уж ерунда :)
P.S. ShellAPI не забудь подключить ;)

code:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'cmd', Pchar('/c ' + s), nil, SW_SHOW);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
s:='xcopy C:\My_Doc\Test\ C:\My_Doc\Result\ 2>error.log'
end;

---

Недопустимый путь

Исходное сообщение TRAViS
Vl_ad_le_na,
"ага, меня вот это напугало:
code:

ShellExecute(Handle, 'open', 'cmd', Pchar('/c ' + s), nil, SW_HIDE);"

Не бойся, это ему, как Менделееву, во сне всякая фигня снится. Правда иногда она даже компилится без ошибок :)

Исходное сообщение dandr

Автор: CONSTantius
Недолгие разборки привели к такому:

code:



ShellExecute(Handle, 'open', 'cmd', Pchar('/c ' + s), nil, SW_HIDE);

В s, очевидно, команда. Без ключа /c cmd не хочет принимать команду в качестве параметра, к тому же это ключ для автоматического закрытия консоли после отработки команды. SW_HIDE - запуск с невидимым окошком. Только при использовании путей с пробелами в строке s надо пути в кавычки ставить. Ну это уж ерунда :)
P.S. ShellAPI не забудь подключить ;)

Так, поехали дальше...
Налабал новую форму всего с одной кнопкой.

code:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'cmd', Pchar('/c ' + s), nil, SW_SHOW);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
s:='xcopy C:\My_Doc\Test\ C:\My_Doc\Result\ 2>error.log'
end;

---

От SW_SHOW собственно, толку никакого, т.к. всё происходит моментально.
В error.log наблюдаю единственное сообщение:

Недопустимый путь

Где косяк?


в колонках: Saxon - This Town Rocks - Winamp [Paused]

Исходное сообщение Moralist
товаисчи, может вы в асе пообщаетесь, а?

Исходное сообщение dandr
Налабал новую форму всего с одной кнопкой.

code:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'cmd', Pchar('/c ' + s), nil, SW_SHOW);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
s:='xcopy C:\My_Doc\Test\ C:\My_Doc\Result\ 2>error.log'
end;

---

От SW_SHOW собственно, толку никакого, т.к. всё происходит моментально.
В error.log наблюдаю единственное сообщение:

Недопустимый путь

Где косяк?


в колонках: Saxon - This Town Rocks - Winamp [Paused]

Исходное сообщение CONSTantius

Исходное сообщение Moralist
товаисчи, может вы в асе пообщаетесь, а?

Тема уже в любом случае зафлужена давно :) Все равно никто тут особо больше ничего не пишет
Да и, асю dandr у нас не любит, и в жаббере его не поймать :)

Исходное сообщение CONSTantius

Исходное сообщение dandr

Автор: CONSTantius
Недолгие разборки привели к такому:

code:



ShellExecute(Handle, 'open', 'cmd', Pchar('/c ' + s), nil, SW_HIDE);

В s, очевидно, команда. Без ключа /c cmd не хочет принимать команду в качестве параметра, к тому же это ключ для автоматического закрытия консоли после отработки команды. SW_HIDE - запуск с невидимым окошком. Только при использовании путей с пробелами в строке s надо пути в кавычки ставить. Ну это уж ерунда :)
P.S. ShellAPI не забудь подключить ;)

Так, поехали дальше...
Налабал новую форму всего с одной кнопкой.

code:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'cmd', Pchar('/c ' + s), nil, SW_SHOW);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
s:='xcopy C:\My_Doc\Test\ C:\My_Doc\Result\ 2>error.log'
end;

---

От SW_SHOW собственно, толку никакого, т.к. всё происходит моментально.
В error.log наблюдаю единственное сообщение:

Недопустимый путь

Где косяк?


в колонках: Saxon - This Town Rocks - Winamp [Paused]

Для начала - чтобы консоль не схлопнулась после отработки надо передавать ключик /k вместо /c. Собственно, с никакими xcopy'ями я не работал, и даже близко не представляю что это такое :) Попробуй запихнуть оба пути в двойные кавычки

Исходное сообщение Moralist
товаисчи, может вы в асе пообщаетесь, а?