Hola!
Tengo un problema con un codigo, el cual solo aparecé al ser llamado directamente desde un TTimer.
Mi codigó se vé así:
TTimer:
Código Delphi
[-]
if (Mana >= StrToInt(Edit8.Text)) then
begin
SendString(Edit9.Text);
Delay(5000);
end;
SendString:
Código Delphi
[-]procedure SendString(FVal:String);
var I:Integer;
begin
for I := 0 to Length(FVal) do
begin
SendMessage(FMemory.Hwnd, WM_CHAR, Ord(FVal[i]), 0);
Delay(VTypeWaitTime);
end;
PostMessage(TibiaHwnd, WM_KEYDOWN, VK_RETURN, 0);
end;
En rojo puse el area del error, donde me da una intrución como "Access Violation Error".
Puedo llamar al
SendString normalmente y sin ningun problema desde un boton, o cualquier cosa, pero menos del TTimer.
Sabén que sucede?. Que eh echo mal?.
Saludos!