[MotoArhangel]

Есть два класса необходимо передать результаты выполнения функции из одного класса в другой.
Вот классы:

Код:

  TProcessInfo=class
  var
    IsWow64Process: TIsWow64Process;
    QueryFullProcessImageNameW : TQueryFullProcessImageNameW;
  private
    Function Getpriority(id:THandle):string;
    Function GetProcessFilePath(PID: Cardinal; Var x64_x86, UserName : String): String;
    procedure Create;
  end;

 type
    TStatistic = class
    var
      procentry:  TProcessEntry32;
    public
      procedure SetProcessInfo(procinfogrid:TStringGrid);
 end;

Как понимаю так нельзя:

Код:

   with procinfogrid do
                            begin
                              if k>rowcount-1 then
                                rowcount:=rowcount+1;
                                cells[0,k]:= ProcessExe;
                                cells[1,k]:= inttostr(procentry.th32ProcessID);
                                cells[2,k]:= inttostr(procentry.cntThreads);
                                cells[3,k]:= TProcessInfo.GetPriority(procentry.th32processid);
                                cells[4,k]:= x86_x64;
                                cells[5,k]:= UserName;
                                if (Cells[5,k]='') then
                                  Cells[5,k]:='<Нет прав администратора>';
                                cells[6,k]:= ProcessName;
                                if (Cells[6,k]='') then
                                  Cells[6,k]:='<Нет прав администратора>';
                            end;

Интересует строка

Код:

 cells[3,k]:= TProcessInfo.GetPriority(procentry.th32processid);

Дайте ссылочку на полезную статью. Да и от помощи бы не отказался.

[Aristarh Dark]

В первый раз вижу var в описании класса. Я отстал?

По теме, сначала создай экземпляр класса TProcessInfo. Прмерно так:

Код:

var
  somename:TProcessInfo;
begin
  somename:=TProcessInfo.Create;
end;

А уже затем вызывай его методы:

Код:

  ...
  somename.GetPriority(procentry.th32processid);
  ...

[MotoArhangel]

Не получается. Если не сложно подправьте с комментарием.

[Aristarh Dark]

Давай выкладывай проект с примером вызова. В модуле разбираться мне во первых - лень, во вторых - некогда

[MotoArhangel]

Вот два варианта который рабочий, но там часть кода необходимо перенести. И второй перенес но не работает=(
Буду признателен если уделите мне немного времени.

[Aristarh Dark]

Поправил чтоб запускалось, остальные баги сам ищи. И почитай про ООП, у тебя нет понимания того что ты делаешь.

[MotoArhangel]

Согласен. Спасибо. Книжку самую полезную посоветуйте. =)
Для обновления информации по таймеру необходимо создавать методы и передавать в основную форму?

[Aristarh Dark]

Я не смотрел архитектуру твоего приложения, поэтому не могу сказать как лучше тебе обновлять информацию.

[M.A.D.M.A.N.]

Сообщение от Aristarh Dark

В первый раз вижу var в описании класса. Я отстал?

Внутри класса можно и константы объявлять и т.д.

[Aristarh Dark]

Внутри класса можно и константы объявлять и т.д.

Это как это? Можно пример.

[Страдалецъ]

Действительно можно:

Код:

uses
  SysUtils;

Type
 TMyClass = class
  var A: Integer;
  const B: String = 'MyClass';
 end;

Var
  MyClass: TMyClass;
begin
 MyClass := TMyClass.Create;
 MyClass.A := 1;
 WriteLn(MyClass.B);
 ReadLn;
end.

[MotoArhangel]

xD вот и я думаю, где то в статье видел=)