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.

[[seoane]]

El problema es una cosa sencillita, pero ya puestos, he retocado un poco el código espero que no te moleste

Código Delphi [-]
var
  hText: THandle;
  pText: PChar;
  F: TextFile;
begin
  if IsClipboardFormatAvailable(CF_TEXT) then
    if OpenClipboard(0) then
    try
      hText:= GetClipboardData(CF_TEXT);
      if hText <> 0 then
      begin
        pText:= GlobalLock(hText);
        if pText <> nil then
        begin
          AssignFile(F, ParamStr(0)+'.txt');
          {$I-}
            Rewrite(F);
          {$I+}
          if IOResult=0 then
          begin
            // Aqui estaba el error, para que lo convierta en string primero hay que indicarle que es un PChar
            WriteLn(F, String(PChar(pText)));
            CloseFile(F);
          end;
          GlobalUnlock(hText);
        end;
      end;
    finally
      CloseClipboard;
    end;
end;

[dec]

Hola,

Joroba Seoane, eres como un libro abierto, no dejas de sorprender con el código fuente que escribes como un poeta... de los buenos.

[[seoane]]

Empezado por dec

Hola,
Joroba Seoane, eres como un libro abierto, no dejas de sorprender con el código fuente que escribes como un poeta... de los buenos

Me vas a hacer sonrojar. Citando a los clásicos "Hasta el mas tonto hace relojes"

[dec]

Hola,

"Hasta el más tonto hace relojes", ¡Ay!, ya lo creo yo que sí. Pero, no es tu caso Seoane, no es tu caso. Y no digo que no pudieras dedicarte a relojero.

[roman]

Oigan, todo esto está muy bonito, de veras que sí, y coincido con David en que seoane es sorprendente; tal pareciera que cualquier cosa que se pregunte, él tiene justo enfrente un pedazo de código apropiado. Pero hay algo que me da curiosidad, sólo eso, ¿por qué no usar la unidad clipbrd?

// Saludos