Redemarrer son application |
||||
procedure RestartProgram; var FullPrgmPath: PChar; begin FullPrgmPath := PChar(Application.ExeName); WinExec(FullPrgmPath, SW_SHOWMAXIMIZED); Application.Terminate; end; | ||||
| Delphi - Trucs et astuces - Systeme | le 08/08/2002 | vu 1321 fois | Paul Ericksen | |
Obtenir le texte d'un StatusBar |
||||
unit Unit1;interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, commctrl;type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; ... | ||||
| Delphi - Trucs et astuces - Systeme | le 08/08/2002 | vu 709 fois | SwissDelphiCenter | |
Obtenir une couleur plus claire/plus foncée |
||||
function Min(a, b: Longint): Longint; begin if a > b then Result := b else Result := a; end; function Max(a, b: Longint): Longint; begin if a > b then Result := a else Result :=... | ||||
| Delphi - Trucs et astuces - Graphisme | le 08/08/2002 | vu 1822 fois | CutMaster | |
Utiliser les touches dans un TWebBrowser |
||||
unit Unit1;interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw, ActiveX;type TForm1 = class(TForm) WebBrowser1: TWebBrowser; ... | ||||
| Delphi - Trucs et astuces - Internet | le 08/08/2002 | vu 1099 fois | SwissDelphiCenter | |
Une "Function" qui retourne le pluriel d'une chaine de caractères |
||||
// - - - - - - - - - - - - -// SOURCE DE LA FONCTION// - - - - - - - - - - - - -// NECESSITE LA FONCTION "MAJUSCULE" (qui est au STRING que UPCASE est aux CHAR ) :Function Majuscule( S :... | ||||
| Delphi - Trucs et astuces - Autre categorie | le 08/08/2002 | vu 814 fois | Diégo DELPY | |
Dessiner un cadre autour du controle sous la souris |
||||
unit Unit1;interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;type TForm1 = class(TForm) Timer1: TTimer; Button1: TButton; Memo1:... | ||||
| Delphi - Trucs et astuces - Graphisme | le 13/07/2002 | vu 2018 fois | Communauté Delphi | |
Remplacer des mots dans un String |
||||
procedure TForm1.Button1Click(Sender: TObject); var sNewText : string; begin // Remplace le premier "moules" par "palourdes" sNewText := StringReplace('à la pęche aux moules moules... | ||||
| Delphi - Trucs et astuces - Autre categorie | le 13/07/2002 | vu 923 fois | Communauté Delphi | |
Convertir un Ttime en String et vice-versa |
||||
//Pour des durées suppérieures à 24 heures, StrToTime & TimeToStr posent problèmes :)Function TextToTime(S : String) : Integer;Var p, i : integer; Sh, Sm, Ss : String;Begin Sh:=''; ... | ||||
| Delphi - Trucs et astuces - Autre categorie | le 13/07/2002 | vu 825 fois | Zandy | |
Vider le buffer clavier & souris |
||||
procedure EmptyKeyQueue; var Msg: TMsg; begin while PeekMessage(Msg, 0, WM_KEYFIRST, WM_KEYLAST, PM_REMOVE or PM_NOYIELD) do; end; procedure EmptyMouseQueue; var Msg: TMsg; begin while... | ||||
| Delphi - Trucs et astuces - Systeme | le 15/06/2002 | vu 943 fois | P. Below | |
Effacer le cache des fichiers internet |
||||
uses WinInet; procedure DeleteIECache; var lpEntryInfo: PInternetCacheEntryInfo; hCacheDir: LongWord; dwEntrySize: LongWord; begin dwEntrySize := 0; FindFirstUrlCacheEntry(nil,... | ||||
| Delphi - Trucs et astuces - Internet | le 15/06/2002 | vu 2845 fois | Michael R. Schäfer | |