Code source pour développer une application, page 33
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
Utiliser un TComboBox pour choisir une couleur
{IMPORTANT : fixer le style de ComboBox1 à csOwnerDrawVariable} const ColorConst: array[0..15] of TColor = (clBlack, clMaroon, clGreen, clOlive, clNavy, clPurple, clTeal, clGray, clSilver,...
Dessiner un TForm d'après un Bmp
{prendre de préférence un bmp monochrome, ou 16 couleurs}unit Unit1;interface uses Windows, Classes, SysUtils, Graphics, Forms, Controls, ExtCtrls;type TRGBArray = array[0..32767] of TRGBTriple;...
Arrondir une valeur avec un nombre de décimale prédéfini
function Rounder( var Value: Double; Decimals: Integer): Double; var j: Integer; A: Double; begin A:=1; Case Decimals of 0 : A:=1; 1 : A:=10; else for j:=1 to Decimals do A := A...
GO
évolution de CDD qui lui même remplace la commande "CD" sous DOS.Cette outil est indispensable aux personnes qui travaillent sous DOS. GO donne l'ensembledes répertoires qui contiennent Delphi...
Connaitre la taille d'un process
//Seulement sous Windows NT systems (WinNT, Win2000, WinXP) uses psAPI; procedure TForm1.Button1Click(Sender: TObject); var pmc: PPROCESS_MEMORY_COUNTERS; cb: Integer; begin cb :=...
Lister les documents en cours d'impression
uses Winspool, Printers; function GetCurrentPrinterHandle: THandle; var Device, Driver, Port : array[0..255] of char; hDeviceMode: THandle; begin Printer.GetPrinter(Device, Driver, Port,...
Encoder une URL à partir d'un String
function HTTPEncode( const AStr: String): String; const NoConversion = ['A'..'Z','a'..'z','*','@','.','_','-']; var Sp,...
Activer/Désactiver la fonction autorun du lecteur CD
uses Registry; procedure CDSetAutoPlay(SioNo: Boolean); var Reg: TRegistry; begin try Reg := TRegistry.Create; Reg.RootKey := HKEY_LOCAL_MACHINE; if ...
Imprimer une TStringGrid
uses Printers; procedure PrintGrid(sGrid: TStringGrid; sTitle: String); var X1, X2 : Integer; Y1, Y2 : Integer; TmpI : Integer; F : Integer; TR : TRect; begin Printer.Title:=sTitle;...
Dessiner un cadre de couleur autour de TForm
unit Unit1;interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) private { Private-Deklarationen } procedure ...
Lire la position de la fenêtre active
procedure TForm1.Button1Click(Sender: TObject); var hWindow: HWnd; r: TRect; begin hWindow := GetForegroundWindow; GetWindowRect(hWindow, r); Memo1.Clear; with Memo1.Lines do begin ...
Arrondir les angles de vos composants
procedure Edit_MakeRound(Control : TWinControl); var R : TRect; Rgn : HRGN; begin with Control do begin R := ClientRect; rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom,...
Dégradé circulaire
Dessiner des dégradés circulaires en choissisant la couleur de départ et d'arriver.A voir absolument.
APDVisuFoto
<img alt="APDVisuFoto" src="http://www.fobec.com/CMS/userdata/member021/APDVisuFoto.gif" vspace="4" align="left" border="0"...
publié le 06/03/2002 dans Logiciel par Antoine Prieur
Protéger une table Paradox avec un mot de passe
procedure ChangeMasterPassword(Tbl: TTable; const APassword:String; AFlag:Boolean); var hDb: hDbiDb; TblDesc: CRTblDesc; szDir : array[0..dbiMaxNameLen] of Char;...
Créer ses propres fenêtres de Hint
Type TMyHintWindow = Class (THintWindow) Constructor Create (AOwner: TComponent);override; end; Constructor TMyHintWindow.Create(AOwner:TComponent); begin Inherited Create (AOwner);...
Zeroteur
Effacer réellement le fichier.Dans le système de fichier FAT de chez Microsoft on peut effacer des fichiers mais enfait les fichiers ne sont pas réellement effacés, seule la liaison vers la FAT...
Pac Man
Un superbe jeu de Pac Man qui propose même un éditeur de niveau.But : manger des bonbons sans se faire manger par les fantômes.
PacMan V2.0
<img alt="pacman" src="http://www.fobec.com/CMS/userdata/member022/pacman.gif" vspace="4" align="left" border="0" hspace="10">PacMan,...
publié le 01/03/2002 dans Logiciel par Fabrice Labrouche
Connaitre la version du BDE
uses BDE;{Without the Registry:} procedure TForm1.Button1Click(Sender: TObject); var ThisVersion: SYSVersion; begin DbiGetSysVersion(ThisVersion); ShowMessage('BORLAND DATABASE ENGINE...