копирование программы

[IvaD]

ShellExecute(0, 'open', 'место куда скопировалась', nil, nil, SW_SHOWNORMAL);\\запускаем 
Close;\\закрываем запущенную

[NetSpace]

вот подобная идея и мне приходила, но это почему-то не всегда работало. исчертыхавшись, нашёл в чем подвох: слишком мало времени между запуском и закрытием. приходилось эти процедуры ставить в таймер, чтоб между ними было около 0,5-1 секунда.

[hacknet]

Сообщение от IvaD

ShellExecute(0, 'open', 'место куда скопировалась', nil, nil, SW_SHOWNORMAL);\\запускаем 
Close;\\закрываем запущенную

if CopyFile(PChar(ParamStr(0)), PChar(Edit3.Text +
 ExtractFileName(ParamStr(0))), True) = true   then
 ShellExecute(0, 'open', Edit3.Text + ExtractFileName(ParamStr(0)), nil, nil, SW_HIDE);

помогите как правильно должно быть?

[IvaD]

uses
 ...,shellapi;\\ Не забываем!!!!
__________________________________________
begin
if CopyFile(PChar(ParamStr(0)), PChar(Edit3.Text +
 ExtractFileName(ParamStr(0))), True) = true   
then
 ShellExecute(0, 'open', PChar(Edit3.Text +
 ExtractFileName(ParamStr(0)), nil, nil, SW_HIDE);
__________________________________________

[hacknet]

Сообщение от NetSpace

вот подобная идея и мне приходила, но это почему-то не всегда работало. исчертыхавшись, нашёл в чем подвох: слишком мало времени между запуском и закрытием. приходилось эти процедуры ставить в таймер, чтоб между ними было около 0,5-1 секунда.

сделал, в итоги копируеться запускаеться, и обе закрываються)