Code source pour développer une application, page 25
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
Trier rapidement un array
{ The following procedure sorts an Array with the fast Shell-Sort algorithm. Invented by Donald Shell in 1959, the shell sort is the most efficient of the O(n2) class of sorting algorithms }...
Connaitre le nombre et la taille des fichiers dans la corbeille
type PSHQueryRBInfo = ^TSHQueryRBInfo; TSHQueryRBInfo = packed record cbSize: DWORD; // Size of the structure, in bytes. // This member must be filled in prior to calling the function . ...
Trouver le serveur et le compte smtp par défaut
//Tester avec Outlook Express uses registry;{$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var Registry: TRegistry; AccountStr: string; begin Registry := TRegistry.Create; try ...
Extraire des infos du Webbrowser
procedure TForm1.Button1Click(Sender: TObject); begin // Shows the URL of the current page displayed // Gibt die aktuell geladene URL des Webbrowsers aus ShowMessage('URL: ' +...
Connaitre le nombre de ligne visible dans un TMemo
Pour dénombrer les lignes visibles d'un TMEMO:================================= function LineasVisibles(Memo: TMemo): integer; Var Oldfont : HFont; {the old font} DC :...
Copier, déplacer, effacer plusieurs fichiers à la fois
uses Windows, ShellAPI, Forms, Classes,SysUtils... function FileListToStr ( FileList: TStringList ): string; var i :integer; begin Result:= ''; for i:= FileList.Count -1 downto 0 do ...
Trier un TListViex en utilisant CustomSort
type TCustomSortStyle = (cssAlphaNum, cssNumeric, cssDateTime); var { var iable to hold the sort style } LvSortStyle: TCustomSortStyle; { array to hold the sort order } LvSortOrder:...
Constantes utiles de Delphi
Voiçi quelques const antes qui peuvent servir assez souvent, mais dont on se souviens rarement, il y a en a pour tous les goûts :Toutes ces var iables quand elles sont déclarées sont valable...
ChifEnLett
comment passer de 55 à Cinquante cinq ? en utilisant ce logiciel très pratique
Simuler la touche TAB en appuyant sur touche ENTER
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin Key := #0; { check if SHIFT - Key is pressed } if GetKeyState(VK_Sh if t) and...
Afficher un Bitmap de fond dans les Hint
//enregistrer un fichier bmp sous 'D:hint.bmp'type TGraphicHintWindow = class(THintWindow) const ructor Create(AOwner: TComponent); override; private FActivating: Boolean; public ...
Empêcher un TControl de se rafraichir/redessiner
procedure LockControl(c: TWinControl; bLock: Boolean); begin if (c = nil) or (c.Handle = 0) then Exit; if bLock then SendMessage(c.Handle, WM_SETREDRAW, 0, 0) else begin ...
Parser un String
function Parse(Char, S: string; Count: Integer): string; var I: Integer; T: string; begin if S[Length(S)] Char then S := S + Char; for I := 1 to Count do begin T := Copy(S, 0,...
Animer une fenêtre (ex: Minimiser vers unTrayIcon)
{As an example I'll show how to show an animation that you can use to minimize your application to the system tray area. This example doesn't actually minimize the application, it only...
Afficher les Hint sous forme de bulle
procedure ShowBalloonTip(hWnd: THandle; Text: PWideChar); const TOOLTIPS_CLASS = 'tooltips_class32'; TTS_ALWAYSTIP = $01; TTS_NOPREFIX = $02; TTS_BALLOON = $40; TTF_SUBCLASS = $0010; ...
Connaitre les dimensions d'un GIF sans composant spécifique
type TImageSize = record Width: Integer; Height: Integer; end; function ReadGIFSize(Stream: TStream): TImageSize;type TG if Header = record Signature: array [0..5] of Char; Width,...
Obtenir le nom et le port d'une imprimante
type TPrinterDevice = class {type definition NOT interfaced by Printers.pas} Driver, Device, Port: string; end; { .... } uses Printers;{ .... } function GetCurrentPrinterPort: string;...
Ajouter des RadioButton dans un TListBox
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); var drawRect: TRect; begin with ListBox1.Canvas do begin FillRect(rect); ...
Supprimer tous les fichiers d'un répertoire
function DeleteAllFileInDir(sDir: string): integer; var Rec: TSearchRec; C: integer; begin result := 0; if sdir[length(sDir)] '' then sDir := sDir + ''; C :=...
version II Naviguateur web
Un navigateur Web qui inclut :<br>- des stations de radio<br>-vous pouvez changer la page de démarrage en la plaçant dans « c : » et en nommant le fichier...
publié le 13/07/2004 dans Logiciel par Dark
