Skip to content

Commit

Permalink
ShareInfo 1.1.2.0 from 2007-08-16
Browse files Browse the repository at this point in the history
  • Loading branch information
@Chrissyx
Chrissyx committed Jan 9, 2021
1 parent baf6465 commit 3da4927
Show file tree
Hide file tree
Showing 38 changed files with 1,607 additions and 2,565 deletions.
1 change: 1 addition & 0 deletions .gitignore
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1 @@
/__history/
Binary file modified BDecode.dcu
View file
Binary file not shown.
Binary file modified Hashes.dcu
View file
Binary file not shown.
Binary file modified MessageDigests.dcu
View file
Binary file not shown.
Empty file added ModelSupport/.gitkeep
View file
Empty file.
Binary file modified mAboutBox.dcu
View file
Binary file not shown.
126 changes: 116 additions & 10 deletions mAboutBox.dfm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -4,7 +4,7 @@ object AboutBox: TAboutBox
BorderStyle = bsDialog
Caption = #220'ber ShareInfo...'
ClientHeight = 318
ClientWidth = 299
ClientWidth = 494
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Expand All @@ -13,8 +13,105 @@ object AboutBox: TAboutBox
Font.Style = []
OldCreateOrder = True
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 14
object lbSpeicher1: TLabel
Left = 304
Top = 40
Width = 3
Height = 15
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object lbSpeicher2: TLabel
Left = 304
Top = 64
Width = 3
Height = 15
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object lbSpeicher4: TLabel
Left = 304
Top = 120
Width = 3
Height = 15
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object lbSpeicher5: TLabel
Left = 304
Top = 144
Width = 3
Height = 15
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object lbSpeicher7: TLabel
Left = 304
Top = 200
Width = 3
Height = 15
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object lbSpeicher8: TLabel
Left = 304
Top = 224
Width = 3
Height = 15
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object lbSpeicher3: TLabel
Left = 304
Top = 88
Width = 3
Height = 15
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object lbSpeicher6: TLabel
Left = 304
Top = 176
Width = 3
Height = 15
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Panel1: TPanel
Left = 8
Top = 8
Expand Down Expand Up @@ -451,9 +548,9 @@ object AboutBox: TAboutBox
object Copyright: TLabel
Left = 8
Top = 80
Width = 126
Width = 130
Height = 14
Caption = #169' 2004, 2005 by Chrissyx'
Caption = #169' 2004 - 2007 by Chrissyx'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Expand All @@ -480,10 +577,10 @@ object AboutBox: TAboutBox
object Label1: TLabel
Left = 8
Top = 120
Width = 140
Width = 143
Height = 14
Cursor = crHandPoint
Caption = 'http://www.chrissyx.de(.vu)'
Caption = 'http://www.chrissyx.de(.vu)/'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Expand All @@ -495,10 +592,10 @@ object AboutBox: TAboutBox
object Label2: TLabel
Left = 8
Top = 136
Width = 125
Width = 128
Height = 14
Cursor = crHandPoint
Caption = 'http://www.chrissyx.com'
Caption = 'http://www.chrissyx.com/'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Expand Down Expand Up @@ -536,16 +633,16 @@ object AboutBox: TAboutBox
object Label4: TLabel
Left = 88
Top = 56
Width = 157
Width = 182
Height = 14
Caption = 'Unterst'#252'tzt Torrent und eDonkey'
Caption = 'Unterst'#252'tzt Torrent, eDonkey, Sig2Dat'
end
object edVersion: TLabel
Left = 128
Top = 40
Width = 33
Height = 14
Caption = '1.0.4.1'
Caption = '1.1.2.0'
end
object Label6: TLabel
Left = 8
Expand Down Expand Up @@ -593,4 +690,13 @@ object AboutBox: TAboutBox
TabOrder = 1
OnClick = OKButtonClick
end
object btSpeicher: TButton
Left = 200
Top = 284
Width = 73
Height = 25
Caption = 'Speicher >>'
TabOrder = 2
OnClick = btSpeicherClick
end
end
57 changes: 49 additions & 8 deletions mAboutBox.pas
View file
Original file line number Diff line number Diff line change
Expand Up @@ -24,13 +24,24 @@ TAboutBox = class(TForm)
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
lbSpeicher1: TLabel;
lbSpeicher2: TLabel;
lbSpeicher4: TLabel;
lbSpeicher5: TLabel;
lbSpeicher7: TLabel;
lbSpeicher8: TLabel;
lbSpeicher3: TLabel;
lbSpeicher6: TLabel;
btSpeicher: TButton;
procedure FormCreate(Sender: TObject);
procedure btSpeicherClick(Sender: TObject);
procedure OKButtonClick(Sender: TObject);
procedure Label1Click(Sender: TObject);
procedure Label2Click(Sender: TObject);
procedure Label4Click(Sender: TObject);
private
{ Private declarations }
url: string;
klick: boolean;
public
{ Public declarations }
end;
Expand All @@ -49,21 +60,51 @@ procedure TAboutBox.OKButtonClick(Sender: TObject);

