перезагрузка приложения

[skalt12]

Приветствую всех! у меня вопрос, каким макаром можно перезагрузить работающее приложение?
Я делаю так, создаю еще одно маленькое приложение
в нем убиваю процесс:

uses Tlhelp32;
...
function KillIt(ExeFileName:string):integer;
const  PROCESS_TERMINATE=$0001;
var  Co:  BOOL;
      FS:  THandle;
      FP:  TProcessEntry32;
begin
  result  :=  0;
  FS  :=  CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FP.dwSize  :=  Sizeof(FP);
  Co  :=  Process32First(FS, FP);
  while integer(Co) <> 0 do
    begin
      if ((UpperCase(ExtractFileName(FP. szExeFile)) = UpperCase            (ExeFileName)) or
     (UpperCase(FP.szExeFile) = UpperCase(ExeFileName))) then
        Result := Integer(TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0),
    FP.th32ProcessID),0));
    Co := Process32Next(FS, FP);
end;
  CloseHandle(FS);
end;

и открываю мое перезапускаемое приложение по новой:

WinExec(ExtractFilePath(paramstr(0)) + 'prog_Name.exe')

Расположено мини-приложение в корне основной программы.. То есть, в основном приложении жму "перезагрузить", открывается мини-приложение, завершает процесс, открывает снова утилиту и завершается само..

А как-нибудь попроще можно все это реализовать?

[VintProg]

Приветствую всех! у меня вопрос, каким макаром можно перезагрузить работающее приложение?

Перегрузить самого себя.

[Impuls1989]

Думаю копать надо в сторону exec. Так называемый "суицидальный запуск". В Си exec заменяет текущий поток другим приложением. Насчет Delphi не кажу (не знаю) но думаю нечто похожее должно быть...

[BOBAH13]

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

Приветствую всех! у меня вопрос, каким макаром можно перезагрузить работающее приложение?
Я делаю так, создаю еще одно маленькое приложение
в нем убиваю процесс:

uses Tlhelp32;
...
function KillIt(ExeFileName:string):integer;
const  PROCESS_TERMINATE=$0001;
var  Co:  BOOL;
      FS:  THandle;
      FP:  TProcessEntry32;
begin
  result  :=  0;
  FS  :=  CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FP.dwSize  :=  Sizeof(FP);
  Co  :=  Process32First(FS, FP);
  while integer(Co) <> 0 do
    begin
      if ((UpperCase(ExtractFileName(FP. szExeFile)) = UpperCase            (ExeFileName)) or
     (UpperCase(FP.szExeFile) = UpperCase(ExeFileName))) then
        Result := Integer(TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0),
    FP.th32ProcessID),0));
    Co := Process32Next(FS, FP);
end;
  CloseHandle(FS);
end;

и открываю мое перезапускаемое приложение по новой:

WinExec(ExtractFilePath(paramstr(0)) + 'prog_Name.exe')

Расположено мини-приложение в корне основной программы.. То есть, в основном приложении жму "перезагрузить", открывается мини-приложение, завершает процесс, открывает снова утилиту и завершается само..

А как-нибудь попроще можно все это реализовать?

А вот такой идеии не возникало?
1. Сохранение (если есть что) данные, настройки вывод приложения в конце концов
2. Запуск копии (имеется ввиду ShellExecute или CreateProcess самого себя)
3. Спокойное завершения себя (но уже известно что перед выполнением 2го пункта вы освободили все занимаемые и потенциально в будущем занимаемые ресурсы другой копией вашего приложения)

Все элементарно.

[skalt12]

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

А вот такой идеии не возникало?
1. Сохранение (если есть что) данные, настройки вывод приложения в конце концов
2. Запуск копии (имеется ввиду ShellExecute или CreateProcess самого себя)
3. Спокойное завершения себя (но уже известно что перед выполнением 2го пункта вы освободили все занимаемые и потенциально в будущем занимаемые ресурсы другой копией вашего приложения)

Все элементарно.

да что-то обошла меня стороной такая идея =)

действительно, всё оказалось куда проще

  ShellExecute (mainWin.Handle, nil, PChar (Application.ExeName), nil, nil, SW_RESTORE);
  Application.Terminate;

вот так получилось