Version:0.9 StartHTML:0000000105 EndHTML:0000010724 StartFragment:0000001037 EndFragment:0000010708 mXScriptasHTML
{****************************************************************
 *
 * 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