[helper999999]

Есть некая функция вот как она выглядит

Код:

function tt(parameter: pointer): ptrint;
begin
 SetTimer(Form1.Handle,1,100,@tp);
end;

выдает ошибку [dcc32 Error] Unit1.pas(36): E2003 Undeclared identifier: 'ptrint'
как идентифицировать параметр ptrint или чем заменить?

[Alegun]

Поскольку

...a CPU-dependent signed integer type cast of a pointer / register, - used for 64 bits compatibility, native under Free Pascal Compiler PtrInt = integer;
a CPU-dependent signed integer type cast of a pointer of pointer, - used for 64 bits compatibility, native under Free Pascal Compiler PPtrInt = PtrInt...

выходит что в делфи может помочь простая замена этого типа на integer, или ещё можно перевести её в процедуру, выкинув бесполезные входной параметр/результат, либо тогда объявить что-то типа

Код:

type
 {$ifdef CPUX86_64}
   tt = function (parameter: pointer): ptrint;
{$else}
   tt = function (parameter: pointer): integer;
 {$endif CPUX86_64}

но правда если это вызов библиотечной функции, то такие выкрутасы видимо не помогут, среда не та

[helper999999]

так правильно будет?:

Код:

unit Unit1;

interface

uses  windows,
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public

    { public declarations }
  end;

var tid: TThreadID;
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure tp(hWnd: HWND; uMsg: UINT; idEvent: UINT_PTR; dwTime: DWORD);
  stdcall;
begin
  form1.ListBox1.Items.Append('11');
end;

procedure tt;
begin
 SetTimer(Form1.Handle,1,100,@tp);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
 BeginThread(nil,0,@tt,nil,0,tid);
end;


end.

Тут отображено работа таймера в цикле.

[Alegun]

Чем же правильно, - здесь показана такая галиматья, есть куча пустых параметров, просматривается денатуратная подмена для стандартных компонентов типа TTimer, нафига?

[helper999999]

Сообщение от Alegun

Чем же правильно, - здесь показана такая галиматья, есть куча пустых параметров, просматривается денатуратная подмена для стандартных компонентов типа TTimer, нафига?

нет надо именна показать работу api, api-поток и api-таймер. Что разьве не правильно? какие пустые параметры. Вроде работает без ошибок. Если не правильно можете указать что и где исправить.

[Alegun]

Под D7 работает вот такое

Код:

var
 tid: Cardinal;
procedure tp(hWnd: HWND; uMsg, idEvent: UINT; dwTime: DWORD); stdcall;
begin
  form1.ListBox1.Items.Append('11');
end;

procedure tt;
begin
 SetTimer(Form1.Handle,1,100,@tp);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 BeginThread(nil,0,@tt,nil,0,tid);
end;

нету просто в ней некоторых типов используемых в хеке