Hallo,
ich hatte mich jetzt nur damit beschäftigt, das Programm in den Vordergrund zu stellen und es entsprechend zu aktivieren.
Wenn Du den Inhalt der Zwischenablage in dem Memo haben willst musst Du noch folgendes Implementieren:
Delphi-Quellcode:
procedure TForm1.GetClipboard;
var
clip:TClipboard;
begin
clip := TClipboard.Create;
try
self.Memo1.Text := clip.AsText;
finally
clip.Free;
end;
end;
Die Warnmeldung hat nix zu sagen. Du kannst das bolOK auch entsprechend aus dem Code entfernen. Es ist sinnvoll, wenn Du noch weitere Verarbeitungen durchführen möchtest.
In diesem Fall könnte bolOK = false sein, wenn der Key nicht Registriert wurde. Du kannst z. b. beim Programmstart eine entsprechende Meldung auf dem Bildschirm anzeigen.
Gruss
Samson
end;