Автокликер Clickermann :: Форум

Основной раздел => Общие вопросы => Topic started by: Hito on May 06, 2023, 10:31:55 PM

Title: Мы можем как-то получить дату, которая будет через 7 дней?
Post by: Hito on May 06, 2023, 10:31:55 PM

Мы можем как-то получить дату, в формате - ггггммдд, которая будет через 7 дней?

Title: Re: Мы можем как-то получить дату, которая будет через 7 дней?
Post by: Hito on May 07, 2023, 12:41:01 PM

В общем мучу опять dll-ку для этого всего, но хоть убей - не могу вспомнить, как в dll принимать параметры, передаваемые скриптом кликера?
Вот вызов dll-ки из кликера:

Code: (clickermann) [Select]

CALL("data.dll", 7)А вот код dll:

Code: (clickermann) [Select]

library data;

uses
  Windows,
  SysUtils,
  DateUtils;

//------------------------------------------------------------------------------
// Основное тело функции, идет на экспорт, вызывается из кликера
function execute( _mas: pInteger; _size: Integer): Integer; export; stdcall;
type
   pIntArr = array[0..0] of Integer;

var
   S: Integer;
   Res: TDateTime;
   gmd: string;

begin
   S := // Как сюда присвоить параметр, отправленный кликером - "7"?
   Res:= IncDay(Now, S); // увеличиваем текущую дату на S дней
   result :=  StrToInt(Copy (DateToStr(Res), 7, 4)+Copy (DateToStr(Res), 4, 2)+Copy (DateToStr(Res), 1, 2));
end;
//------------------------------------------------------------------------------

// список экспорта
exports execute;

begin
   // тело пусто
end.Как в dll-ке, переменной "S", передать параметр из скрипта - "7"?

Title: Re: Мы можем как-то получить дату, которая будет через 7 дней?
Post by: Hito on May 07, 2023, 04:48:04 PM

Всё - разобрался...

Code: (clickermann) [Select]

S := pIntArr(_mas^)[0];