Code source pour développer une application, page 21
Un sujet vous tient à coeur ou un code source à partager ? Le site est ouvert à tous, n'hesitez pas à publier sur Fobec.com
Code source informatique
Obtenir le libellé de la dernière erreur
Uses SysUtils //exemple procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(SysErrorMessage(GetlastError)); end; //donner une erreur claire pour l'utilisateur//exemple :...
Image Leach V1.5
Image leach is a little software that can do a lot of things. Given a URL, typed or directly acquired from Internet Explorer via a button, it lists all the picture of that URL.It is also possible via...
publié le 12/03/2005 dans Logiciel par Tactictoe
File Association
Comment connaitre le nom et le chemin du programme associe à un fichier choisi.Comment en extraire une icône 16x16 pixels, la copier dans un bitmap et l’utiliser sur un bouton.Comment lancer...
Editeur de macro SuperMacro
<img alt="Super_Macro" src="http://www.fobec.com/CMS/userdata/member041/Super_Macro.gif" align="left" border="0" vspace="4"...
publié le 27/02/2005 dans Logiciel par Adam
Memo... V1.0
<img alt="Memo" src="http://www.fobec.com/CMS/userdata/member009/Memo.png" align="right" border="0" vspace="4" hspace="10">Memo is a...
publié le 27/02/2005 dans Logiciel par Tactictoe
o_Cards.dll v1.2
Pourquoi ne pas développer un jeu de cartes ? Votre conjoint, vos enfants, vos amis adorent passer le temps en jouer au solitaire, grimpette, ramis, poker, ... Développement classique d'un jeu de...
Trier un TStringgrid
procedure SortStringGrid( var GenStrGrid: TStringGrid; ThatCol: integer); const TheSeparator = '@'; var CountItem, I, J, K, ThePosition: integer; MyList: TStringList; MyString,...
O_Cards.dll Demos
Ensemble de programmes avec leurs sources pour servir d'exemple à l'utilisation de o_Cards.dll, une dll permettant de programmer des jeux de cartes sans avoir à se soucier de la gestion...
Detecter l'existance des ScollBar
procedure TForm1.Button1Click(Sender: TObject);//Detecter l'existance des ScollBar par exemple sur un memo var WinStyle: HWND; begin //Récupérer des informations sur TControl dans la var...
tipsrepair
<img alt="capturetips" src="http://www.fobec.com/CMS/userdata/member036/capturetips.gif" align="right" border="0" vspace="4"...
publié le 15/02/2005 dans Logiciel par cre3000
Déplacer le curseur du memo en fonction de la position de la souris
procedure TForm1.Memo1MouseMove(Sender: TObject; Sh if t: TSh if tState; X, Y: Integer); begin Memo1.SelStart := LoWord(SendMessage(Memo1.Handle, EM_CHARFROMPOS, 0, MakeLParam(X, Y))); ...
Ajouter une seconde, minute ou heure à un TDateTime
procedure TForm1.Button1Click(Sender: TObject); var dTime: TDateTime; begin // Ajouter une seconde à dTime//1sec = 1/(24h x 60 min x 60 sec) dTime := now; dTime := dTime + 1.0 / 86400; ...
Intercepter couper/copier/coller dans un TEdit
unit MyEdit;interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, stdctrls, clipbrd;type TPreventNot if yEvent = procedure (Sender: TObject; Text: string; var...
Mettre des lignes en couleur dans un TRichedit
{ 1. Exemple: Ajouter une ligne en couleur dans un TRichedit} procedure AddColoredLine(ARichEdit: TRichEdit; AText: string; AColor: TColor); begin with ARichEdit do begin SelStart :=...
Vérifier la validité d'un nom de fichier
function IsValidFileName(Filename : string;IsLong : boolean) : boolean; const ShortForbiddenChars : set of...
Trouver le répertoire temporaire de Windows avec les API
uses Windows; function GetWindowsTempDir : string; var PPath : array[0..255] of char; begin GetTempPath (SizeOf (PPath), PPath); result := strpas(PPath); end;
Changer la date d'un fichier
procedure ChangeDateOfFile(FileName: string; NewDate: TDateTime); var TheFile: file; begin AssignFile(TheFile, FileName); Reset(TheFile); FileSetDate(TFileRec(TheFile).Handle, ...