From db946751c9502d821f3dbc3b670fd6818aa5831d Mon Sep 17 00:00:00 2001 From: mattias Date: Sun, 10 Feb 2013 13:22:08 +0000 Subject: [PATCH] turbopower_ipro: clean up git-svn-id: trunk@40247 - --- components/turbopower_ipro/ipmsg.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/components/turbopower_ipro/ipmsg.pas b/components/turbopower_ipro/ipmsg.pas index 49aa43ec11..2074843739 100644 --- a/components/turbopower_ipro/ipmsg.pas +++ b/components/turbopower_ipro/ipmsg.pas @@ -997,7 +997,7 @@ begin Randomize; Result := '_NextPart_' + IntToHex(Trunc(Temp), 8) + '-' + IntToHex(Trunc(Frac(Temp) * 10000), 8) + '-' + - IntToHex(GetTickCount, 8) + '-' + IntToHex(Random($FFFF), 4); + IntToHex(GetTickCount64, 8) + '-' + IntToHex(Random($FFFF), 4); end; { 16-bit CRC of stream between starting and ending offset }