Discussion :

[JoseF]

Bonjour,

en Free Pascal est-il possible de récuperer ce qui est dans le presse papier de Windows ?

ou alors copier le presse papier de windows et le récuperer dans un fichier texte..

voila merci


JoseF

[Alcatîz]

Bonjour !

Avec les fonctions de l'API Windows OpenClipboard, GetClipboardData et CloseClipboard.

GetClipboardData renvoie un handle vers un bloc alloué dans le tas global de Windows. Pour récupérer les données, il faut fixer le bloc de mémoire avec GlobalLock, recopier le contenu et le débloquer avec GlobalUnlock.

[JoseF]

Bonjour ...

merci de la réponse mais vu mon niveau ca me parait trop compliqué...

si qq1 à un example de code source ce serait sympa.


bonne continuation

JoseF

[Alcatîz]

Petit exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Var hMemoire : tHandle;   (* Handle du bloc mémoire *)
    Pointeur : pChar;     (* Pointeur sur le bloc quand il est verrouillé *)
 
if OpenClipboard(hWindow)   (* hWindow = handle de la fenêtre *)
   then
     begin
       if IsClipboardFormatAvailable(cf_Text)
          then
            begin
              hMemoire := GetClipboardData(cf_Text);
              if hMemoire <> 0
                 then
                   begin
                     Pointeur := GlobalLock(hMemoire);
                     if Pointeur <> Nil
                        then
                          begin
                            { Ce que tu veux... }
                            GlobalUnlock(hMemoire);
                          end;
                   end;
            end;
       CloseClipboard;
     end;