Codes sources Delphi353 ressources dans cette catégorie

Retrouvez ici tous les meilleurs téléchargements

Lecture des informations contenues dans les fichiers CDA de Windows. Ces fichiers sont visibles dans l'explorateur lorsque l'on ouvre un CD audio.

Vérifier la présence d'une disquette dans le lecteur.

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.

Petit programme qui permet de chercher les nombres amis.

Comment déterminer la parité d'un nombre.

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.

Cette méthode permet d'appeler que des méthodes publiées (section published), mais elle est trés pratique pour changer le traitement d'un programme en fonction des choix utilisateur.

Visualisateur de bibliothèque de type (ITypeLib).

L'utilisation de cette fonction nécessite des droits supplémentaires. La fonction donnée dans le source sur la modification des droits d'un compte permet d'ajouter le droit SE_BACKUP_NAME au compte en cours avant d'effectuer la sauvegarde.

Utilisation d'un StringGrid pour afficher les diverses polices de caractères, ainsi que le code ASCII des caractères.

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

La librairie ToolHelp n'est pas disponible sous Windows NT4, cette méthode permet de pallier à ce problème et obtenir la liste des process sous NT.
Cette procédure fonctionne aussi avec Windows 2000 et Windows XP.

Tester si les instructions SSE SSE2 ou 3DNow sont disponibles sur le processeur.

Si vous testez votre application sous Windows XP, vous constaterez que les contrôles ont toujours le même aspect, pas le nouveau look.
Pour changer cet état de fait, rien de plus simple. Il suffit d'ajouter manuellement une ressource spéciale que Delphi ne génère pas : un manifeste XP.
Vous trouverez facilement en cherchant un peu sur internet des fichiers .res ou des composants vous permettant d'inclure ce manifeste sans vous casser la tête.
Le problème se pose pourtant avec les Application Panneau de Configuration plus connues sous le nom de control applets. Pour celles-ci les composants ou fichiers tout prêts habituels ne fonctionnent pas.

La solution :

En fait, le problème vient du nom de la ressour ... Voir la suite

Voici un petit jeu très connu, qui en est pour le moment à la première version, avec certainement encore beaucoup de bugs.

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.

Ce jeu permet de tester sa dextérité à manier la souris. Il fait appel à un StringGrid.

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

le programme Tree.pas permet affiche un Sapin de Noël avec lequel on peut créer des animations lumineuses et les tester, le but n'est pas d'afficher un beau Sapin graphique mais de créer une figure de 8 LED avec un ordre d'affichage et un temps d'allumage et de la tester avant de générer un fichier TXT de cette figure qui s'intègrera dans un programme fait pour un ATTiny13 (ou pour plus de mémoire un ATTiny45 ou 85) écrit pour le logiciel Arduino ou pour le logiciel Amtel Studio 6.2. [b][/b][b][/b]

Simple éditeur de texte utilisant par défaut la page de code 850.

Le programme a été compilé avec Delphi XE2.

Dérivé d'un exemple du manuel de référence Freepascal, voici une procédure d'analyze d'un objet Lazarus à des fins de debug:

Exemple d'usage:

analyzeObject([items], 'items');

items (TJSONObject) = { variable0 : "[wan=adsl]", start0 : 1, stop0 : 10 }

analyzeObject([lastOptions], 'lastOptions');

lastOptions (TStringList) =
[ 0]: 3
[ 1]: "[wan=adsl]"