Обновление копии программы в оперативной памяти.

[Garacio_cain]

Есть программа. Она запущена, при запуске второй копии она (вторая копия) убивает первую и продолжает работу. Проверяю запущенную программу по мьютексу а вот убить первую что то не получилось.

hMutex := CreateMutex(0, true , 'Radionic');
  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
    FullProgPath := PChar(Application.ExeName);
    WinExec(FullProgPath, SW_SHOW); // Or better use the CreateProcess function
    Application.Terminate; // or: Close;
  end;

[BOBAH13]

Гм... а просто найти окно первой копии и послать к примеру WM_QUIT или что еще. Не ужели это так сложно ?

[Garacio_cain]

Логично ! Как то не додумался до этого!

[Garacio_cain]

А вот нифига не срабатывает. Сделал так, программа при запуске в реестре считываешь хеш МД5 времени и даты запуска предыдущей копии программы и генерирует новый хеш для себя, который сохраняет в реестре и по старому хешу передает PostMessage(FindWindow(nil, PChar(last)), WM_QUIT, 0, 0); но почему то выгружается сама даже если она одна запущена.

[Terran]

Попробуйте так:

Procedure Only;
Var
HMutex: Integer;
H: THandle;
Begin
HMutex:=CreateMutex(Nil, True, 'Radionic');
If GetLastError <> 0 Then
Begin
Form1.Caption:='Form';
H:=FindWindow(Nil,'Form1');
If H=0 Then
Exit;
PostMessage(H, WM_CLOSE, 0, 0);
End;
Form1.Caption:='Form1';
End;
Procedure TForm1.FormCreate(Sender: TObject);
Begin
Only;
End;

[BOBAH13]

Для начала... Вызывайте лучше SendMessage вместо PostMessage, таким образом Вы будите дожидаться обработки сообщения. Второе, это то что сделайте на подобии этого

var Wnd: HWND;
begin
  Wnd := FindWindowW(PWChar('MyClass'), NIL);
  if (Wnd <> MyWindowHandle) then
     SendMessage(Wnd, WM_QUIT, 0, 0);
end;

Ну или вообще лучше свое сообщение создать,

SendMessage(Wnd, RegisterWindowMessageW('WM_MYMESSAGE'), 0, 0);

И в своей же программе, при получении этого сообщения вызывать типа

Application.Terminate;