Version:0.9 StartHTML:0000000105 EndHTML:0000010724 StartFragment:0000001037 EndFragment:0000010708
{****************************************************************
*
* Project : Information Series for SWS of OpenTools API
* Unit Name: 262_mxdocudemo4, loc's = 114
* Purpose : Introduction and Demo to the mX3 environment options
****************************************************************}
program maXbox_Output_Demo_4;
{$DEFINE VOICE}
function MessageBeep(para: integer): byte;
external 'MessageBeep@user32.dll stdcall'; //DLL Functiontype
const
REGPATH3= '\Software\Microsoft\Internet Explorer\TypedURLs';
REGROOT3= HKEY_CURRENT_USER;
var
myTimeStamp: TDateTime;
Procedure PerformanceCounter;
var time: longint;
begin
time:= GetTickCount;
//Put the commands to measure...
CaptureScreenPNG(ExePath+'screenshotperftest.png');
SearchAndOpenDoc(ExePath+'screenshotperftest.png');
Sleep(500)
//maxform1.StatusBar1.SimpleText:= ('Time Diff: '+IntToStr(GetTickCount-time));
Writeln('Time Performance Diff: '+IntToStr(GetTickCount-time));
end;
begin
Writeln(DateTimeGMTToHttpStr(Now))
writeln('machine or host name is: '+getHostName)
writeln('user name is: '+getUserName)
writeln('domain name is: '+domainname('localhost'));
writeln('Check ProcessID : '+intToStr(CurrentProcessID))
Writeln('Processor Numbers: '+intToStr(GetNumberOfProcessors))
Writeln('Page Size: '+intToStr(GetPageSize))
Writeln('Internet Test with IP Address of: '
+GetHostByName('www.softwareschule.ch'));
writeln('IP Address of own Host: '+GetHostByName(getHostName));
writeln('Services File Path is: '+ServicesFilePath);
Writeln('Network Volume Name is: '+NetworkVolume('C'));
mytimestamp:= GetFileCreationTime(exepath+'maxbox3.exe')
writeln(DateTimeToStr(myTimeStamp)+' Creation Date of maXbox3')
Writeln('SHA1 Hash of maXbox: '+SHA1(exepath+'maxbox3.exe'))
writeln('Shell Version is: '+intToStr(GetShellVersion));
WriteLog(ExePath+'systemchecklog2.txt',memo2.text)
//PerformanceCounter;
{$IFNDEF VOICE}
Showmessage(' in maXbox you can set your own styles: ')
{$ENDIF}
Speak('Programming for Change with max box ')
Speak('in max box you can get your own output: ')
maxform1.Console1Click(self);
maxForm1.color:= clRed;
{$IFNDEF VOICE}
Showmessage('You can decompile your code to study the bytecode closer: ');
{$ENDIF}
Speak(' You can decompile also your code to study the byte code closer: ');
maxform1.Decompile1Click(self);
{$IFNDEF VOICE}
Showmessage('You can count your components: ');
{$ENDIF}
Speak(' You can count your components: ');
maxform1.ComponentCount1Click(self);
{$IFNDEF VOICE}
Showmessage('and also count your modules out of the app: ');
{$ENDIF}
Speak(' and also count your modules out of the app: ');
maxform1.ModulesCount1Click(self);
{$IFNDEF VOICE}
Showmessage('or check your own include library: ');
{$ENDIF}
Speak(' or check your own include library: ');
maxform1.Include1Click(self);
Speak('and if something went wrong, see the last exceptions: ');
maxform1.ShowLastException1Click(self);
{$IFNDEF VOICE}
Showmessage('If you want more information about your app open a program info: ');
{$ENDIF}
Speak(' If you want more information concerning your app open a program info: ');
maxform1.Info1Click(self);
{$IFNDEF VOICE}
Showmessage('you can also program add ons like a crypto box: ')
{$ENDIF}
Speak(' you can also program add ons like a crypto box: ');
maxform1.cryptobox1Click(self);
//maxform1.tutorial1Click(self);
Speak(' or check your syntax before run the application: ');
Speak(' You see, this tool is more efficient and easy to use!');
maxform1.SyntaxCheck1Click(self);
//Speak('So this tool is more efficient and easy to use!');
//maxform1.delphisite1Click(self);
//sleep(5000)
//CaptureScreenPNG(exepath+'mytutors.png');
//SearchAndOpenFile(exepath+'mytutors.png')
End.
*******************************************************
There is no place like 127.0.0.1