Конвертация кода AutoIT в DELPHI

[Lime]

Всем доброго времени суток!

Хотелось бы переписать код AutoIT в Delphi.

;So you know what the hell the offsets are...
;BASE_STATIC_POINTER = 0x89ACC0 + 0x8;
; MASK_OFFSET = 0x024;            
;BASE_OFFSET = 0x01c;            
;STRING_OFFSET = 0x020
;...below

Func _GetPlayerName($fGUID = $pGUID)
	$mask = _MemoryRead($WowBase + 0x89ACC0 + 0x8 + 0x024, $wow)
	$base = _MemoryRead($WowBase + 0x89ACC0 + 0x8 + 0x01c, $wow)
	$shortGUID = BitAND($fGUID, 0xffffffff)
	if ($mask = 0xffffffff) Then
		Return ""
	EndIf
	$offset = 12 * BitAND($mask, $shortGUID)
	$current = _MemoryRead($base + $offset + 8, $wow)
	$offset = _MemoryRead($base + $offset, $wow) 
	if (BitAND($current, 0x1) = 0x1) Then

		Return ""
	EndIf
	$testGUID = _MemoryRead($current, $wow)
	while ($testGUID <> $shortGUID)
		$current = _MemoryRead($current + $offset + 4, $wow)
		if (BitAND($current, 0x1) = 0x1) Then
			Return ""
		EndIf
		$testGUID = _MemoryRead($current, $wow)
	WEnd
	Return _MemoryRead($current + 0x020, $wow, "char[20]")
EndFunc   ;==>_GetPlayerName

Вот что у меня получилсоь :

function _GetPlayerName(pGUID:UInt64):string;
const BASE_STATIC_POINTER = $89ACC0 + $8;
const MASK_OFFSET = $024;
const BASE_OFFSET = $01c;
const STRING_OFFSET = $020;
var mask,base,offset,current:DWORD;
wread:Cardinal;
shortGUID,testGUID:UInt64;
ccc:array [1..20] of Char;
begin

  ReadProcessMemory(WoW_H_Proc,Ptr(WowBase + $89ACC0 + $8 + $024),@mask,SizeOf(mask),wread);
  ReadProcessMemory(WoW_H_Proc,Ptr(WowBase + $89ACC0 + $8 + $01c),@base,SizeOf(base),wread);


	shortGUID := pGUID and  $ffffffff;
	if (mask = $ffffffff) Then
  Result := '';

	offset := 12 * (mask  and shortGUID);
 ReadProcessMemory(WoW_H_Proc,Ptr(base + offset + $8),@current,SizeOf(current),wread);

 ReadProcessMemory(WoW_H_Proc,Ptr(base + offset),@offset,SizeOf(offset),wread);
	if ((current and $1) = $1) Then

  Result := '';

  ReadProcessMemory(WoW_H_Proc,Ptr(current),@testGUID,SizeOf(testGUID),wread);

	while (testGUID <> shortGUID) do
  begin
  ReadProcessMemory(WoW_H_Proc,Ptr(current + offset + 4),@current,SizeOf(current),wread);


		if ((current and $1) = $1) Then
    Result := '';
    ReadProcessMemory(WoW_H_Proc,Ptr(current),@testGUID,SizeOf(testGUID),wread);
  end;
  ReadProcessMemory(WoW_H_Proc,Ptr(current+$20),@ccc,SizeOf(ccc),wread);
Result := ccc;
end;

Я на 99% уверен что я напутал с типами... В Autoit вообще ничего не понятно
Постарался удалить пустые точки для экономии места.

Спасибо за помощь!

[Lime]

Тема всё ещё актуальна.