пробовал 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;

