var Pos: TPoint; Couleur:TColor; begin GetCursorPos(Pos); Couleur := DesktopColor(Pos.X, Pos.Y);
Salut je voudrais juste savoir quel uses il faut rajouter pour que ce petit code fonctionne ! Merci
C'est un oubli de ma part,il manque la fonction DeskTop Color... :'(Je corrige de suite...Merci@+Fabs
Bon le site marche pas,voicl a fonctionfunction DesktopColor(const X, Y: Integer): TColor;var c: TCanvas;begin c := TCanvas.Create; try c.Handle := GetWindowDC(GetDesktopWindow); Result := GetPixel(c.Handle, X, Y); finally c.Free; end;end;
cool ton code juste une question:comment vous faites tous pour trouver ces fonctions/procédures ?? je sais que c'est dans les DLL ou les fichiers DCU de delphi mais dès que j'en ouvre une dans le bloc-note ou delphi, c'est remplie de caracteres en + et pas formaté, illisible quoi ;(merci et bon' progr'++
Bonjour,slachz, n'essaye pas d'ouvrir de fichiers .dcu - ils sont compilés ! Mémorise plutot le nom du fichier. Exemple : tu trouves dans le dossier Lib un fichier Monfichierdcu.dcu (rempli de fonctions et tout et tout). Tu ouvres un projet, et dans la clause uses tu ajoutes "monfichierdcu". Delphi fera le reste. Pour acceder aux fonctions, tu vas n'importe-ou et tu tapes Monfichierdcu.(et un popup avec le contenu du dcu ! )Si tu n'as pas le fichier Monfichierdcu.PAS , tu ne pourras pas voir le code source :(Voila j'espère avoir répondu à ta question - un peu tard c'est vrai mais bon ;)A plus !
ahah ouii ça date (et va savoir pourquoi je n'ai pas désactiver la notification depuis le temps que je ne viens plus).En faite, ma question était plus de savoir comment connaitre les procédures proposées par les librairies, souvent -comme tu le dis toi même- disponible seulement sous forme compilées..J'ai trouvé depuis: les docs ! ( et internet aussi :3)En tout cas je te remercie tout de même de cette réponse (aah la joie d'internet ^^).
Bonjour, eh oui... ou ca s'arretera t-y leur progré mdr !j'ai essayé de répondre le mieux possible :) mais internet est plus instruit que moi (enfin les autres disent ca mais je n'en crois pas un mot :p ).A plus
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 598 987 membres 248 nouveaux aujourd'hui 15 441 membres club