delphi log system
Archive for the ‘Delphi’ Category
simple exemple de SUBSTITUTE dans une expression régulière
function ParsePhone (const AInputString, ATemplate : string) : string;
const
IntPhoneRE = ‘(\+\d *)?(\(\d+\) *)?\d+(-\d*)*’;
var
r : TRegExpr;
begin
r := TRegExpr.Create; // Crée l’objet
try // s’assure de la [...]
http://copie-ecran.proxymis.com/ : logiciel GRATUIT (freeware) pour effectuer des copies dӎcran (screenshot) . ce logiciel permet de capturer une partie de lՎcran, de faire des annotations et de le sauvegarder ou envoyer par email. Rapide et efficace.
NIL Timage delphi, erase Tgraphics, effacer Picture
dans l’événement formCreate; il suffit de mettre
Form1.Brush.Style:=bsClear;
Form1.BorderStyle:=bsNone;
.csharpcode, .csharpcode pre
{
font-size: small;
color: black;
font-family: consolas, “Courier New”, courier, monospace;
background-color: #ffffff;
/*white-space: pre;*/
}
.csharpcode pre { margin: 0em; }
.csharpcode .rem { color: #008000; }
.csharpcode .kwrd { color: #0000ff; }
.csharpcode .str { color: #006080; }
.csharpcode .op { color: #0000c0; }
.csharpcode .preproc { color: #cc6633; }
.csharpcode .asp { background-color: #ffff00; }
.csharpcode .html { [...]
pas de gwin.dll sur Vista donc il faut par le register.
La clé (à moifier ou créer est):
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System
Repérer DisableTaskMgr dans le volet droit et changer sa valeur en 0 (enable) ou 1 (disable)
Mots clés Technorati : ffmpeg,flv demo,avi transform flv,convert flv
voici la commande la plus simple pour transfomer en fichier AVI en flv
ffmpeg -i movie1.avi -ar 22050 -ab 32 -f flv -s 320×240 movie1.flv
Mots clés Technorati : screenshot,cope écran,copie-ecran,copier ecran
Question: comment faire une copie d’écran rapidement et l’envoyer par email ?Réponse: Regardez la démo: elle vous explique comment faire rapidement une copie d’écran partielle et l’envoyer par email.
copie-ecran est un logiciel GRATUIT qui permet de faire rapidement une copie d’ écran de votre PC en sélectionnant la zone [...]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
private
{ Private declarations }
id1, id2, id3, id4: Integer;
procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
if Msg.HotKey = id4 then
ShowMessage(’Print Screen [...]