Übernahme mit GlobalGetAtomName

[marabu]

Hallo Gerd,

wenn die Rückgabewerte der Funktionen in Ordnung sind, dann prüfe doch mal deine Eingabewerte. Grundsätzlich gibt es kein Problem mit Leerzeichen in Atom-Strings:

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  cBuf: array [Byte] of Char;
  a: ATOM;
begin
  FillChar(cBuf, SizeOf(cBuf), #0);
  a := GlobalAddAtom('Eins Zwei Drei');
  FillChar(cBuf, SizeOf(cBuf), #0);
  try
    GlobalGetAtomName(a, cBuf, SizeOf(cBuf));
    ShowMessage(cBuf);
  finally
    GlobalDeleteAtom(a);
  end;
end;

Freundliche Grüße