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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 20.02.2013, 16:13   #1
foxes
Пользователь
 
Регистрация: 14.11.2008
Сообщений: 94
По умолчанию Как запустить из подкаталога?

Если полный путь то работает
Код:
ShellExecute(Handle, nil, 'cmd /u /c C:\1\Add\Skype.exe /datapath:"Profile"  /username:*** /password:**** /removable', nil, nil, SW_SHOW);
Так не работает
Код:
ShellExecute(Handle, nil, 'cmd /u /c %Add%\Skype.exe /datapath:"Profile"  /username:*** /password:**** /removable', nil, nil, SW_SHOW);
Сам файл в папки 1
Нужно запустить из подкаталога

Подскажите пожалуйста...
foxes вне форума Ответить с цитированием
Старый 20.02.2013, 16:38   #2
Volkogriz
Форумчанин
 
Аватар для Volkogriz
 
Регистрация: 11.10.2007
Сообщений: 384
По умолчанию

Код:
var
S:string;
begin
S:=ExtractFileName(Application.ExeName)+'1\Add';
ShellExecute(Handle, nil, 'cmd /u /c' s+'\Skype.exe /datapath:"Profile"  /username:*** /password:**** /removable', nil, nil, SW_SHOW);
Не количеством плюсов измеряется репутация человека...!
Volkogriz вне форума Ответить с цитированием
Старый 20.02.2013, 17:15   #3
foxes
Пользователь
 
Регистрация: 14.11.2008
Сообщений: 94
По умолчанию

Ошибка так
Код:
[DCC Error] Unit1.pas(31): E2035 Not enough actual parameters
[DCC Error] Unit1.pas(31): E2014 Statement expected, but expression of type 'string' found
[DCC Fatal Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas'
foxes вне форума Ответить с цитированием
Старый 20.02.2013, 18:16   #4
Volkogriz
Форумчанин
 
Аватар для Volkogriz
 
Регистрация: 11.10.2007
Сообщений: 384
По умолчанию

var
S:string;
begin
S:=ExtractFileName(Application.ExeN ame)+'1\Add';
ShellExecute(Handle, nil, 'cmd /u /c ' +s+'\Skype.exe /datapath:"Profile" /username:*** /password:**** /removable', nil, nil, SW_SHOW);
Не количеством плюсов измеряется репутация человека...!
Volkogriz вне форума Ответить с цитированием
Старый 20.02.2013, 18:58   #5
foxes
Пользователь
 
Регистрация: 14.11.2008
Сообщений: 94
По умолчанию

Тоже ошибка
Код:
[DCC Error] Unit1.pas(30): E2010 Incompatible types: 'PWideChar' and 'string'
foxes вне форума Ответить с цитированием
Старый 20.02.2013, 19:08   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Код:
ShellExecute(Handle, nil, PWideChar('cmd /u /c '+s+'\Skype.exe /datapath:"Profile"  /username:*** /password:**** /removable'), nil, nil, SW_SHOW);
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 20.02.2013, 19:10   #7
Volkogriz
Форумчанин
 
Аватар для Volkogriz
 
Регистрация: 11.10.2007
Сообщений: 384
По умолчанию

var
S:string;
begin
S:=ExtractFileName(Application.ExeN ame)+'1\Add';
ShellExecute(Handle, nil,PWideChar('cmd /u /c '+s+'\Skype.exe /datapath:"Profile" /username:*** /password:**** /removable'), nil, nil, SW_SHOW);
Не количеством плюсов измеряется репутация человека...!

Последний раз редактировалось Volkogriz; 20.02.2013 в 19:12.
Volkogriz вне форума Ответить с цитированием
Старый 20.02.2013, 19:34   #8
Host-2013
Пользователь
 
Регистрация: 02.02.2013
Сообщений: 63
По умолчанию

Цитата:
Сообщение от Volkogriz Посмотреть сообщение
Код:
var
S:string;
begin
S:=ExtractFileName(Application.ExeName)+'1\Add';
ShellExecute(Handle, nil, 'cmd /u /c'+PChar(s)+'\Skype.exe /datapath:"Profile"  /username:*** /password:**** /removable', nil, nil, SW_SHOW);
10 символов

Последний раз редактировалось Host-2013; 20.02.2013 в 19:36.
Host-2013 вне форума Ответить с цитированием
Старый 20.02.2013, 19:41   #9
Volkogriz
Форумчанин
 
Аватар для Volkogriz
 
Регистрация: 11.10.2007
Сообщений: 384
По умолчанию

Я исправил сразу!
Не количеством плюсов измеряется репутация человека...!
Volkogriz вне форума Ответить с цитированием
Старый 20.02.2013, 19:45   #10
foxes
Пользователь
 
Регистрация: 14.11.2008
Сообщений: 94
По умолчанию

НЕ запускает Skype, что делать?
foxes вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как запустить файл ikar16 Общие вопросы Delphi 2 23.01.2011 17:20
WH_JOURNALRECORD. Как получить VirtualCode нажатой кнопки? Или как запустить toAscii только с ScanCode? TwiX Общие вопросы Delphi 7 09.06.2010 23:31
Как запустить приложение делфи в фоновом режиме(как процесс)? Diakon Общие вопросы Delphi 4 16.11.2009 13:06
Удаление подкаталога из реестра aesoem Общие вопросы Delphi 4 07.02.2008 17:07
Как запустить EXE XATAB Общие вопросы Delphi 4 08.07.2007 23:54