procedure TAboutBox.Label1Click(Sender: TObject);
begin
url := 'http://www.chrissyx.de.vu/';
ShellExecute(handle, 'open', PChar(url), NIL, NIL, SW_SHOW);
ShellExecute(handle, 'open', 'http://www.chrissyx.de.vu/', NIL, NIL, SW_SHOW);
end;

procedure TAboutBox.Label2Click(Sender: TObject);
begin
url := 'http://www.chrissyx.com/';
ShellExecute(handle, 'open', PChar(url), NIL, NIL, SW_SHOW);
ShellExecute(handle, 'open', 'http://www.chrissyx.com/', NIL, NIL, SW_SHOW);
end;

procedure TAboutBox.Label4Click(Sender: TObject);
begin
url := 'http://www.shareinfo.de.vu/';
ShellExecute(handle, 'open', PChar(url), NIL, NIL, SW_SHOW);
ShellExecute(handle, 'open', 'http://www.shareinfo.de.vu/', NIL, NIL, SW_SHOW);
end;

procedure TAboutBox.btSpeicherClick(Sender: TObject);
begin
if (klick = false) then
begin
AboutBox.Width := 500;
btSpeicher.Caption := 'Speicher <<';
klick := true;
end
else
begin
AboutBox.Width := 305;
btSpeicher.Caption := 'Speicher >>';
klick := false;
end;
end;

procedure TAboutBox.FormCreate(Sender: TObject);
var Memory: TMemoryStatus;
begin
klick := false;
AboutBox.Width := 305;
Memory.dwLength := SizeOf(Memory);
GlobalMemoryStatus(Memory);
lbSpeicher1.Caption := 'Speicher: ' + IntToStr(Memory.dwTotalPhys div 1048576) + ' MB';
lbSpeicher2.Caption := 'Freier Speicher: ' + IntToStr(Memory.dwAvailPhys div 1048576) + ' MB';
lbSpeicher3.Caption := 'Belegter Speicher: ' + IntToStr((Memory.dwTotalPhys - Memory.dwAvailPhys) div 1048576) + ' MB';
lbspeicher4.Caption := 'Pagefile: ' + IntToStr(Memory.dwTotalPageFile div 1048576) + ' MB';
lbSpeicher5.Caption := 'Freier Pagefile: ' + IntToStr(Memory.dwAvailPageFile div 1048576) + ' MB';
// lbSpeicher6.Caption := 'Belegter Pagefile ' + IntToStr((Memory.dwTotalPhys - Memory.dwAvailPageFile) div 1048576) + ' MB';
lbSpeicher6.Caption := 'Virtueller: ' + IntToStr(Memory.dwTotalVirtual div 1048576) + ' MB';
lbSpeicher7.Caption := 'Freier Virueller: ' + IntToStr(Memory.dwAvailVirtual div 1048576) + ' MB';
lbSpeicher8.Caption := 'Belegter Virtueller: ' + IntToStr((Memory.dwTotalVirtual - Memory.dwAvailVirtual) div 1048576) + ' MB';
end;

end.

Binary file removed mAboutBox.~ddp
View file
Binary file not shown.
Loading

0 comments on commit 3da4927

Please sign in to comment.