Author: jerome
Date: 2009-09-03 14:15:33 +0200 (Thu, 03 Sep 2009)
New Revision: 5322
Modified:
software_suite_v3/software/tool/tool-second-installer/trunk/tool-second-installer/ComputerInfos.pas
Log:
* Removed unneeded information.
Modified:
software_suite_v3/software/tool/tool-second-installer/trunk/tool-second-installer/ComputerInfos.pas
===================================================================
---
software_suite_v3/software/tool/tool-second-installer/trunk/tool-second-installer/ComputerInfos.pas
2009-09-02 14:43:41 UTC (rev 5321)
+++
software_suite_v3/software/tool/tool-second-installer/trunk/tool-second-installer/ComputerInfos.pas
2009-09-03 12:15:33 UTC (rev 5322)
@@ -19,7 +19,6 @@
);
function GetUserLanguage() : string;
- function Time() : string;
function GetWinVersion(): TWinVersion;
implementation
@@ -36,13 +35,6 @@
end;
-{#### Return how many time the computer is running ####}
-function Time() : string;
-Begin
- Result := IntToStr(Round((GetTickCount / 1000) / (24 * 3600))) ;
-End;
-
-
function GetWinVersion(): TWinVersion;
var
osVerInfo: TOSVersionInfo;
------------------------------------------------------------------------------
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day
trial. Simplify your report design, integration and deployment - and focus on
what you do best, core application coding. Discover what's new with
Crystal Reports now. http://p.sf.net/sfu/bobj-july
_______________________________________________
Tux-droid-svn mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/tux-droid-svn
