Codes sources Delphi344 ressources dans cette catégorie

Retrouvez ici tous les meilleurs téléchargements

Pour créer ce lien il faut suivre les étapes suivantes :
1 - Ajouter un label sur une fiche ;
2 - Définir un police avec le style souligné ( Label1.Font.Style=[fsUnderline] ) ;
3 - Modifier le curseur du label ( Label1.Cursor=crHandPoint ) ;
4 - Ajouter un Hint sur le label ( Label1.ShowHint=True et Label1.Hint='Visitez mon site :' ) ;
5 - Sur le OnClick ajouter le code ci-dessous :

Procedure TForm1.Label1Click(Sender: TObject);
Begin
ShellExecute(Handle,'OPEN','http://nono40.fr.st',Nil,Nil,SW_SHOW);
End;

Il faut ajouter ShellApi dans le Uses pour que le code fonctionne.

Sprays de formes et de comportements divers.

Création d'un composant WinForm personnalisé dérivant du type System.Windows.Forms.UserControl. Ce composant est une horloge analogique avec ou sans l'aiguille des secondes.

La méthode proposée ici est l'adaptation à Delphi 8 de l'article de CGI : Création d'un contrôle WinForm pour .Net.

Ce source a pour but de montrer comment modifier les droits d'un compte pour des fonctions particulières. Par exemple pour la sauvegarde d'une partie de la base de registre un compte doit avoir le droit SE_BACKUP_NAME.

L'utilsation de la fonction ci-dessous est simple :
- Pour activer un droit :
LoggedSetPrivilege(GetCurrentProcess,'SeBackUpPrivilege',True);
- Pour desactiver un droit :
LoggedSetPrivilege(GetCurrentProcess,'SeBackUpPrivilege',False);

Comment écrire une Clé DWORD dans la Base de Registre.

Ce programme montre une méthode basée sur le APIs pour obtenir la liste des icônes du bureau et éventuellement de modifier leur position.
Cette méthode explique la mise en place d'une zone mémoire accessible par l'application dont on veut lire/modifier des informations.

Bloquer le clavier et la souris.
Attention, il faut prévoir un déblocage dans le temps ! Sinon, il faut fermer l'application avec Alt-Ctrl-Sup.

Comment avoir un curseur personnalisé dans votre application.

Ce source présente une fonction simple de mise à l'heure du PC à partir d'une application Delphi. Elle utilise la fonction API SetSystemTime, l'heure passée en paramètre de cette fonction doit être celle de Greenwich. Elle est donc corrigée à l'aide de la fonction API GetTimeZoneInformation afin de déterminer le décalage horaire dû au fuseau, et le décalage dû à la période été/hiver.

Comment ouvrir une form dans un conteneur, comme un TPanel par exemple.

Comment déplacer une fiche avec les flèches.

Une table de billard en 3D avec 2 spots au-dessus et possibilité de mettre une boule en mouvement.

L'itinéraire du Cavalier.

Démonstration d'un algorithme pour trouver un chemin passant sur toutes les cases du damier, sans jamais passer deux fois sur la même case. Adapté d'un script Lua.

https://rosettacode.org/wiki/Knight%27s_tour#Lua

Exemple d'utilisation de la bibliothèque Cairo.

Pour cet exemple je me suis servi de tuto déjà existants que j'ai bricolé pour avoir mon résultat.
Le seul morceau de bravoure a été de récupérer le nom du Static text dans lequel WS met son résultat
Par simplicité j'ai modifié les scripts pour ajouter un séparateur, WS en utilise un mais c'est l'espace et dans cet exemple le nom du processeur contient des espaces.
Pour ce qui est du fichier il suffit de demander à WS de renvoyer les résultats dans un fichier txt.
Voir la modification apportée au Script.

Ceci est pour corriger le problème de Delphi sur TRadioGroup.SetFocus, car dans ce cas le focus n'est pas placé sur un des boutons du composant. Le clavier n'est donc ensuite pas utilisable pour changer la valeur du RadioGroup.
Le code présenté ici permet de mettre le focus directement sur l'un des boutons du groupe.

Ce programme permet de jouer au Taquin.

Une image est montrée à l'utilisateur puis elle est "mélangée" et l'utilisateur doit la reconstituer en déplaçant le "trou".

• Téléchargez l'exécutable.

Table de conversion pour les caractères spéciaux sous forme de .inc à inclure dans votre source.
Version simplifiée ici.

Voici une fonction pour imprimer un TBitmap

Une fonction relativement utile quand on veut connaître le chemin d'une dll, en particulier s'il s'agit d'une dll COM.

Cette fonction gère correctement les 2 types de système d'exploitation possibles (Win9x et WinNT).

Comment exécuter les fichiers CPL de votre système.