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 1378 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 1569 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 1501 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 1489 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 1272 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 985 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 1373 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 1160 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 819 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 770 fois | Radostin Gerchev | |