begin process at 2010 03 19 05:37:28
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Date & Heure

 > LE PROGRAMMATEUR

LE PROGRAMMATEUR


 Information sur la source

Note :
8,5 / 10 - par 2 personnes
8,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Date & Heure Classé sous :programmeur, organisateur, du temps Niveau :Débutant Date de création :21/12/2007 Vu / téléchargé :3 175 / 313

Auteur : HAFTARIFOUAD

Ecrire un message privé
Site perso
Commentaire sur cette source (11)
Ajouter un commentaire et/ou une note

 Description

Salut tout le monde

Ce petit programme comme son nom l’indique est un organisateur de multiples événements avec le temps.

Grâce à ce petit travail vous pouvez :

  Quitter votre programme ;
  Le rendre visible ;
  Afficher un message ;
  Lancer un fichier ;
  Supprimer un fichier ;
  Redémarrer l’ordinateur ;
  Quitter l’ordinateur ;

Dans un temps donné.

Avant de terminer je vous souhaite bonne chance, bon courage et bonne programmation.

Et pour terminer je vous souhaite bon Noël.

Source

  • unit AFirstPage;
  • interface
  • uses
  • Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  • Dialogs, StdCtrls, Mask, ExtCtrls, Buttons,ShellApi;
  • type
  • TAFirst = class(TForm)
  • PlTimer: TPanel;
  • MEditTime: TMaskEdit;
  • EditTime: TEdit;
  • Label1: TLabel;
  • Label2: TLabel;
  • PlOptions: TPanel;
  • RBTerminate: TRadioButton;
  • RBVisible: TRadioButton;
  • RBMessage: TRadioButton;
  • MMessage: TMemo;
  • RBDeleteFile: TRadioButton;
  • RBRebot: TRadioButton;
  • RBEnd: TRadioButton;
  • RBOpenFile: TRadioButton;
  • PlButton: TPanel;
  • SDBActivate: TSpeedButton;
  • SPBTerminate: TSpeedButton;
  • PlEtat: TPanel;
  • TimerProg: TTimer;
  • Dialog: TOpenDialog;
  • procedure TimerProgTimer(Sender: TObject);
  • procedure EditTimeChange(Sender: TObject);
  • procedure RBOpenFileClick(Sender: TObject);
  • procedure RBDeleteFileClick(Sender: TObject);
  • procedure SDBActivateClick(Sender: TObject);
  • procedure SPBTerminateClick(Sender: TObject);
  • procedure RBVisibleClick(Sender: TObject);
  • private
  • { Déclarations privées }
  • public
  • { Déclarations publiques }
  • end;
  • var
  • AFirst: TAFirst;
  • implementation
  • {$R *.dfm}
  • {
  • Le programmeur par HAFTARI fouad. pour plus d'informations n'hesitez pa de
  • nous contacter}
  • procedure TAFirst.TimerProgTimer(Sender: TObject);
  • begin
  • EditTime.text:= Timetostr(now);
  • end;
  • procedure TAFirst.EditTimeChange(Sender: TObject);
  • var sTokenIn,sTokenOut : TTOKENPRIVILEGES ;
  • dwLen : DWORD ;
  • hCurrentProcess,hToken : THANDLE ;
  • Luid1 : TLargeInteger ;
  • begin
  • if EditTime.text=MEditTime.Text then // Si: le temps saisie égale à temps maintenant
  • begin
  • if RBTerminate.Checked then Application.Terminate; // 1 choix quitter l''application;
  • if RBVisible.Checked then AFirst.Visible:=true; // 2 choix affichage de l''application;
  • if RBMessage.Checked then ShowMessage(MMessage.Text); // 3 choix afficher le contenu du MMessage dans un message;
  • if RBOpenFile.Checked then
  • // Faites attention n'oublie pa ShellApi à ajouter dans les uses;
  • ShellExecute(GetDesktopWindow, 'Open', PChar(Dialog.FileName), nil, nil, SW_SHOWNORMAL);// ouvrire un fichier
  • // Supprission d'un fichier: On doit vérifier l''existance d'abord puis on le supprime;
  • if RBDeleteFile.Checked then begin
  • if FileExists(Dialog.FileName) then DeleteFile(Dialog.FileName); //si le fichier existe on le supprime;
  • end; //Fine de la condition si RBDeleteFile is checked
  • // Redémarrer l''ordinatur;
  • if RBRebot.Checked then begin
  • hCurrentProcess := GetCurrentProcess ;
  • OpenProcessToken (hCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken);
  • LookupPrivilegeValue(nil,'SeShutdownPrivilege',Luid1) ;
  • sTokenIn.PrivilegeCount := 1;
  • sTokenIn.Privileges[0].Luid := Luid1;
  • sTokenIn.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
  • AdjustTokenPrivileges ( hToken, FALSE, sTokenIn,sizeof(TTOKENPRIVILEGES),sTokenOut, dwLen);
  • CloseHandle (hToken);
  • ExitWindowsEx(EWX_REBOOT, 0) ;
  • end; // fin de la condition Si RBRebot est coché;
  • //Arrêter l''ordinateur;
  • if RBEnd.Checked then begin
  • hCurrentProcess := GetCurrentProcess ;
  • OpenProcessToken (hCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken);
  • LookupPrivilegeValue(nil,'SeShutdownPrivilege',Luid1) ;
  • sTokenIn.PrivilegeCount := 1;
  • sTokenIn.Privileges[0].Luid := Luid1;
  • sTokenIn.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
  • AdjustTokenPrivileges ( hToken, FALSE, sTokenIn,sizeof(TTOKENPRIVILEGES),sTokenOut, dwLen);
  • CloseHandle (hToken);
  • ExitWindowsEx(EWX_SHUTDOWN, 0) ;
  • end; // fin de la condition Si RBEnd est coché;
  • PlEtat.Caption:='Désactivé'; // Afficher l'Etat du programmeur dans PlEtat désactivé;
  • MEditTime.Text:=''; // Vider MEditTime
  • end; //Fin de la condition si Temps saisie= temps maintenant;
  • end;
  • procedure TAFirst.RBOpenFileClick(Sender: TObject);
  • begin
  • Dialog.Execute;
  • end;
  • procedure TAFirst.RBDeleteFileClick(Sender: TObject);
  • begin
  • Dialog.Execute;
  • end;
  • procedure TAFirst.SDBActivateClick(Sender: TObject);
  • begin
  • PlEtat.Caption:='Activé';
  • end;
  • procedure TAFirst.SPBTerminateClick(Sender: TObject);
  • begin
  • if MessageDlg('Etes vous sûr de vouloir quitter le programme',
  • mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  • Application.Terminate;
  • end;
  • procedure TAFirst.RBVisibleClick(Sender: TObject);
  • begin
  • if MessageDlg('Etes vous sûr de vouloir rendre invisible le programme',
  • mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  • AFirst.Visible:=false;
  • end;
  • end.
unit AFirstPage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, ExtCtrls, Buttons,ShellApi;

type
  TAFirst = class(TForm)
    PlTimer: TPanel;
    MEditTime: TMaskEdit;
    EditTime: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    PlOptions: TPanel;
    RBTerminate: TRadioButton;
    RBVisible: TRadioButton;
    RBMessage: TRadioButton;
    MMessage: TMemo;
    RBDeleteFile: TRadioButton;
    RBRebot: TRadioButton;
    RBEnd: TRadioButton;
    RBOpenFile: TRadioButton;
    PlButton: TPanel;
    SDBActivate: TSpeedButton;
    SPBTerminate: TSpeedButton;
    PlEtat: TPanel;
    TimerProg: TTimer;
    Dialog: TOpenDialog;
    procedure TimerProgTimer(Sender: TObject);
    procedure EditTimeChange(Sender: TObject);
    procedure RBOpenFileClick(Sender: TObject);
    procedure RBDeleteFileClick(Sender: TObject);
    procedure SDBActivateClick(Sender: TObject);
    procedure SPBTerminateClick(Sender: TObject);
    procedure RBVisibleClick(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  AFirst: TAFirst;
implementation

{$R *.dfm}

{
Le programmeur par HAFTARI fouad. pour plus d'informations n'hesitez pa de
nous contacter}


procedure TAFirst.TimerProgTimer(Sender: TObject);
begin
EditTime.text:= Timetostr(now);
end;

procedure TAFirst.EditTimeChange(Sender: TObject);
var sTokenIn,sTokenOut : TTOKENPRIVILEGES ;
    dwLen : DWORD ;
    hCurrentProcess,hToken : THANDLE ;
    Luid1 : TLargeInteger ;
begin
if EditTime.text=MEditTime.Text then // Si: le temps saisie égale à temps maintenant
begin

if RBTerminate.Checked then Application.Terminate; // 1 choix quitter l''application;

if RBVisible.Checked then AFirst.Visible:=true; // 2 choix affichage de l''application;

if RBMessage.Checked then ShowMessage(MMessage.Text); // 3 choix afficher le contenu du MMessage dans un message;

if RBOpenFile.Checked then

// Faites attention n'oublie pa ShellApi à ajouter dans les uses;
ShellExecute(GetDesktopWindow, 'Open', PChar(Dialog.FileName), nil, nil, SW_SHOWNORMAL);// ouvrire un fichier


// Supprission d'un fichier: On doit vérifier l''existance d'abord puis on le supprime;

if RBDeleteFile.Checked then begin
if FileExists(Dialog.FileName) then DeleteFile(Dialog.FileName); //si le fichier existe on le supprime;
end; //Fine de la condition si RBDeleteFile is checked


// Redémarrer l''ordinatur;
if RBRebot.Checked then begin
  hCurrentProcess := GetCurrentProcess ;
  OpenProcessToken (hCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken);
  LookupPrivilegeValue(nil,'SeShutdownPrivilege',Luid1) ;
  sTokenIn.PrivilegeCount := 1;
  sTokenIn.Privileges[0].Luid := Luid1;
  sTokenIn.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
  AdjustTokenPrivileges ( hToken, FALSE, sTokenIn,sizeof(TTOKENPRIVILEGES),sTokenOut, dwLen);
  CloseHandle (hToken);
  ExitWindowsEx(EWX_REBOOT, 0) ;
end; // fin de la condition Si RBRebot est coché;

//Arrêter l''ordinateur;
if RBEnd.Checked then begin
  hCurrentProcess := GetCurrentProcess ;
  OpenProcessToken (hCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken);
  LookupPrivilegeValue(nil,'SeShutdownPrivilege',Luid1) ;
  sTokenIn.PrivilegeCount := 1;
  sTokenIn.Privileges[0].Luid := Luid1;
  sTokenIn.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
  AdjustTokenPrivileges ( hToken, FALSE, sTokenIn,sizeof(TTOKENPRIVILEGES),sTokenOut, dwLen);
  CloseHandle (hToken);
  ExitWindowsEx(EWX_SHUTDOWN, 0) ;
end; // fin de la condition Si RBEnd est coché;


PlEtat.Caption:='Désactivé';  // Afficher l'Etat du programmeur dans PlEtat désactivé;
MEditTime.Text:='';          // Vider MEditTime

end; //Fin de la condition si Temps saisie= temps maintenant;
end;

procedure TAFirst.RBOpenFileClick(Sender: TObject);
begin
Dialog.Execute;
end;

procedure TAFirst.RBDeleteFileClick(Sender: TObject);
begin
Dialog.Execute;
end;

procedure TAFirst.SDBActivateClick(Sender: TObject);
begin
PlEtat.Caption:='Activé';
end;

procedure TAFirst.SPBTerminateClick(Sender: TObject);
begin
  if MessageDlg('Etes vous sûr de vouloir quitter le programme',
                mtConfirmation, [mbYes, mbNo], 0) = mrYes then
                                        Application.Terminate;
end;

procedure TAFirst.RBVisibleClick(Sender: TObject);
begin
  if MessageDlg('Etes vous sûr de vouloir rendre invisible le programme',
                mtConfirmation, [mbYes, mbNo], 0) = mrYes then
                                        AFirst.Visible:=false;
end;

end.

 Conclusion

Mes dédicaces à tous ceux qui ne savent ni lire ni écrire...

bon programmation.

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture IMAGE DANS UN TDBGRID
Source avec Zip Source avec une capture MESSAGEDLG PERSONNALISÉ
Source avec Zip Source avec une capture HINT PAR CELLULE DANS UN TDBGRID
Source avec Zip Source avec une capture DEVELOPERBIBLIO
Source avec Zip Source avec une capture CYBERCOMPTEUR

 Sources de la même categorie

Source avec Zip Source avec une capture TIMESERVER V1.0.3 par Christophe67
Source avec Zip Source avec une capture DATE_HEURE par Christophe67
Source avec Zip Source avec une capture DECOMPTEUR AVEC ENREGISTREMENT DES OPTIONS par michaelminelli1
Source avec Zip Source avec une capture MODIFIER LES DATES DE CRÉATION, DE MODIFICATION ET DE DERNIE... par ni69
Source avec Zip Source avec une capture UN CHRONOS SIMPLE AVEC UN COMPOSENT LABEL ANIMÉ par jackalunion

Commentaires et avis

Commentaire de nethacker le 21/12/2007 11:36:51 7/10

j'ai pas tésté le code mais à vrai dire y'a pas grand chose de nouveau, sinon on dit joyeux noel et non bon noel ^^
et tes freres les musulmans tu leurs dit pas joyeux aid ?

Commentaire de HAFTARIFOUAD le 21/12/2007 12:16:41

Bonjour Monsieur NETHACHER

Je vous remercie Monsieur pour vos aimbles conseils et 3id mobarak et kol 3am w antom bekhir ;-).

Commentaire de cirec le 21/12/2007 12:25:34 administrateur CS

"sinon on dit joyeux noel et non bon noel ^^"

Ah bon il y a des règles pour ça maintenant ???
"et tes freres les musulmans tu leurs dit pas joyeux aid ?"

l'Aïd est passé et Noël est à venir ... non !

Même si le code n'apporte rien de nouveau
on peut voir que tu as tenus compte des remarques ... et ça c'est bien
Les composant sont nommés
et il y a même des commentaires dans le code.

Continue comme ça ... c'est la bonne voie.

Et merci pour tes voeux

Commentaire de nethacker le 21/12/2007 13:18:06

l'aid c'est today chez nous au Maroc ! ^^
sinon pour noêl joyeux noel est plus courante !

Commentaire de cirec le 21/12/2007 13:22:48 administrateur CS

C'est vrai que c'est l'expression la plus courante
mais l'autre n'est pas fausse
et pardon je croyais que c'était hier ou avant hier ... alors bonne fête

Commentaire de AmiraS le 21/12/2007 14:28:24

rien a dire ,j'ai besoin d'aide(tout petite)
quel fonction me permet de quitter l'application (bouton quitter)tres urgent
merci;

Commentaire de HAFTARIFOUAD le 21/12/2007 18:48:16

Salut;

Voilà, pour ceux qui cherchent la fonction qui permet de quitter l'application...

on peut faire directement "Application.terminate;"

une autre méthode permet d'affichier un message de confirmation "oui/Non"

procedure TNomForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:=false;

  if MessageDlg('Etes vous sûr de vouloir quitter le programme',
                mtConfirmation, [mbYes, mbNo], 0) = mrYes then
                                        Application.Terminate;
end;

Commentaire de nethacker le 22/12/2007 17:41:26

Merci, Cirec en effet c'est le jour ou t'a cru en France mais deux jours apres dans d'autres pays tel que l'Algerie et le Maroc ^^

Commentaire de Chyokyka le 02/01/2008 15:04:26

:O Super ce code :)
Un conseille , ajoute plus de fonction sa sera encore mieux :D

Commentaire de matrix1 le 14/01/2008 11:23:10

NETHACKER, tu peut me dire pq les marocains aime le hacking ??!!!!!!!!
une questions que j'arrive pas a trouvé une répense, je c bien  que vous avez pas assé "disons" d'outils.
Merci Jari de répondre.
have a good day.

Commentaire de jackalunion le 22/06/2008 13:10:40 10/10

je comprend

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Nul comme programmeur ! [ par mil51 ] Bonjour tout le monde,C'est mon premier jour. D'abord je salue tout le monde et vous paye à boire; Ensuite j'aimerai " si possible apprendre le systèm Sourire [ par lucien ] Voici une source différente de l'ordinaire, peut-être n'est -elle pas à sa place, vous me le pardonnerez amicalementAu commencement Dieu créa le digit [URGENT] Recherche Analyste Programmeur expérimenté en Delphi [ par g rosinosky ] On recherche urgemment un développeur Delphi sur Paris. Bonne connaissance de l'IDE et de Delphi Objet souhaitée.Voici la description du poste :Entrep j'ai besoin d'un programmeur [ par visualk ] Bonjour !  Je suis programmeur delphi et graphiste 3d 3ds max je travaille sur un projet en delphi une idée novice et j'ai besoin d'un programmeur pou Ajout d' une unité dans les "Uses" lorsque le programmeur ajoute du code dans l' événement de mon compo ... [ par MAURICIO ] Bonjour à tous, merci de m' aider sur ce point: j' aimerai automatiquement ajouter une unité dans les "Uses" lorsque le programmeur ajoute du code da


Nos sponsors


Sondage...

Comparez les prix


HTC Magic

Entre 429€ et 429€

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,608 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales