Verhindern eine Anwendung mehrfach zu starten

[himitsu]

Es lebe Unicode ... der Code war noch aus Zeiten von vor 2009

Hab's nicht getestet, aber ich denke mal so müsste es aussehn:

Delphi-Quellcode:

{ 604 OneInstance.pas }

          SetString(S, PChar(lpData), cbData div 2);

    cbData:= StrLen(lpData) * 2;

Delphi-Quellcode:

{ 149 OneInst.pas }

  cbData := cbData * 2;
  Result := GetMemory(cbData);

Bzw. wenn man es ganz genau nimmt, dann statt 2 besser ein SizeOf(Char) .

Aber 100% richtiger wäre es, wenn man den Code "richtig" fest auf UnicodeString/WideString, PWideChar und 2 umstellt, anstatt String, PChar und SizeOf(Char).