Wenn ich folgenden Code compiliere passiert folgendes.
Beim ersten Mal drücken auf Button1 wird das Semaphore createt.
Beim zweiten Mal drücken des Button1 erscheint völlig korrekt die Meldung, dass das Semaphore schon gesetzt ist.
Nun drücke ich auf Button2 um das Semaphore wieder zurückzusetzen.
Wenn ich dann auf Button1 drücke, ist das Semaphore immer noch gesetzt. Wieso ?
Das gleiche auch mit
Mutex. Was mach ich falsch ?
Code:
var
Form1: TForm1;
hSem : THandle;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
hSem := CreateSemaphore(nil,0,1,PCHAR('TS'));
if (hSem <> 0) and (GetLastError() = ERROR_ALREADY_EXISTS) then
MessageDlg('Semaphore gesetzt', mtWarning, [mbOK], 0);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if hsem <> 0 then releaseSemaphore(hsem,1,nil);
end;