Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.07.2010, 07:10   #1
W.i.d.g.e.t.1
Пользователь
 
Аватар для W.i.d.g.e.t.1
 
Регистрация: 09.07.2010
Сообщений: 65
Стрелка Строковая переменная и DOS

Привет,всем. Тут возник вопрос, мне нужно передать стринговую переменную, пусть S досу.
есть функция, которая вытягивает текущую директорию. чтобы добавить запись в планировщик задач (через дос) нужно ему передать путь к файлу. а он в переменной. Покажите пожалуйста пример.
а в конце окажется, что все проблемы были из-за дивана, что стоял не по фэн-шую...
W.i.d.g.e.t.1 вне форума Ответить с цитированием
Старый 24.07.2010, 09:19   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

1) Вы, похоже, сильно путаете DOS, консоль и командную строку.
"в DOS" нельзя ничего передать - это устаревшая операционная система, которая, на данный момент, эмулируется в Windows.

2) если я правильно понял, что именно Вам надо, то идите в направлении ShellExecute, WinExec, CreateProcess

p.s. будет больше конкретики в вопросе, будет более конкретный ответ....
Serge_Bliznykov вне форума Ответить с цитированием
Старый 24.07.2010, 09:37   #3
W.i.d.g.e.t.1
Пользователь
 
Аватар для W.i.d.g.e.t.1
 
Регистрация: 09.07.2010
Сообщений: 65
По умолчанию

Не путаю, по привычке говорю. Дурная привычка,но есть. Конкретики, да
Код:
ShellExecute(hInstance,'open','C:\WINDOWS\system32 \cmd.exe','/k netsh firewall add allowedprogram 11.exe enable ',0,SW_HIDE);
переписывать под планировщик пока не стала, но вот такой смысл. Допустим, 'C:\WINDOWS\system32 \cmd.exe- присвоено переменной S...вот как написать ShellExecute(hInstance,'open','S','/k netsh firewall add allowedprogram 11.exe enable ',0,SW_HIDE);
с кавычками и без этот путь не передается. А больше никак незнаю. Но сто процентов можно передать, только как?
а в конце окажется, что все проблемы были из-за дивана, что стоял не по фэн-шую...
W.i.d.g.e.t.1 вне форума Ответить с цитированием
Старый 24.07.2010, 10:29   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

так и написать, только без апострофов!
Код:
S := 'C:\WINDOWS\system32 \cmd.exe';
ShellExecute(hInstance,'open',S,'/k netsh firewall add allowedprogram 11.exe enable ',0,SW_HIDE);
p.s. некогда сейчас проверять, если в ShellExecute необходимо передавать PChar (будет ошибка несовместимости типов PChar и String), то сделайте приведение типов:
вместо S напишите PChar(S)
Serge_Bliznykov вне форума Ответить с цитированием
Старый 24.07.2010, 11:12   #5
Korben5E
Форумчанин
 
Аватар для Korben5E
 
Регистрация: 13.07.2010
Сообщений: 346
По умолчанию

Цитата:
Сообщение от W.i.d.g.e.t.1 Посмотреть сообщение
Не путаю, по привычке говорю. Дурная привычка,но есть. Конкретики, да
Код:
ShellExecute(hInstance,'open','C:\WINDOWS\system32 \cmd.exe','/k netsh firewall add allowedprogram 11.exe enable ',0,SW_HIDE);
переписывать под планировщик пока не стала, но вот такой смысл. Допустим, 'C:\WINDOWS\system32 \cmd.exe- присвоено переменной S...вот как написать ShellExecute(hInstance,'open','S','/k netsh firewall add allowedprogram 11.exe enable ',0,SW_HIDE);
с кавычками и без этот путь не передается. А больше никак незнаю. Но сто процентов можно передать, только как?
опять 25

так не?

ShellExecute(hInstance,'open','C:\W INDOWS\system32 \netsh.exe','firewall add allowedprogram 11.exe enable ',0,SW_HIDE);
Non est culpa vin, sed culpa bibentis
Korben5E вне форума Ответить с цитированием
Старый 24.07.2010, 11:34   #6
W.i.d.g.e.t.1
Пользователь
 
Аватар для W.i.d.g.e.t.1
 
Регистрация: 09.07.2010
Сообщений: 65
По умолчанию

Цитата:
Сообщение от Korben5E Посмотреть сообщение
опять 25

так не?

ShellExecute(hInstance,'open','C:\W INDOWS\system32 \netsh.exe','firewall add allowedprogram 11.exe enable ',0,SW_HIDE);
Ахахах, из старого кода выдрала))))меня путь воткнуть интересовало))а если так, то мне надо в планировщик залезть))есть идеи?
а в конце окажется, что все проблемы были из-за дивана, что стоял не по фэн-шую...
W.i.d.g.e.t.1 вне форума Ответить с цитированием
Старый 24.07.2010, 11:46   #7
Korben5E
Форумчанин
 
Аватар для Korben5E
 
Регистрация: 13.07.2010
Сообщений: 346
По умолчанию

Цитата:
Сообщение от W.i.d.g.e.t.1 Посмотреть сообщение
Ахахах, из старого кода выдрала))))меня путь воткнуть интересовало))а если так, то мне надо в планировщик залезть))есть идеи?
целый чемодан!! не..... вру.... - восемь чемоданофффф

http://msdn.microsoft.com/en-us/library/aa383579.aspx



и вот еще нашел
http://msdn.microsoft.com/en-us/library/aa446865.aspx
Non est culpa vin, sed culpa bibentis

Последний раз редактировалось Korben5E; 24.07.2010 в 11:49.
Korben5E вне форума Ответить с цитированием
Старый 24.07.2010, 11:55   #8
W.i.d.g.e.t.1
Пользователь
 
Аватар для W.i.d.g.e.t.1
 
Регистрация: 09.07.2010
Сообщений: 65
По умолчанию

Я читала..оО
Именно в этот момент...+1 за читку мыслей. А вот кодом это дело не против)..
а в конце окажется, что все проблемы были из-за дивана, что стоял не по фэн-шую...
W.i.d.g.e.t.1 вне форума Ответить с цитированием
Старый 24.07.2010, 11:55   #9
W.i.d.g.e.t.1
Пользователь
 
Аватар для W.i.d.g.e.t.1
 
Регистрация: 09.07.2010
Сообщений: 65
По умолчанию

Я читала..оО
Именно в этот момент...+1 за читку мыслей. А вот кодом это дело не против)..
а в конце окажется, что все проблемы были из-за дивана, что стоял не по фэн-шую...
W.i.d.g.e.t.1 вне форума Ответить с цитированием
Старый 24.07.2010, 12:00   #10
Korben5E
Форумчанин
 
Аватар для Korben5E
 
Регистрация: 13.07.2010
Сообщений: 346
По умолчанию

так я-же дал ссылки на странички с примерами
Non est culpa vin, sed culpa bibentis
Korben5E вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Переменная: -1,291E-08 bezOn Паскаль, Turbo Pascal, PascalABC.NET 10 18.04.2010 17:07
Invalid Pointer Operation, DLL + Строковая функция Alex Cones Общие вопросы Delphi 13 18.09.2009 21:47
Почему переменная а = 2??? Paul_AG Общие вопросы C/C++ 2 25.05.2009 18:55
Строковая задача С++ на поиск слова Graf Xandr Помощь студентам 1 07.05.2009 22:14
строковая функция с++ dollemika Помощь студентам 2 30.04.2009 22:08