if(ParamStr(1)=="/delete")
DeleteFile(ParamStr(2));
Как завершить приложение?
try
{
ADOConnection1->Connected = true;
}
catch(...)
{
MessageDlg("Ошибка", mtError, TMsgDlgButtons() << mbOK, 0);
DestroyWindow(Application->Handle);
Application->ProcessMessages();
}
Так правильно?
{
ADOConnection1->Connected = true;
}
catch(...)
{
MessageDlg("Ошибка", mtError, TMsgDlgButtons() << mbOK, 0);
DestroyWindow(Application->Handle);
Application->ProcessMessages();
}
Так правильно?
Цитата: Tramp
try
{
ADOConnection1->Connected = true;
}
catch(...)
{
MessageDlg("Ошибка", mtError, TMsgDlgButtons() << mbOK, 0);
DestroyWindow(Application->Handle);
Application->ProcessMessages();
}
Так правильно?
{
ADOConnection1->Connected = true;
}
catch(...)
{
MessageDlg("Ошибка", mtError, TMsgDlgButtons() << mbOK, 0);
DestroyWindow(Application->Handle);
Application->ProcessMessages();
}
Так правильно?
TApplication::Terminate
Спасибо! работает!
А в каком случае Close() не будет работать?
А в каком случае Close() не будет работать?
Цитата: Tramp
Спасибо! работает!
А в каком случае Close() не будет работать?
А в каком случае Close() не будет работать?
В OnFormCreate, TForm:TForm(...)
Вот так пришлось сделать:
void __fastcall TMain::ApplicationEventsException(TObject *Sender,
Exception *E)
{
Application->Terminate();
}
void __fastcall TMain::ApplicationEventsException(TObject *Sender,
Exception *E)
{
Application->Terminate();
}
В продолжение вопроса.
Как корректно написать код. Нужно закрыть приложение, потом открыть батник (*.bat). Это необходимо т.к. батник перемещает программу, которая его запустила.
Как корректно написать код. Нужно закрыть приложение, потом открыть батник (*.bat). Это необходимо т.к. батник перемещает программу, которая его запустила.
Цитата: EpoxDe1u
В продолжение вопроса.
Как корректно написать код. Нужно закрыть приложение, потом открыть батник (*.bat). Это необходимо т.к. батник перемещает программу, которая его запустила.
Как корректно написать код. Нужно закрыть приложение, потом открыть батник (*.bat). Это необходимо т.к. батник перемещает программу, которая его запустила.
Если я правильно понимаю, нужно переместить программу(не скопировать), можно просто скопировать программу перед выходом, а потом запускаешь батник, который удаляет текущюю программу.
Цитата:
а потом запускаешь батник, который удаляет текущюю программу.
Как его запустить автоматически по закрытии главной программы? Пробовал через Winexe, батник только мелькает на экране, и не выполняет свое содержимое (переместить прогу, запустить эту прогу из нового места).
Цитата: EpoxDe1u
Как его запустить автоматически по закрытии главной программы? Пробовал через Winexe, батник только мелькает на экране, и не выполняет свое содержимое (переместить прогу, запустить эту прогу из нового места).
в теле самого ехе-шника врядли удасться запустить его удаление...
можно сделать что бы bat-ник запускал аппликуху, и последенй строчкой после ее завершения удалял
Добавить несколько строчек кода надо (к примеру на onformcreate):
и из батника запускать прогу в новоустановленом месте так: new_dir\app.exe /delete old_dir\app.exe.
Хотя помоему это полный изврат.
Код:
и из батника запускать прогу в новоустановленом месте так: new_dir\app.exe /delete old_dir\app.exe.
Хотя помоему это полный изврат.
Bat-файл для удаления проги (запускается прогой в конце её работы).
Код:
:SomeLabel
del SomeFile.exe
if exist SomeFile.exe goto SomeLabel
del SomeFile.exe
if exist SomeFile.exe goto SomeLabel
Только что попробывал
PostQuitMessage(0);
прекрасно работает В OnFormCreate, TForm:TForm(...)
А вот на это вылетает ошибка.
ExitProcess(0);
У меня такой вопрос
после команды PostQuitMessage(0);
прерывается выполнения функции или
нужно писать Abort(); ?
PostQuitMessage(0);
прекрасно работает В OnFormCreate, TForm:TForm(...)
А вот на это вылетает ошибка.
ExitProcess(0);
У меня такой вопрос
после команды PostQuitMessage(0);
прерывается выполнения функции или
нужно писать Abort(); ?
Цитата: Tramp
Только что попробывал
PostQuitMessage(0);
прекрасно работает В OnFormCreate, TForm:TForm(...)
А вот на это вылетает ошибка.
ExitProcess(0);
У меня такой вопрос
после команды PostQuitMessage(0);
прерывается выполнения функции или
нужно писать Abort(); ?
PostQuitMessage(0);
прекрасно работает В OnFormCreate, TForm:TForm(...)
А вот на это вылетает ошибка.
ExitProcess(0);
У меня такой вопрос
после команды PostQuitMessage(0);
прерывается выполнения функции или
нужно писать Abort(); ?
The PostQuitMessage function posts a WM_QUIT message to the thread's message queue and returns immediately; the function simply indicates to the system that the thread is requesting to quit at some time in the future.
When the thread retrieves the WM_QUIT message from its message queue, it should exit its message loop and return control to the system. The exit value returned to the system must be the wParam parameter of the WM_QUIT message.
ЗЫ: возможны утечки памяти... хотя винда наверно умная, справится
oxotnik333 что же делать дабы избежать утечки памяти?
Цитата: Tramp
oxotnik333 что же делать дабы избежать утечки памяти?
перед PostQuitMessage поудалять все динамически-созданные объекты
oxotnik333 а у меня таких объектов нет ;) и форма одна