www.pudn.com > LANUpdate_Lite_v0.1_EN_src.zip > Unit1.~pas

unit Unit1; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, ComCtrls, CHButton, ExtCtrls, StdCtrls, Registry, IniFiles, 
  Buttons, Menus; 
 
type 
  TForm1 = class(TForm) 
    Titel: TStaticText; 
    Prog2: TCHButton; 
    Prog1: TCHButton; 
    cp: TCHButton; 
    install: TCHButton; 
    Prog1panel: TPanel; 
    Beenden: TCHButton; 
    TInfos1: TStaticText; 
    Infos1: TStaticText; 
    Prog2panel: TPanel; 
    TInfos2: TStaticText; 
    Infos2: TStaticText; 
    Prog2a: TCHButton; 
    Prog1a: TCHButton; 
    MainMenu1: TMainMenu; 
    Datei1: TMenuItem; 
    Extras1: TMenuItem; 
    N1: TMenuItem; 
    Bearbeiten1: TMenuItem; 
    Beenden1: TMenuItem; 
    Installieren1: TMenuItem; 
    Optionen1: TMenuItem; 
    ber1: TMenuItem; 
    Animate1: TAnimate; 
    procedure BeendenClick(Sender: TObject); 
    procedure Prog2Click(Sender: TObject); 
    procedure Prog1Click(Sender: TObject); 
    procedure installClick(Sender: TObject); 
    procedure FormShow(Sender: TObject); 
    procedure ber1Click(Sender: TObject); 
    procedure Optionen1Click(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  Form1: TForm1; 
 
implementation 
uses About, Config; 
VAR Prog1datei, Prog1name, Prog1version, Prog1datum, Prog2datei, Prog2name, Prog2version, Prog2datum:string; 
    isnonUpdate : bool = False; 
    startuperror: bool = False; 
    Prog1Update, Prog2Update : bool; 
 
 
{$R *.dfm} 
 
function loadUpdateInfo:integer; 
VAR ini : TIniFile; 
Begin 
  ini := TIniFile.Create(configure.configpath); 
  Prog1datei := ini.ReadString('Prog1','Datei',''); 
  Prog1name := ini.ReadString('Prog1','Name',''); 
  Prog1version := ini.ReadString('Prog1', 'Version', ''); 
  Prog1datum := ini.ReadString('Prog1', 'Datum', ''); 
  Prog2datei := ini.ReadString('Prog2','Datei',''); 
  Prog2name := ini.ReadString('Prog2', 'Name', ''); 
  Prog2version := ini.ReadString('Prog2', 'Version', ''); 
  Prog2datum := ini.ReadString('Prog2', 'Datum', ''); 
 
  if Prog1datei = '' then result := 1 
  else Result := 0; 
End; 
 
function checkNewProgramm:integer; 
var regist: TRegistry; 
    error : integer; 
Begin 
  regist := TRegistry.Create; 
  regist.RootKey:= HKEY_LOCAL_MACHINE; 
  regist.OpenKey('Software\LES\LANUpdate Lite', true); 
  error := loadUpdateInfo; 
  If error = 0 Then 
  Begin 
  If regist.ReadString('Prog1Name') = Prog1name Then 
    IF (regist.ReadString('Prog1Version') <> Prog1version) or (regist.ReadString('Prog1Version') = Prog1version) Then 
      IF regist.ReadString('Prog1datum') <> Prog1datum Then 
          Begin 
            Form1.Infos1.Caption := ''; 
            Form1.Infos1.Caption := Form1.Infos1.Caption + Prog1name + #10 + #10; 
            Form1.Infos1.Caption := Form1.Infos1.Caption + Prog1version + #10 + #10; 
            Form1.Infos1.Caption := Form1.Infos1.Caption + Prog1datum; 
            Form1.Prog1.Font.Color := clred; 
            Form1.Prog1a.Font.Color := clred; 
            Prog1Update := True; 
            Form1.Animate1.visible := true; 
            isnonUpdate := False; 
          End 
      Else 
        Begin 
          Form1.Infos1.Caption := ''; 
          Form1.Infos1.Caption := Form1.Infos1.Caption + Prog1name + #10 + #10; 
          Form1.Infos1.Caption := Form1.Infos1.Caption + Prog1version + #10 + #10; 
          Form1.Infos1.Caption := Form1.Infos1.Caption + Prog1datum; 
          Form1.Prog1.Font.Color := clWindowText; 
          Form1.Prog1a.Font.Color := clWindowText; 
          Prog1Update := False; 
          isnonUpdate := True; 
        End 
    Else 
      Begin 
        Form1.Infos1.Caption := ''; 
        Form1.Infos1.Caption := Form1.Infos1.Caption + Prog1name + #10 + #10; 
        Form1.Infos1.Caption := Form1.Infos1.Caption + Prog1version + #10 + #10; 
        Form1.Infos1.Caption := Form1.Infos1.Caption + Prog1datum; 
        Form1.Prog1.Font.Color := clWindowText; 
        Form1.Prog1a.Font.Color := clWindowText; 
        Prog1Update := False; 
        isnonUpdate := True; 
      End; 
  If regist.ReadString('Prog2Name') = Prog2name Then 
    IF regist.ReadString('Prog2Version') <> Prog2version Then 
      IF regist.ReadString('Prog2Datum') <> Prog2datum Then 
          Begin 
            Form1.Infos2.Caption := ''; 
            Form1.Infos2.Caption := Form1.Infos2.Caption + Prog2name + #10 + #10; 
            Form1.Infos2.Caption := Form1.Infos2.Caption + Prog2version + #10 + #10; 
            Form1.Infos2.Caption := Form1.Infos2.Caption + Prog2datum; 
            Form1.Prog2.Font.Color := clred; 
            Form1.Prog2a.Font.Color := clred; 
            Prog2Update := True; 
            Form1.Animate1.Visible := true; 
            isnonUpdate := isnonUpdate and False; 
          End 
      Else 
        Begin 
          Form1.Infos2.Caption := ''; 
          Form1.Infos2.Caption := Form1.Infos2.Caption + Prog2name + #10 + #10; 
          Form1.Infos2.Caption := Form1.Infos2.Caption + Prog2version + #10 + #10; 
          Form1.Infos2.Caption := Form1.Infos2.Caption + Prog2datum; 
          Form1.Prog2.Font.Color := clWindowText; 
          Form1.Prog2a.Font.Color := clWindowText; 
          Prog2Update := False; 
          isnonUpdate := isnonUpdate and True; 
        End 
    Else 
      Begin 
        Form1.Infos2.Caption := ''; 
        Form1.Infos2.Caption := Form1.Infos2.Caption + Prog2name + #10 + #10; 
        Form1.Infos2.Caption := Form1.Infos2.Caption + Prog2version + #10 + #10; 
        Form1.Infos2.Caption := Form1.Infos2.Caption + Prog2datum; 
        Form1.Prog2.Font.Color := clWindowText; 
        Form1.Prog2a.Font.Color := clWindowText; 
        Prog2Update := False; 
        isnonUpdate := isnonUpdate and True; 
      End; 
  If isnonUpdate Then 
    Begin 
      Form1.Titel.Caption := 'No Update required'; 
      Form1.Titel.Color := clgreen; 
    End; 
  Result := 0; 
  End 
  else result := 1; 
End; 
 
procedure TForm1.BeendenClick(Sender: TObject); 
begin 
  close; 
end; 
 
procedure firstexecute; 
Begin 
  loadUpdateInfo; 
  Form1.Infos1.Caption := ''; 
  Form1.Infos1.Caption := Form1.Infos1.Caption + Prog1name + #10 + #10; 
  Form1.Infos1.Caption := Form1.Infos1.Caption + Prog1version + #10 + #10; 
  Form1.Infos1.Caption := Form1.Infos1.Caption + Prog1datum; 
  Form1.Prog1.Caption := Prog1name; 
  Form1.Prog1a.Caption := Prog1name; 
  Form1.Infos2.Caption := ''; 
  Form1.Infos2.Caption := Form1.Infos2.Caption + Prog2name + #10 + #10; 
  Form1.Infos2.Caption := Form1.Infos2.Caption + Prog2version + #10 + #10; 
  Form1.Infos2.Caption := Form1.Infos2.Caption + Prog2datum; 
  Form1.Prog2.Caption := Prog2name; 
  Form1.Prog2a.Caption := Prog2name; 
End; 
 
procedure TForm1.Prog2Click(Sender: TObject); 
begin 
  Prog2a.Visible := True; 
  Prog2.Visible := False; 
  Prog2Panel.Visible := True; 
  Prog1a.Visible := False; 
  Prog1.Visible := True; 
  Prog1Panel.Visible := false; 
  If Prog2Update then 
    Begin 
      Form1.Titel.Caption := 'New Updates avaible !!!'; 
      Form1.Titel.Color := clred; 
      Animate1.Visible := true; 
    End 
  else 
    Begin 
      Form1.Titel.Caption := 'No Update notwendig'; 
      Form1.Titel.Color := clgreen; 
      Animate1.Visible := false; 
    End; 
end; 
 
procedure TForm1.Prog1Click(Sender: TObject); 
begin 
  Prog2a.Visible := False; 
  Prog2.Visible := True; 
  Prog2Panel.Visible := False; 
  Prog1a.Visible := True; 
  Prog1.Visible := False; 
  Prog1Panel.Visible := True; 
  If Prog1Update then 
    Begin 
      Form1.Titel.Caption := 'Neue Updates verfügbar !!!'; 
      Form1.Titel.Color := clred; 
      Animate1.Visible := true; 
    End 
  else 
    Begin 
      Form1.Titel.Caption := 'Kein Update required'; 
      Form1.Titel.Color := clgreen; 
      Animate1.Visible := false; 
    End; 
end; 
 
procedure TForm1.installClick(Sender: TObject); 
VAR regist: TRegistry; 
    exe : PChar; 
Begin 
  regist := TRegistry.Create; 
  regist.RootKey:= HKEY_LOCAL_MACHINE; 
  regist.OpenKey('Software\LES\LANUpdate Lite', true); 
  If Prog1a.Visible Then 
    Begin 
      regist.WriteString('Prog1Datei',Prog1datei); 
      regist.WriteString('Prog1Name', Prog1name); 
      regist.WriteString('Prog1Version', Prog1version); 
      regist.WriteString('Prog1Datum', Prog1datum); 
      exe := Pchar(configure.progpath + Prog1datei); 
      WinExec(exe,SW_NORMAL); 
    End; 
  If Prog2a.Visible Then 
    Begin 
      regist.WriteString('Prog2Datei',Prog2datei); 
      regist.WriteString('Prog2Name', Prog2name); 
      regist.WriteString('Prog2Version', Prog2version); 
      regist.WriteString('Prog2Datum', Prog2datum); 
      exe := Pchar(configure.progpath + Prog2datei); 
      WinExec(exe,SW_NORMAL); 
    End; 
  checkNewProgramm; 
  IF not(Prog1Update) and (Prog2Update) Then Prog2Click(Form1); 
  IF (Prog1Update) and not(Prog2Update) Then Prog1Click(Form1); 
end; 
 
procedure TForm1.FormShow(Sender: TObject); 
begin 
   If checkNewProgramm = 0 then 
  Begin 
    firstexecute; 
    IF not(Prog1Update) and (Prog2Update) Then Prog2Click(Form1); 
  End 
  else 
    Begin 
      firstexecute; 
      If Configure.hideError1 = False then 
        showmessage ('The connestion to the update-server is refused, try it again later. (If this error frequently, tell Your LAN-admin)'); 
      startuperror := true; 
    End; 
   IF configure.configpath = '' Then configure.ShowModal; 
   IF configure.startup1 = false then 
     Begin 
       IF isnonUpdate Then close; 
       If startuperror then close; 
     End 
   else 
     If startuperror = true then 
       Begin 
         Titel.Color := clnavy; 
         Titel.Font.Color := clwhite; 
         Titel.Caption := '!!! LAN refused !!!'; 
       End; 
end; 
 
procedure TForm1.ber1Click(Sender: TObject); 
begin 
 Aboutbox.ShowModal; 
end; 
 
procedure TForm1.Optionen1Click(Sender: TObject); 
begin 
  Configure.ShowModal; 
end; 
 
procedure TForm1.FormCreate(Sender: TObject); 
Var regist : TRegistry; 
    s : String; 
begin 
 regist := TRegistry.Create; 
 regist.RootKey:= HKEY_LOCAL_MACHINE; 
 regist.OpenKey('Software\LES\LANUpdate Lite', true); 
 s := regist.ReadString('InstallPath') + '\Style\Standart\Update.avi'; 
 Animate1.FileName := s; 
 Animate1.Active := true; 
end; 
 
end.