Rechercher sur le site :

Recherche avancée

Accueil Contenu Forum
Le site

Accueil
Contenu
Rechercher
Forum

Docs

Doc CSS
Les tutoriels

Designs

Les designs

Membre

Les membres
Inscription
Connexion

Publicité

 
 
Google soutient l'OIN

Par theo7 le 31/10/2007 à 14h00 - 1 commentaire

L'Open Invention Network, aussi connu sous le nom d'OIN, a été crée par l'initiative d'IBM, Novell, Philips, Red Hat le 10 novembre 2005 ayant pour but de rassembler le plus de brevets possible pour les mettre à la disponibilité de tous .

[Image de tux]L'OIN a récolté à ce jour plus d'une centaine de brevets et les redistribues gratuitement aux développeurs d'applications libres pour favoriser le noyau Linux, ses utilisateurs ne doivent donc pas utiliser leurs propres brevets à l'encontre de Linux et des logiciels open sources .

Google aime l'OIN : Google, la société qui édite le moteur de recherche le plus utiliser dans le monde ainsi que d'autres outils comme Gmail, à confirmer son soutien adhérer à ce principe en devenant premier utilisateur d'un système Open Source a prendre une licence auprès de l'Open Invention Network .

Le responsable des programmes open sources de Google, Chris DiBona nous rappelles l'importance de Linux pour la firme de Mountain View via le blogue de Google : "Quand vous utilisez Google, vous utilisez Linux [...] A chaque fois que vous recherchez sur Google, c'est un serveur Linux qui vous renvoit une réponse [...] Linux a donné la puissance et la flexibilité que nous attendions pour les millions de serveurs de Google"

 
 

Poster un commentaire

Commentaires

Auteur Message
tome_x # Posté Le 22/12/2009 à 15h24

Groupe : membre

theo ton site est bien mais tu devrais le continuer car il ne mérite pas le slogan "la puissance du css"

- - - - -

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.
 

Page : 1

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 .