Транслировал код с C++, где ошибся?

[Crystallon]

Доброго времени суток.
Транслировал код с C++ на Delphi, где ошибся?

C++:

LPTSTR szCurrentTicks = new TCHAR[0x007F];
DWORD dwCurrentTicks = GetTickCount();
srand(dwCurrentTicks);
DWORD dwRandomValue = (rand() << 16) + rand();
wsprintf ( szCurrentTicks, TEXT("%08X%08X%08X"), dwRandomValue, dwRandomValue ^ dwCurrentTicks, (rand() << 16) + GetCurrentProcessId());
SetEnvironmentVariable(TEXT("__lameLauncher__"), szCurrentTicks);

Delphi:

    var
       dwCurrentTicks,dwRandomValue:Word;
       param:array[0..5] of integer;
       szMessage: PChar;

    dwCurrentTicks:=GetTickCount;
    dwRandomValue:=(dwCurrentTicks+Random(1000)) Shl 16;
    dwRandomValue:=dwRandomValue+(dwCurrentTicks+Random(1000));
    param[0]:=dwRandomValue;
    param[1]:=dwRandomValue Xor dwCurrentTicks;
    param[2]:=((dwCurrentTicks+Random(1000)) Shl 16) + GetCurrentProcessId();
    GetMem( szMessage, 1024 );
    szMessage:=PChar(IntToStr(dwCurrentTicks));
    wvsprintf(szMessage, PChar('%08X%08X%08X'),@param);
    SetEnvironmentVariable(PChar('__lameLauncher__'), PChar(IntToStr(dwCurrentTicks)));

Этот код требует выполнять разработчик надстройки на софт который я запускаю, но он дал его в c++ в котором я практически не шарю, инфу по каждой строчке пришлось отдельно искать и разбираться что, как и зачем она делает.
Подскажите пожалуйста где ошибся.

[3D Hunter]

Ваш сишник работает с ANSI, а не с юникодом, так что осторожнее. Вот код:

const
  RAND_MAX=32768;
var
  dwCurrentTicks:Cardinal;
  dwRandomValue:Cardinal;
  szCurrentTicks:AnsiString;
begin
  SetLength(szCurrentTicks,$7F);
  dwCurrentTicks:=GetTickCount;
  RandSeed:=dwCurrentTicks;
  dwRandomValue:=(Random(RAND_MAX) shl 16)+Random(RAND_MAX);
  wsprintfA(PAnsiChar(szCurrentTicks),PAnsiChar('%08X%08X%08X'));//???
  SetEnvironmentVariableA('__lameLauncher__',PAnsiChar(szCurrentTicks));
end;

По поводу красной строчки ткните своему сишнику на вот это:
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx
Сказано ведь не использовать эту функцию. Честно, сам не разобрался как передать в нее все эти аргументы, которые сишник ваш там перечислил. Насколько я понял, все пихать вторым параметром с разделителем #0 с преобразованием PAnsiChar. Уточните у него, либо договоритесь о другом механизме.

P.S. И вообще, MSDN в помощь, там все расписано, от типов до функций с описанием параметров:
http://msdn.microsoft.com/library/

[Пепел Феникса]

не припомню чтоб Delphi поддерживала переменное число параметров.

вообще проще заменить на Дельфийское Format.

[GunSmoker]

Строчки:

wsprintf ( szCurrentTicks, TEXT("%08X%08X%08X"), dwRandomValue, dwRandomValue ^ dwCurrentTicks, (rand() << 16) + GetCurrentProcessId());
SetEnvironmentVariable(TEXT("__lameLauncher__"), szCurrentTicks);

Заменяем на:

var
  szCurrentTicks: String;
...
  szCurrentTicks := Format('%8x%8x%8x%8x', [dwRandomValue, dwRandomValue or dwCurrentTicks, (Random() shl 16) + GetCurrentProcessId]);
  SetEnvironmentVariable('__lameLauncher__', PChar(szCurrentTicks));

Только выражение с Random надо уточнить. Нет Delphi под рукой, чтобы проверить.

[BDA]

GunSmoker, random нужно писать, как указал 3D Hunter:
Random(RAND_MAX) shl 16
и команда ^ это xor, а не or.