Как выполнить действие только один раз?

[dolphin705]

Здравствуйте, у меня возник вопрос как сделть чтобы в приложении можно было только один раз нажать на кнопку и чтобы при последующих запусках при нажатии она не работала, пытался через реестр, но не получается (((

[Alex Cones]

В реестре заведи переменную, которую изменяй. тут все просто.

[uberchel]

Alex Cones ! можно конечно и так, но лучше так

var
  HM: THandle;
...

function OneRun: boolean;
begin
  HM := OpenMutex(MUTEX_ALL_ACCESS, false, 'Proga');
  Result := (HM <> 0);
  if HM = 0 then HM := CreateMutex(nil, false, 'Proga');
end;

[TwiX]

Что такое Mutex?

[uberchel]

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

Что такое Mutex?

Mutex(mutual exclusion) — взаимное исключение, для синхронизации нескольких потоков!

[Stilet]

uberchel

Я что-то не пойму как мютекс может помочь определить была ли нажата кнопка в предидущих запусках? А если я комп выключу, батарейку выдерну и запущу его лет через 200? Тут реестр как раз.