Удаление ярлыка - C++

[madpitbull]

Здравствуйте. Помогите пожалуйста с правильным кодом?

По нажатию кнопки открывается сторонний exe файл встроенный в мое приложение и создает свой ярлык. Нужно что бы после закрытия этого приложения удалялся созданный ярлык.

void __fastcall TForm1::Button2Click(TObject *Sender)
{
char *ResType = "EXEFILE";
 
TResourceStream* ResPtr = new TResourceStream((int)HInstance, "MYEXE", ResType);
ResPtr->SaveToFile("Kalibr.exe");
ShellExecute(Handle,"open","Kalibr.exe",NULL,NULL,SW_SHOWNORMAL);  //Г‡Г*ГЇГіГ±ГЄГ*ГҐГ¬ ГЄГ*ëèáðîâêó
delete ResPtr;
if (FileExists("Kalibr.exe"))
 try {
  DeleteFile ("Kalibr.exe");
 } catch (...) {}
Action = caFree;
}

Такой код не срабатывает и после закрытия ярлык остается.

[Cuprum5]

Так не сам Kalibr.exe нужно удалить, а ярлык - *.lnk. Правильно?

[madpitbull]

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

Так не сам Kalibr.exe нужно удалить, а ярлык - *.lnk. Правильно?

Получается сам Kalibr.exe распаковывается из моего приложения.
Нужно удалить этот exe файл после закрытия его окна

[Cuprum5]

Ну может-быть окно не успевает закрыться - поэтому он не удаляет? Попробуй задержку поставить 2 секунды перед удалением. Скажешь потом, что получилось, ладно? О, нашел функцию Sleep():

VOID Sleep(DWORD cMilliseconds)

[madpitbull]

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

Ну может-быть окно не успевает закрыться - поэтому он не удаляет? Попробуй задержку поставить 2 секунды перед удалением. Скажешь потом, что получилось, ладно? О, нашел функцию Sleep():

VOID Sleep(DWORD cMilliseconds)

Извини, не знаю как это сделать.
Вышеуказанный код брал из какого то учебника.

Кстати сейчас вроде срабатывает, если поправить код так:

void __fastcall TForm1::Button2Click(TObject *Sender)
{
char *ResType = "EXEFILE";

TResourceStream* ResPtr = new TResourceStream((int)HInstance, "MYEXE", ResType);
ResPtr->SaveToFile("Kalibr.exe");
ShellExecute(Handle,"open","Kalibr.exe",NULL,NULL,SW_SHOWNORMAL);  //Çàïóñêàåì êàëèáðîâêó
delete ResPtr;
if (FileExists("Kalibr.exe"))
 try {
  DeleteFile ("Kalibr.exe");
 } catch (...) {}
Action = (TBasicAction*)caFree;
}

Но при запуске встроенного exe-шника, выкидывает такую ошибку

[Cuprum5]

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

Извини, не знаю как это сделать.

- я не понял, что ты не знаешь как делать? Функцию Sleep вызывать? Вот так, если что:

Sleep(5000);  //задержка 5 сек.

[Alex11223]

Где вы тут ярлык увидели? Вы просто .ехе файл создаете (саму программу).

А не удаляется потому что ShellExecute не ждет завершения программы.
Либо вызывайте удаление где-то потом в другом месте, либо используйте CreateProcess + WaitForSingleObject, примеров полно в гугле.

[madpitbull]

void __fastcall TForm1::Button2Click(TObject *Sender)
{
char *ResType = "EXEFILE";

TResourceStream* ResPtr = new TResourceStream((int)HInstance, "MYEXE", ResType);
ResPtr->SaveToFile("Kalibr.exe");
ShellExecute(Handle,"open","Kalibr.exe",NULL,NULL,SW_SHOWNORMAL);  //Çàïóñêàåì êàëèáðîâêó
delete ResPtr;
Sleep(2000);
if (FileExists("Kalibr.exe"))
 try {
  DeleteFile ("Kalibr.exe");
 } catch (...) {}
Action = (TBasicAction*)caFree;
}

функция Sleep срабатывает через заданное время и exe-шник удаляется.
но выкидывает ошибку, не пойму в чем проблема

[madpitbull]

Как оказалось Sleep тут не причем, функция работает и дает время на удаление!
Вышеуказанную ошибку вызывает код, который собственно удаляет exe:

if (FileExists("Kalibr.exe"))
 try {
  DeleteFile ("Kalibr.exe");
 } catch (...) {}
Action = (TBasicAction*)caFree;

Если его убрать все работает без ошибки, но соответственно exe-шник после закрытия не удаляется.

Помогите разобраться с ошибкой?

[Black Fregat]

О святая вера в телепатию великих гуру!
У Вас под рукой проект, отладчик..
А мы должны посмотреть в хрустальный шар и определить место ошибки..

Пройдите этот участок по шагам в отладчике и определите точно место, на котором оно падает. Или выкладывайте проект целиком.

Пока наиболее подозрительна строка

Action = (TBasicAction*)caFree;

Что это вообще? Откуда?