I've got this solution:
Is it 100% correct way?Code:const ClientStatus = $3C8FF8; ... ... ... Window := FindWindow('TibiaClient', nil); if (Window <> 0) then begin Process_ID := GetProcessID('Tibia.exe'); Base_Address := Integer(GetModuleBase(Process_ID, 'Tibia.exe')); Status := MemReadInteger(ClientStatus + Base_Address); if(Status = 10) then ShowMessage('Player ONLINE'); ... ... ...