пробовал GetShopList: TStringList;
но там написано:
// !!! Работает только при выключенном silentmode, смотреть procedure SetSilentMode(Value: Boolean);
т.е. как я понял это для тестов (открывается доп. инф. окно) как же бытьв реальных игровых условиях?
мой код
Code: Select all
var
i : integer;
a : TStringList;
str: TStringList;
begin
a := TStringList.Create();
str := TstringList.Create();
SetContextMenuHook(vendor,1);
RequestContextMenu(vendor);
GetShopList(a); SetSilentMode(True); // GetFindedList(a);
for i := 0 to a.Count - 1 do
begin
StrBreakApart(a.Strings[i],'|', str);
AddToSyStemJournal(intTostr(i)+' '+str[4]+' '+str[14]);
end;