Вывод надписи о том запущен ли процесс

[artbotva]

Всем доброго времени суток!
У меня такой вопрос как сделать так, чтобы на форме была надпись о том запущен ли процесс? И так чтобы она обновлялась, хотелось чтобы это выглядело так:
Включил прогу там надпись "процесс не запущен", запускаешь этот процесс и сразу надпись меняется на "процесс запущен"
Пользуюсь вот этим кодом ( если кому надо )

uses TlHelp32;

function processExists(exeFileName: string): Boolean;
var
    ContinueLoop: BOOL;
    FSnapshotHandle: THandle;
    FProcessEntry32: TProcessEntry32;
begin
    FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
    FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
    ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
    Result := False;
    while Integer(ContinueLoop) <> 0 do
    begin
      if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
        UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
        UpperCase(ExeFileName))) then
      begin
        Result := True;
      end;
      ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
    end;
    CloseHandle(FSnapshotHandle);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    if processExists('notepad.exe') then
      ShowMessage('process is running')
    else
      ShowMessage('process not running');
end;

Но здесь как видно инфа приходит при нажатии кнопки...

Расскажите как реализовать эту идею...
Заранее спасибо

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

В таймере это делай. Пользуй TTimer

[artbotva]

Сообщение от Человек_Борща

В таймере это делай. Пользуй TTimer

Ну я это то знаю, можешь написать инструкцию как это сделать.. буду очень благодарен

[Maincore]

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

Ну я это то знаю, можешь написать инструкцию как это сделать.. буду очень благодарен

А в чем проблема?
Кидаешь на форму Timer в событии OnTimer пишешь свой код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if processExists('notepad.exe') then
      label1.caption:='process is running'
    else
       label1.caption:='process not running';
end;

[artbotva]

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

А в чем проблема?
Кидаешь на форму Timer в событии OnTimer пишешь свой код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if processExists('notepad.exe') then
      label1.caption:='process is running'
    else
       label1.caption:='process not running';
end;

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

[Kix.IV]

Принципы везде одни и те же.