//////////////////////////////////////////////////// //////////////////////////////////////////////////// //////////////////www.OneSofts.com////////////////// ////////////// PsyckoHia@ifrance.com /////////////// //////////////////////////////////////////////////// ///////////////psyckohia@onesofts.com/////////////// ////////////////////24/11/2007////////////////////// //////////////////////////////////////////////////// /////////////////////Delphi 7/////////////////////// //////////////////////////////////////////////////// unit Main; interface //////////////////////////////////////////////////////////////////////////////// uses // Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, // Dialogs,ShellApi, ExtDlgs, StdCtrls, OleCtrls, ShockwaveFlashObjects_TLB, // Menus; // //////////////////////////////////////////////////////////////////////////////// type TPsyckoHia = class(TForm) LMySite: TLabel; ShockwaveFlash1: TShockwaveFlash; PopupMenu1: TPopupMenu; Fichier1: TMenuItem; OpenDialog1: TOpenDialog; Quitter1: TMenuItem; procedure LMySiteClick(Sender: TObject); procedure Fichier1Click(Sender: TObject); procedure Quitter1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var PsyckoHia: TPsyckoHia; ExePath : string; implementation {$R *.dfm} //////////////////////////////////////////////////////////////////////////////// /////////////////////////// Votre Code se trouve ici /////////////////////////// //////////////////////////////////////////////////////////////////////////////// ////////////////////////////// A LA CREATION DE LA FORM /////////////////////// procedure TPsyckoHia.FormCreate(Sender: TObject); // begin // ExePath := ExtractFilePath(Application.ExeName); // ShockwaveFlash1.Movie := (ExePath + 'intro.swf'); // end; // //////////////////////////////////////////////////////////////////////////////// ////////////////LORSQUE ON CLIQUE LE GAUCHE SUR LE LABEL /////////////////////// procedure TPsyckoHia.LMySiteClick(Sender: TObject); // begin // ShellExecute(0,'Open','http://www.OneSofts.com','null','null',SW_NORMAL); // end; // //////////////////////////////////////////////////////////////////////////////// /////////////////// LORSQUE ON CLIQUE DROIT SUR LE LABEL//////////////////////// procedure TPsyckoHia.Fichier1Click(Sender: TObject); // begin // OpenDialog1.Filter := 'Fichiers swf (*.swf)|*.swf'; // OpenDialog1.InitialDir := ExePath + 'Mygames' ; // if OpenDialog1.Execute then // ShockwaveFlash1.Movie := OpenDialog1.FileName; // end; // //////////////////////////////////////////////////////////////////////////////// /////////////////////////////////// QUITTER //////////////////////////////////// procedure TPsyckoHia.Quitter1Click(Sender: TObject); // begin // Close; // end; // //////////////////////////////////////////////////////////////////////////////// end.