modified Analyzer.dof
modified AnalyzerU.dfm modified AnalyzerU.pas *: Updated "About"-text *: made "About" the initially selected tab
This commit is contained in:
parent
40710232fc
commit
62aa54f77c
@ -115,7 +115,7 @@ AutoIncBuild=1
|
|||||||
MajorVer=1
|
MajorVer=1
|
||||||
MinorVer=0
|
MinorVer=0
|
||||||
Release=0
|
Release=0
|
||||||
Build=2
|
Build=4
|
||||||
Debug=0
|
Debug=0
|
||||||
PreRelease=0
|
PreRelease=0
|
||||||
Special=0
|
Special=0
|
||||||
@ -126,7 +126,7 @@ CodePage=1252
|
|||||||
[Version Info Keys]
|
[Version Info Keys]
|
||||||
CompanyName=
|
CompanyName=
|
||||||
FileDescription=Parses SONY VAIO security eeprom dump and extracts some interesting information.
|
FileDescription=Parses SONY VAIO security eeprom dump and extracts some interesting information.
|
||||||
FileVersion=1.0.0.2
|
FileVersion=1.0.0.4
|
||||||
InternalName=Analyzer
|
InternalName=Analyzer
|
||||||
LegalCopyright=
|
LegalCopyright=
|
||||||
LegalTrademarks=
|
LegalTrademarks=
|
||||||
|
@ -42,7 +42,7 @@ object AForm: TAForm
|
|||||||
Top = 48
|
Top = 48
|
||||||
Width = 497
|
Width = 497
|
||||||
Height = 329
|
Height = 329
|
||||||
ActivePage = SheetSMBus
|
ActivePage = SheetAbout
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
object SheetParsed: TTabSheet
|
object SheetParsed: TTabSheet
|
||||||
Caption = 'Parsed info'
|
Caption = 'Parsed info'
|
||||||
@ -587,6 +587,10 @@ object AForm: TAForm
|
|||||||
' '
|
' '
|
||||||
'case you forgot your machine password.'
|
'case you forgot your machine password.'
|
||||||
''
|
''
|
||||||
|
'2004-03-31: added support for reading out the SMBus directly '
|
||||||
|
'from Windows. Make sure the file ZLPORTIO.SYS is in this '
|
||||||
|
'program'#39's directory or in the search path.'
|
||||||
|
''
|
||||||
'Have fun!'
|
'Have fun!'
|
||||||
''
|
''
|
||||||
''
|
''
|
||||||
|
@ -323,7 +323,7 @@ end;
|
|||||||
|
|
||||||
procedure TAForm.ButtonSMBScanClick(Sender: TObject);
|
procedure TAForm.ButtonSMBScanClick(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
AForm.LabelSMBScan.Caption := IntToHex(smbGetReg(MyPCI.SMB_Address, $01, $10), 2);
|
AForm.LabelSMBScan.Caption := 'Not yet functioning';
|
||||||
end;
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
Reference in New Issue
Block a user