Code source pour développer une application, page 22
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
Extraire la grande et la petite icone d'un fichier
//extraire les petites et grandes icone d'un exe, dll, ... procedure TForm1.Button1Click(Sender: TObject); var LargeIcon: HIcon; SmallIcon: HIcon; IconCount: Integer; i: Integer; FileName:...
Delphi String Maker 1.1
<img alt="delphi_string_maker_small" src="http://www.fobec.com/CMS/userdata/member037/delphi_string_maker_small.jpg" align="left" border="0"...
publié le 17/01/2005 dans Logiciel par Lois Begue
Lire/copier du texte dans le presse-papier sans utiliser la VCL
unit Unit1;interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls...;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; ...
Compresser/extraire plusieurs fichiers dans une archive
{Compresser plusieurs fichiers un derrière l'autre, puis les extraire vers un repertoire donnée. Bref un petit Winzip avec un format propriétaire en quelques lignes} uses Zlib; procedure ...
Fixer/connaitre la page de démarrage de Internet Explorer
function GetIEStartPage: string; var Reg: TRegistry; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('SoftwareMicrosoftInternet ExplorerMain',...
Connaitre/fixer le délai du double click de la souris
procedure TForm1.Button1Click(Sender: TObject); begin //nécéssite le redémmarage SetDoubleClickTime(1500); end; //connaitre le délai procedure TForm1.Button2Click(Sender: TObject); begin ...
Savoir s'il s'agit d'un fichier binaire ou d'un fichier texte
function IsTextFile( const sFile: TFileName): boolean;//Created By Marcelo Castro - from Brazil var oIn: TFileStream; iRead: Integer; iMaxRead: Integer; iData: Byte; dummy: string; begin ...
Charger du code HTML directement dans le TWebbrowser
uses ActiveX; procedure WB_LoadHTML(WebBrowser: TWebBrowser; HTMLCode: string); var sl: TStringList; ms: TMemoryStream; begin WebBrowser.Navigate('about:blank'); while...
Quelques infos sur l'eXtreme Programming
{publié le 28/04/2004 sur nzn.fr.delphi par Henry}//***********************************************C'est une manière de travailler qui a été élaboré par des consultant chezFord il y a...
Mini Web Radio Player 1.1
Ce petit prog joue des Streams tels que publiés par "Shoutcast.com".<img alt="webradioplayer"...
publié le 29/12/2004 dans Logiciel par Lois Begue
Partager des données entre deux applications
unit Unit1;interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls;typePCopyDataStruct = ^TCopyDataStruct; TCopyDataStruct = record ...
Connaitre le panel cliqué d'un TStatusbar
uses commctrl;{$R *.DFM} procedure TForm1.StatusBar1MouseDown(Sender: TObject; Button: TMouseButton; Sh if t: TSh if tState; X, Y: Integer); var i: integer; r: TRect; begin for i := 1 to...
Connaitre rapidement le nombre de fichiers d'un répertoire
function FileCount( const aFolder: string): Integer; var H: THandle; Data: TWin32FindData; begin Result := 0; H := FindFirstFile(PCHAR(aFolder + '*.*'), Data); if H ...
Afficher le nom des tables d'une base de donnée
uses dbtables; procedure TForm1.Button1Click(Sender: TObject); var ts: TStringlist; begin ts := TStringlist.create; Session.GetTableNames('DBDEMOS', '*.DB', false, false, ts);...
Savoir lorsqu'un nouveau fichier est crée
function WaitForFile(FileName: string): Boolean;{Wait for a file to be created. Tracks the directory were the file will be created.Returns true if file exists, false on error.} var WaitHandle:...
Dessiner avec un effet nuage de point (Spray effect)
procedure Spray(Canvas: TCanvas; x, y, r: Integer; Color: TColor); var rad, a: Single; i: Integer; begin for i := 0 to 100 do begin a := Random * 2 * pi; rad := Random * r; ...
Afficher la fenêtre d'ouverture d'une connection internet
uses WinInet; procedure TForm1.Button1Click(Sender: TObject); begin if not InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE, Application.Handle) then MessageDlg('No internet...
Imprimer un TMemo, TStringList, TStrings, TItems, ...
unit PrintStringsUnit1;interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; ...