maXbox3 3.9.9.195 14/05/2015 08:37:17 AM

maXbox3 3.9.9.195
14/05/2015 08:37:17 AM
23338: BtnPlotClick(self);
23339: Showmodal; Free;
23340: end;
23341: with TOvcCalculator.create(self) do begin
23342: parent:= aForm; //free;
23343: setbounds(550,510,200,150);
23344: displaystr:= 'maXcalc';
23345: end;
23346: with THexForm2.Create(self) do begin
23347: ShowModal;
23348: Free;
23349: end;
23350:
23351: function CheckBox: string;
23352: var idHTTP: TIDHTTP;
23353: begin
23354: result:= 'version not found';
23355: if IsInternet then begin
23356: idHTTP:= TIdHTTP.Create(NIL);
23357: try
23358: result:= idHTTP.Get(MXVERSIONFILE2);
23359: result:= result[1]+result[2]+result[3]+result[4]+result[5];
23360: if result = MBVER2 then begin
23361: //Speak(' A new Version '+vstr+' of max box is available! ');
23362: result:= ('!!! OK. You have latest Version: '+result+' available at '+MXSITE);
23363: end; //idhttp.get2('http://www.softwareschule.ch/maxbox.htm')
23364: finally
23365: idHTTP.Free
23366: end;
23367: end;
23368: end;
23369:
23370: //Runtimer Spec Functions Edition 190
23371: function ApWinExecAndWait32(FileName:PChar; CommandLine:PChar; Visibility:Integer):Integer;
23372: function KillTask(ExeFileName: string): Integer;
23373: procedure KillProcess(hWindowHandle: HWND);
23374: function FindWindowByTitle(WindowTitle: string): Hwnd;
23375: function IntToFloat(i: Integer): double;
23376: function AddThousandSeparator(S: string; myChr: Char): string;
23377: function mciSendString(cmd: PChar; ret: PChar; len: integer; callback: integer): cardinal;
23378: procedure FormAnimation(Sender: TObject; adelay: integer);
23379: procedure LoadResourceFile2(aFile:string; ms:TMemoryStream);
23380: function putBinResTo(binresname: pchar; newpath: string): boolean;
23381: procedure ExecuteHyperlink(Sender:TObject;HyperLinkClick:TJvHyperLinkClickEvent;const LinkName:string);
23382: function IsHyperLink(Canvas:TCanvas;Rect:TRect;const Text:string; MouseX,MouseY:Integer;var
HyperLink:string):Bool
23383: Function GetWindowThreadProcessId( hWnd : HWND; var dwProcessId : DWORD) : DWORD;');
23384: Function GetWindowTask( hWnd : HWND) : THandle');
23385: Function LoadBitmap( hInstance : HINST; lpBitmapName : PChar) : HBITMAP');
23386: Function GetCommConfig(hCommDev: THandle; var lpCC: TCommConfig; var lpdwSize: DWORD): BOOL');
23387: function WinExecAndWait32(FileName: string; Visibility: Integer): Longword;
23388: Function MakeHash( const s : TbtString) : Longint');
23389: Function GetUsedUnitList( list : Tstringlist) : string');
23390: function ConsoleCapture(const _dirName, _exeName, _cmdLine: string; amemo: TStringlist): Boolean;');
23391: function ConsoleCaptureDOS(const _dirName, _exeName, _cmdLine: string; amemo: TStrings): Boolean;');
23392: srlist:= TStringlist.create;
23393: ConsoleCapture('C:\', 'cmd.exe', '/c dir *.*',srlist);
23394: writeln(srlist.text); srlist.Free;
23395: function RunCaptured(const _dirName, _exeName, _cmdLine: string; amemo: TStringlist): Boolean;');
23396: Function SamePropTypeName( const Name1, Name2 : ShortString) : Boolean');
23397: Function FloatToStrEx( Value : Extended) : string');
23398: Function StrToFloatEx( const S : string) : Extended');
23399: Procedure PerformanceDelayMS(ams: integer); //microsecond resolution delay!
23400: //http://www.swissdelphicenter.ch/en/showcode.php?id=2179
23401: function ExecuteProcess(FileName: string;Visibility:Integer; BitMask:Integer; Synch:Boolean):Longword;
23402: Function
ExecuteMultiProcessor(FileName:string;Visibility:Integer;BitMask:Integer;Synch:Boolean):Longword;');
23403: if ExecuteMultiProcessor('notepad.exe', SW_SHOW, 2, true) = 0 then
23404: writeln('Multiprocessing Runs on CPU 2');
23405: procedure StartServiceAfterInstall(aserv: TService);
23406: Function GetDllVersion2(DllName: string; var DLLVersionInfo: TDLLVersionInfo): Boolean;
23407: procedure SendCopyMessage(amess, astation: string); //comunicate process-spanned with WM_COPYDATA
23408: function BrowseComputer2(DialogTitle: string; var CompName: string; bNewStyle: Boolean): Boolean;
23409: function ChangeAlphaTo(input: string; aoffset: byte): string;');
23410: function CheckIBAN(iban: string): Boolean;');
23411: function CreateIDStack; //instance to IdStack of CreateStack
23412: Function GetRecordCount(DataSet: TBDEDataSet): Longint;');
23413: Function CountPos(const subtxt: string; Text: string): Integer;
23414: procedure HTMLtoRTF(html: string; var rtf: TRichedit);
23415: procedure ReversePlay(const szFileName: string);
23416: Function ADOConnectionString(ParentHandle:THandle; InitialString:WideString;out NewString: string):Boolean;
23417: procedure ShowEOleException(AExc: EOleException; Query: String);
23418: function UpdateBlob(Connection: TADOConnection; Spalte: String; Tabelle: String; Where: String; var ms:
TMemoryStream): Boolean; ..save HTML pages as MHTML (HTML Archiv Format)
23419: http://www.swissdelphicenter.ch/en/showcode.php?id=2300
23420: function SaveToMHT(const AUrl, AFileName: string; AShowErrorMessage: Boolean = False): Boolean;
23421: function FileType2MimeType(const AFileName: string): string;
23422: function DownloadURL_NOCache(const aUrl: string; var s: String): Boolean;
23423: Function IsCOMObjectActive(ClassName: string): Boolean;
PC08 E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt
http://www.softwareschule.ch/maxbox.htm T: 297
p: 271