Вторая копия программы

[Михаил Юрьевич]

Запрещаю запуск второй копии программы через мьютекс.

 Var HM :THandle;
function Check: boolean;
begin
  HM:=OpenMutex(MUTEX_ALL_ACCESS, false, 'form');
  Result:=(HM<>0);
if HM=0 then begin
HM:=CreateMutex(nil, false, 'form');


end
else begin
Showmessage(');
  
end;

Подскажите как можно при проверки мьютекса ,в данном случае Showmessage('); , заменить на процедуру из программы, например
"WindowsState=wsMaximized"

[Человек_Борща]

с головой:

function FirstHinstanceRunning(RunMode: Integer = 0): boolean;
const
  MemFileSize = 127;
var
  MemHnd: HWND;
  MemFileName: string;
  lpBaseAddress: ^HWND;
  FirstAppHandle: HWND;
begin
  Result := False;
  MemFileName := Application.ExeName;
  case RunMode of
    0:
      MemFileName := AnsiReplaceText(MemFileName, '\', '/');
    1:
      MemFileName := ExtractFileName(MemFileName);
  else
    Exit;
  end;
  MemHnd := CreateFileMapping(HWND($FFFFFFFF), nil,
    PAGE_READWRITE, 0, MemFileSize, PChar(MemFileName));
  if GetLastError <> ERROR_ALREADY_EXISTS then
  begin
    if MemHnd <> 0 then
    begin
      lpBaseAddress := MapViewOfFile(MemHnd, FILE_MAP_WRITE, 0, 0, 0);
      if lpBaseAddress <> nil then
        lpBaseAddress^ := Application.Handle;
    end;
  end
  else
  begin
    Result := True;
    if MemHnd <> 0 then
    begin
      lpBaseAddress := MapViewOfFile(MemHnd, FILE_MAP_READ, 0, 0, 0);
      if lpBaseAddress <> nil then
      begin
        FirstAppHandle := lpBaseAddress^;
        ShowWindow(FirstAppHandle, SW_RESTORE);
        SetForegroundWindow(FirstAppHandle);
      end;
    end;
  end;
  if lpBaseAddress <> nil then
    UnMapViewOfFile(lpBaseAddress);
end;

  //Не разрешён запуск более 1 копии HLR
  if not AllowedMultiRUN then
  begin
    if FirstHinstanceRunning(1) then
    begin
      Exit;
    end;
  end;