Pascal - Salvare un determinato testo negli appunti.

Forum - Pascal - Salvare un determinato testo negli appunti.

()
Newbie

Messaggi:
Iscritto:

Postato alle 1:00
Giovedì, 01/01/1970

Ciao a tutti.
Come da titolo volevo chiedere come faccio a copiare una determinata stringa negli appunti (cioè come faccio in modo da poter attraverso codice fare ciò che fa CTRL+C su una stringa selezionata)...
grazie...

Phi (Member)
Expert

Messaggi: 241
Iscritto: 30/12/2009

Postato alle 20:06
Mercoledì, 10/03/2010

A cosa ti serve? Perchè ho in mente un modo ma so se ti fa bene

()
Newbie

Messaggi:
Iscritto:

Postato alle 21:12
Mercoledì, 10/03/2010

semplicemente il mio scopo è quello di prendere un determinato testo (parlando del pascal può essere una stringa letta con readln(stringa), ma anche per Delphi copiando il testo da una textbox) e copiarlo senza fare CTRL+C ma attraverso una funzione...

Poggi Marco (Member)
Guru

Messaggi: 969
Iscritto: 05/01/2010

Postato alle 21:56
Mercoledì, 10/03/2010

Una volta acquisito il testo, dove lo vuoi salvare?

()
Newbie

Messaggi:
Iscritto:

Postato alle 22:37
Mercoledì, 10/03/2010

in poche parole quello che voglio farlo è salvarlo in un memoria in modo tale che quando su un QUALSIASI altro editor io premo CTRL+V mi si copi quel testo... sono stato chiaro?

Phi (Member)
Expert

Messaggi: 241
Iscritto: 30/12/2009

Postato alle 22:58
Giovedì, 26/05/2011

Usando le API window puoi fare così:

Codice sorgente - presumibilmente Delphi

uses windows;
 
function copiaappunti(s:string) : boolean;
var
 hcopy : longint;
 i, l : byte;
 pcopy : pchar;
begin
openclipboard(0);
emptyclipboard;
l:=length(s);
hCopy := GlobalAlloc(GMEM_MOVEABLE, l+1);
pcopy := GlobalLock(hCopy);
for i := 1 to l do pcopy[i-1]:=s[i];
pCopy[l] := #0;
GlobalUnlock(hcopy);
copiaappunti := SetClipboardData(CF_TEXT, hCopy) <> 0;
closeclipboard;
dispose(pcopy);
end;

Ultima modifica effettuata da Phi il 26/05/2011 alle 23:00

Goblin (Member)
Expert

Messaggi: 375
Iscritto: 02/02/2011

Postato alle 21:22
Sabato, 28/05/2011

Se usi delphi è molto più semplice:
devi includere la unit "clipbrd" e poi basta assegnare il tuo valore alla clipboard con l'istruzione Clipboard.AsText := 'tua stringa';

G.

Ibis redibis non morieris in bello