Как запустить из подкаталога?

[foxes]

Если полный путь то работает

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
Нужно запустить из подкаталога

Подскажите пожалуйста...

[Volkogriz]

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);

[foxes]

Ошибка так

[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'

[Volkogriz]

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);

[foxes]

Тоже ошибка

[DCC Error] Unit1.pas(30): E2010 Incompatible types: 'PWideChar' and 'string'

[Stilet]

ShellExecute(Handle, nil, PWideChar('cmd /u /c '+s+'\Skype.exe /datapath:"Profile"  /username:*** /password:**** /removable'), nil, nil, SW_SHOW);

[Volkogriz]

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);

[Host-2013]

Сообщение от 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 символов

[Volkogriz]

Я исправил сразу!

[foxes]

НЕ запускает Skype, что делать?