Développer un logiciel avec Delphi - page 9

Avec Delphi, rien n'est impossible ! Telle a été notre devise pendant des années. A la fois EDI et langage de développement (Pascal), l'outil Delphi facilite grandement la création d'applications. A l'origine, Delphi est un langage compilé qui s'execute sur des plateformes 32 bits. Depuis l'editeur a apporté de nouvelles fonctionnalités qui ne sont pas traitées sur Fobec.com.

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, ...
delphi/truc-astuce/fichier/
le 17/01/2005
vu 3353 fois
Communauté Delphi

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/truc-astuce/fichier/
le 17/01/2005
vu 1309 fois
Communauté Delphi

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; ...
delphi/truc-astuce/systeme/
le 12/01/2005
vu 1163 fois
Christian

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 ...
delphi/truc-astuce/fichier/
le 12/01/2005
vu 2103 fois
Robert Kuhlmann

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', false); ...
delphi/truc-astuce/internet/
le 09/01/2005
vu 1306 fois
SwissDelphiCenter

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 ...
delphi/truc-astuce/systeme/
le 02/01/2005
vu 822 fois
Adrian Zinke

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 ...
delphi/truc-astuce/fichier/
le 02/01/2005
vu 991 fois
Marcelo Castro

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 WebBrowser.ReadyState...
delphi/truc-astuce/internet/
le 02/01/2005
vu 2254 fois
SwissDelphiCenter

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 quelques...
delphi/truc-astuce/autre-categorie/
le 02/01/2005
vu 1028 fois
Communauté Delphi

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 ...
delphi/truc-astuce/autre-categorie/
le 25/12/2004
vu 1056 fois
Communauté Delphi

Astuces Delphi

Espace membre
Catégorie
Résumé de la rubrique
Contenu
659 articles
Rédaction
22 auteurs
Mise a jour
21/12/2010
Partager sur les réseau sociaux
Articles au hasard