Code source pour développer une application, page 34
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
Calculer le nombre d'heures écoulées entre 2 dates
var Date1, Date2, DateD if : TDateTime; H, M, S, MS: Word; begin Date1 := StrToDateTime('24/02/2002 08:02:00'); Date2 := now; DateD if := Date2 - Date1; DecodeTime(DateD if , H, M,...
DosFichTail
Analyse complète d'un dossier avec la taille du dossier, des sous-dossier et des fichiers.Au départ il suffit de cliquer sur l'edit Dossier et l'interface fait le reste.
APDVisuFoto
Visualisateur d'image facile d'utilisation au format bmp, jpeg, ico, wmf, .....Les images peuvent à tout moment être vues en taille réelle. La fréquence de défilementautomatique peut...
SomEnLett
Ce programme est basé sur la fonction de conversion (Enlettre) du logicielCh if fresEnLettres de Jean Jamet. De nouvelles fonctions y ont été ajoutées :conversion de nombre à virgule, insérer...
PC-REBOURS
<img alt="PCRebours" src="http://www.fobec.com/CMS/userdata/member006/PCRebours.gif" vspace="4" align="left" border="0"...
publié le 19/02/2002 dans Logiciel par RITON
Afficher une note de l'auteur dans vos composants
Constructor YourComponentCreate(AOwner:TComponent);Begin Inherited Create(AOwner); {...} if (csDesigning in componentstate) and not (csloading in componentstate) then ...
Crypter un string
procedure TForm1.Button1Click(Sender: TObject); var s: String[255]; c: array[0..255] of Byte absolute s; i: Integer; begin {encode} s := 'SwissDelphiCenter.ch'; for i := 1...
Limiter l'accès à votre application dans le temps
Dans votre unité projet (.dpr): uses Forms, Sysutils, Dialogs, MyProgr in my_prog1.pas {Form1}; const email = 'my.mail@provider.xyz'; homepage = 'http://www.myhomepage.com'; //...
Tester le nom d'un fichier
const ShortForbiddenChars: set of Char = [';', '=', '+', '', '|', '"', '[', ']', ' ', '', #39]; LongForbiddenChars:...
Reperer la version de delphi par compilation conditionnelle
{$IFDEF VER140}{ ----------------- Delphi 6 ---------------------}{$ENDIF}{$IFDEF VER130}{ ----------------- Delphi 5 ---------------------}{$ENDIF}{$IFDEF VER120}{ ----------------- Delphi 4...
Changer une propriété dans tous les composants
Uses TypInfo; procedure TForm1.SetProperties(ClassName, SomeProperty: String; Value : boolean); var i : integer; PropInfo : PPropInfo; Component : TComponent; begin for i := 0 to...
Connaitre la vitesse du CPU
function GetCPUSpeed : Double; const DelayTime = 500; var TimerHi, TimerLo: DWORD; PriorityClass, Priority: Integer; begin PriorityClass := GetPriorityClass(GetCurrentProcess); ...
Savoir lorsque la résolution de l'écran est changée
...type ... private procedure WMDisplayChange( var Message:TMessage); message WM_DISPLAYCHANGE; public ... end; ... var Form1: TForm1;implementation{$R *.DFM} procedure ...
Utiliser le Joystick
Uses MMSYSTEM; var MyJoy : TJoyInfo; ErrorResult : MMRESULT; begin ErrorResult:= joyGetPos(joystickid1,@MyJoy); if ErrorResult = JOYERR_NOERROR then begin TrackBar1.Position :=...
Formater le texte dans un TRichedit à partir de raccourci
raccourci : Ctrl + B : grasCtrl + I :italiqueCtrl + S : surlignéCtrl + U :souligné procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char); const KEY_CTRL_B = 02; KEY_CTRL_I = ...
Afficher plusieurs colonnes dans un TFilelistBox
Procedure ShowMultiColumns(FileListBox : TFileListBox; bValue : Boolean); begin with TDirectoryListBox(FileListBox) do begin Columns := Ord(bValue) and (Ord(bValue) and 1); ...
Trouver le nom du CPU
uses Registry; function CPUname: string; var Reg: TRegistry; begin CPUname := ''; Reg := TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; if ...
Zoomer sur un Canvas
procedure SetCanvasZoomFactor(Canvas: TCanvas; AZoomFactor: integer); var i: integer; begin if AZoomFactor = 100 then SetMapMode(Canvas.Handle, MM_TEXT); else begin ...
Lire le mot sous le curseur de la souris dans un TRichedit
procedure TForm1.RichEdit1MouseMove(Sender: TObject; Sh if t: TSh if tState; X, Y: Integer); var iCharIndex, iLineIndex, iCharOffset: Integer; i, j, Pt: TPoint; s: string; begin with...
Limiter le nombre de lignes dans un TMemo
procedure TForm1.Memo1Change(Sender: TObject); const MaxLineCount = 5; begin if Memo1.Lines.Count > MaxLineCount then Memo1.Perform(EM_UNDO, 0, 0); Memo1.Perform(EM_EMPTYUNDOBUFFER, 0,...