Moderator: 2ffat
pidgi2009 wrote:I located System.Classes.pas, (making a back_up copy, just in case...) located the call as you wrote, then edited it in the following way
class function TThread.GetSystemTimes(out SystemTimes: TSystemTimes): Boolean;
{$IF Defined(MSWINDOWS)}
type
LPFN_GST = function(var lpIdleTime, lpKernelTime, lpUserTime: TFileTime): BOOL; stdcall;
var
Idle, User, Kernel: TFileTime;
lpGetSystemTimes: LPFN_GST;
begin
@lpGetSystemTimes := GetProcAddress(GetModuleHandle('kernel32'), 'GetSystemTimes');
Result := Assigned(lpGetSystemTimes);
if Result then
begin
Result := lpGetSystemTimes(Idle, Kernel, User);
if Result then
begin
SystemTimes.IdleTime := UInt64(Idle.dwHighDateTime) shl 32 or Idle.dwLowDateTime;
SystemTimes.Usertime := UInt64(User.dwHighDateTime) shl 32 or User.dwLowDateTime;
SystemTimes.KernelTime := UInt64(Kernel.dwHighDateTime) shl 32 or Kernel.dwLowDateTime;
SystemTimes.NiceTime := 0;
end;
end;
end;
pidgi2009 wrote:Now the question is: how can I make my project(s) use that modified file? Just by adding the modified file in my project files, and rebuilding?
corbingravely wrote:I have just heard the start of a new program for the new version of Delphi. But, what I need to know is; if it is true? I would love to enroll myself with it if the program is for real. And thank you in advance.
Lena wrote:Here the evangelist Vsevolod Leonov: http://blogs.embarcadero.com/vsevolodle ... /#comments (Russian) writes that the open beta testing of Android.
Users browsing this forum: No registered users and 2 guests