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.