Exemples pour coder avec Delphi Trucs et astuces Systeme

Arreter Windows - Boite de dialogue

o_winDialogShutDown provoque l'affichage de la boîte dialogue de fermeture Windows.!!! Pas de gestion de la boîte de dialogue: celle-ci envoie un message de fermeture à toutes les applications...
Delphi - Trucs et astuces - Systeme le 27/03/2009 vu 1624 fois olibul

Retrouver les dossiers de Windows

o_GetPathWinFolders renvoie le chemin de certains dossiers utilisés par Windows.Syntaxe function o_GetPathWinFolders( _iddossier: integer ): string;Paramètres_iddossier: integer : peut avoir une...
Delphi - Trucs et astuces - Systeme le 14/03/2009 vu 1838 fois olibul

Connaitre la position de la barre des tâches

var hTaskbar : HWND; T : TRect; begin hTaskBar:=FindWindow('Shell_TrayWnd',nil); // Find the handle of the taskbar GetWindowRect(hTaskBar,T); if (T.Top > Screen.Height DIV 2)...
Delphi - Trucs et astuces - Systeme le 12/04/2006 vu 1724 fois SwissDelphiCenter

Ajouter une fenetre dans un TOpenDialog

unit DiExtDlgs; {$R-,H+,X+} interface uses Messages, Windows, SysUtils, Classes, Controls, StdCtrls, Graphics, ExtCtrls, Buttons, Dialogs, OleCtrls, SHDocVw; type { TDiOpenPictureDialog } ...
Delphi - Trucs et astuces - Systeme le 20/09/2005 vu 1728 fois Nicholas Crosby

Lancer un fichier et attendre sa fermeture

{ce truc permet de lancer une application mais aussi d'ouvrir automatiquement l'application associée à un raccourci} uses Shellapi; function StartAssociatedExe(FileName: string; var ...
Delphi - Trucs et astuces - Systeme le 27/04/2005 vu 1512 fois SwissDelphiCenter

Obtenir le libellé de la dernière erreur

Uses SysUtils //exemple procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(SysErrorMessage(GetlastError)); end; //donner une erreur claire pour l'utilisateur//exemple :...
Delphi - Trucs et astuces - Systeme le 23/03/2005 vu 1221 fois Communauté Delphi

Trouver le répertoire temporaire de Windows avec les API

uses Windows; function GetWindowsTempDir : string; var PPath : array[0..255] of char; begin GetTempPath (SizeOf (PPath), PPath); result := strpas(PPath); end;
Delphi - Trucs et astuces - Systeme le 20/01/2005 vu 1618 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 - Trucs et astuces - Systeme le 12/01/2005 vu 1416 fois Christian

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 - Trucs et astuces - Systeme le 02/01/2005 vu 1044 fois Adrian Zinke

Obtenir les bibliothèques de type installées

uses Registry; procedure EnumTypeLibs(TypeLibNames: TStrings); var f: TRegistry; keyNames, keyVersions, keyInfos: TStringList; keyName, keyVersion, keyInfo, tlName: string; i, j, k: Integer;...
Delphi - Trucs et astuces - Systeme le 12/12/2004 vu 1002 fois Radostin Gerchev
Navigation
    Recevoir la newsletter
    Pour s'inscrire à notre newsletter, veuillez indiquer votre adresse email ci-dessous:

    Newsletter déjà parues