Rechercher sur le site :

Recherche avancée

Informations sur le membre tome_x

Pseudo : tome_x
Mail : tom.torreze@gmail.com
Site web : http://serique.free.fr
Travail : aucun
Passion(s) : le web le jeux videos le 3d la programmation.
Signature :

Code : pascal
unit Unit11;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ImgList, ToolWin, ExtDlgs, Shlobj, registry;
 
type
  TForm11 = class(TForm)
    RichEdit1: TRichEdit;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ImageList1: TImageList;
    SaveDialog1: TSaveDialog;
    SaveTextFileDialog1: TSaveTextFileDialog;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    OpenTextFileDialog1: TOpenTextFileDialog;
    ToolButton4: TToolButton;
    FontDialog1: TFontDialog;
    Button1: TButton;
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form11: TForm11;
 
implementation
 
uses Unit12;
 
{$R *.dfm}
 
procedure RegisterFileType(ExtName:String; AppName:String) ;
var
  reg:TRegistry;
begin
  reg := TRegistry.Create;
  try
   reg.RootKey:=HKEY_CLASSES_ROOT;
   reg.OpenKey('.' + ExtName, True) ;
   reg.WriteString('', ExtName + 'file') ;
   reg.CloseKey;
   reg.CreateKey(ExtName + 'file') ;
   reg.OpenKey(ExtName + 'file\DefaultIcon', True) ;
   reg.WriteString('', AppName + ',0') ;
   reg.CloseKey;
   reg.OpenKey(ExtName + 'file\shell\open\command', True) ;
   reg.WriteString('',AppName+' "%1"') ;
   reg.CloseKey;
  finally
   reg.Free;
  end;
 
  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil) ;
end;
 
 
 
             //enregistrer
procedure TForm11.Button1Click(Sender: TObject);
begin
Form12.Show
end;
 
 
procedure TForm11.FormCreate(Sender: TObject);
begin
 
RegisterFileType('txt',Application.ExeName) ;//ici on choisit
RegisterFileType('btf',Application.ExeName) ;//les types de fichiers
{RegisterFileType('type de fichie a assosier au programme ex: "rtf"',Application.ExeName) ;}
 
 if paramstr(1)<>'' then
 
RichEdit1.Lines.LoadFromFile(paramstr(1));
 
 
end;
 
 
procedure TForm11.ToolButton1Click(Sender: TObject);
begin
if SaveTextFileDialog1.Execute then
begin
  RichEdit1.Lines.SaveToFile(SaveTextFileDialog1.FileName);
end;
end;
            //effacer
procedure TForm11.ToolButton2Click(Sender: TObject);
begin
RichEdit1.Clear
end;
               //ouvrir
procedure TForm11.ToolButton3Click(Sender: TObject);
begin
if OpenTextFileDialog1.Execute then
begin
  RichEdit1.Lines.LoadFromFile (OpenTextFileDialog1.FileName);
end;
end;
 
procedure TForm11.ToolButton4Click(Sender: TObject);
begin
if FontDialog1.Execute then
begin
  RichEdit1.Font := FontDialog1.Font;
end;
end;
 
procedure TForm11.FormCloseQuery(Sender: TObject;var CanClose: Boolean);
begin
 CanClose := false;
if application.messagebox(PChar('Voulez vous vraiment quitter le programme ?'),
PChar('Fermer le programme'), MB_OKCANCEL) = IDOK then
CanClose := true;
end;
 
end.
 

Groupe : membre
Date d'inscription : Le 22/11/2009
Connecter : non

Vous pouvez remonter ou bien aller au contenu
Le contenu texte du site web est sous licence BY-NC-SA.

Quelques icones du design "Extra" sont prisent du theme SnowIsh .
Retrouvez nous sur le channel #fds de irc.epiknet.org .