Texto del portapapeles sin Clipbrd.dcu

[ixMike]

Hola, gente del foro

Quería saber cómo obtener el texto del portapapeles usando la API de windows, y no la uses Clipbrd.

Hice un proyecto de prueba, pero no me funciona (solo consigue los carácteres #10#13)

Este es el código:

Código Delphi [-]
program ClipBoardTextFileCreator;
 
uses Windows;
 
var
  Puntero: PChar;
  HC: THandle;
  F: TextFile;
 
begin
OpenClipboard(GetModuleHandle(nil));
HC:=GetClipboardData(CF_TEXT);
Puntero:=GlobalLock(HC);
AssignFile(F, ParamStr(0)+'.txt');
ReWrite(F);
WriteLn(F, string(Puntero));
CloseFile(F);
GlobalUnlock(HC);
CloseClipboard;
end.

¿Alguien puede decirme dónde está el fallo?

Gracias.