MessageDlg или ShowMessage Проверка на запущенный процесс

[АлександрDelphi]

Я столкнулся с такой проблемой..
Мне надо что бы сообщение показывало с рандомным заголовком RandomPassword..
Мне надо сделать как на скрине
Screenshot_1.jpg
первые 2 скрина как надо сделать что бы показывало а 3 скрин это у меня..
Код на проверку запущенного приложения

program Project1;
uses
  Windows,
  Forms,
  Dialogs,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.RES}

Const
 MemFileSize = 1024;
 MemFileName = 'one_inst_demo_memfile';
 over36 = 36;
Var
 MemHnd : HWND;
 H: THandle;
begin
  H := CreateMutex(nil, True, '$FFFFFFFF');
if GetLastError = ERROR_ALREADY_EXISTS then
begin

MessageDlg('Программа уже запущена',mtInformation,[mbOK],2);
Exit;
end;
  MemHnd := CreateFileMapping(HWND($FFFFFFFF),
                              nil,
                              PAGE_READWRITE,
                              0,
                              MemFileSize,
                              MemFileName);

  if GetLastError<>ERROR_ALREADY_EXISTS then
  begin
   Application.Initialize;
   Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
  end;
  CloseHandle(MemHnd);

end.

Мне надо как то сделать что бы выводило сообщение с рандомным значение в заголовке и с датой которую я укажу ..
Зарание спасибо за помощь!

[northener]

Дурью ты маешься.
Чуть-чуть более продвинутый кулхацкер обойдёт такую "защиту".

[АлександрDelphi]

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

Дурью ты маешься.
Чуть-чуть более продвинутый кулхацкер обойдёт такую "защиту".

Причем тут защита?
Тут о ней и речи не было..
Пусть ломают сколько угодно
-----------------------
Я попросил помочь а не про какую то защиту мне тут втирать..
Это всего навсего запрет на 2 запуск ..

[northener]

Сообщение от АлександрDelphi

Причем тут защита?
Тут о ней и речи не было..
Пусть ломают сколько угодно
-----------------------
Я попросил помочь а не про какую то защиту мне тут втирать..
Это всего навсего запрет на 2 запуск ..

Запрет на "2 запуск.." делается совсем иначе. И уж совсем не предполагает рандомный заголовок окна.
Так что либо ты бредишь, либо врёшь.

[kropotkina-alice]

Зачем же MessageDlg???
Вы же не предлагаете юзеру какой-то выбор (т.е. не собираетесь вести с ним диалог).
Так что в данном случае надо использовать ShowMessage (просто известить юзера)...
Хотя и это лишнее. Если запускается второй экземпляр программы, его нужно "убить" и переключиться на запущенный первый экземпляр без всяких извещений...

[FaTaL]

Чтобы управлять заголовком, используйте MessageBox.

[min@y™]

У меня есть чудесный компонент по сабжу, простой, как 3 рубля.

284964.jpg

[eoln]

Запрет на "2 запуск.." делается совсем иначе.

Запрет на 2-ой запуск легко и безопасно делается именно через CreateMutex, только имя мьютекса нужно подбирать несколько иначе

[beegl]

когда-то простенько делал так:

rogram Intertelecom;

uses
  Forms,
  syncobjs,
  messages,
  windows,
  Unit1 in 'Unit1.pas' {IntertelecomForm},
  Unit2 in 'Unit2.pas' {ReportFormFx};

{$R *.res}
var
  CheckEventst: TEvent;

procedure FormCreateEx;
begin
  CheckEventst := TEvent.Create(nil, false, true, 'MYPROGRAM_Run_Intertelcom');
  if CheckEventst.WaitFor(10) <> wrSignaled then
  begin
    Halt; // «десь можно завершить программу или сделать еще что-нибудь.
  end;
end;
begin
  FormCreateEx;
  Application.Initialize;
  Application.ProcessMessages;
  Application.CreateForm(TIntertelecomForm, IntertelecomForm);
  Application.CreateForm(TReportFormFx, ReportFormFx);
  Application.Run;
end.

[АлександрDelphi]

Ладно и на этом благодарю(