Nessuno ha mai smanettato con le ClipBoard..
Ho provato a consultare la guida in linea e a cercare un po' per la rete ma non ho trovato nulla di quello che fa al caso mio
Ho trovato solo come fare, se quello che ho nella ClipBoard è del Testo, ma niente che riguardi qualcosa di generale..
codice:
function SaveClipboardTextDataToFile( sFileTo : string ) : boolean;
var
ps1,
ps2 : PChar;
dwLen : DWord;
tf : TextFile;
hData : THandle;
begin
Result := False;
with Clipboard do
begin
try
Open;
if( HasFormat( CF_TEXT ) ) then
begin
hData := GetClipboardData( CF_TEXT );
ps1 := GlobalLock( hData );
dwLen := GlobalSize( hData );
ps2 := StrAlloc( 1 + dwLen );
StrLCopy( ps2, ps1, dwLen );
GlobalUnlock( hData );
AssignFile( tf, sFileTo );
ReWrite( tf );
Write( tf, ps2 );
CloseFile( tf );
StrDispose( ps2 );
Result := True;
end;
finally
Close;
end;
end;
end;
Ormai non so più dove cercare..
Possibile che debba fare una funzione per ogni tipo di file? :master: