Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
 TLHelp32 в Lazarus  [new]
Gallemar
Member

Откуда: г.Иркутск
Сообщений: 4999
есть аналог tlhelp32 в Lazarus?
Пытаюсь перенести c Delphi:
+
function FindTask(ExeFileName: string): integer;
 		var
  			ContinueLoop: BOOL;
  			FSnapshotHandle: THandle;
  			FProcessEntry32: TProcessEntry32;
 		begin
  			result := 0;
  			FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  			FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
  			ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  	while integer(ContinueLoop) <> 0 do begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(ExeFileName))
     or (UpperCase(FProcessEntry32.szExeFile) = UpperCase(ExeFileName)))
      then Result := 1;
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
   end;
  CloseHandle(FSnapshotHandle);
 end;
15 авг 17, 11:38    [20724530]     Ответить | Цитировать Сообщить модератору
 Re: TLHelp32 в Lazarus  [new]
Kazantsev Alexey
Member

Откуда:
Сообщений: 3065
Gallemar
есть аналог tlhelp32 в Lazarus?

https://github.com/benibela/apim/blob/master/tlhelp32.pas
15 авг 17, 12:05    [20724673]     Ответить | Цитировать Сообщить модератору
 Re: TLHelp32 в Lazarus  [new]
Gallemar
Member

Откуда: г.Иркутск
Сообщений: 4999
Kazantsev Alexey, спасибо Картинка с другого сайта.
15 авг 17, 12:14    [20724713]     Ответить | Цитировать Сообщить модератору
 Re: TLHelp32 в Lazarus  [new]
Kazantsev Alexey
Member

Откуда:
Сообщений: 3065
Gallemar,

Есть ешё и родной джедайский jwatlhelp32 поставляемый с FPC.
15 авг 17, 12:53    [20724843]     Ответить | Цитировать Сообщить модератору
 Re: TLHelp32 в Lazarus  [new]
Gallemar
Member

Откуда: г.Иркутск
Сообщений: 4999
Kazantsev Alexey
Gallemar,

Есть ешё и родной джедайский jwatlhelp32 поставляемый с FPC.

это лучше, но почему-то не могу закрытие сделать
unit1.pas(40,3) Error: Identifier not found "CloseHandle"
15 авг 17, 13:02    [20724872]     Ответить | Цитировать Сообщить модератору
 Re: TLHelp32 в Lazarus  [new]
white_nigger
Member

Откуда: Тула
Сообщений: 1928
Gallemar
unit1.pas(40,3) Error: Identifier not found "CloseHandle"
Тебе перевести? Или за тебя поискать где это объявлено?
15 авг 17, 13:23    [20724927]     Ответить | Цитировать Сообщить модератору
 Re: TLHelp32 в Lazarus  [new]
Gallemar
Member

Откуда: г.Иркутск
Сообщений: 4999
white_nigger, да, помоги пожалуйста
15 авг 17, 14:34    [20725237]     Ответить | Цитировать Сообщить модератору
 Re: TLHelp32 в Lazarus  [new]
makhaon
Member

Откуда: A galaxy far far away
Сообщений: 2885
Gallemar,

если самому сложно разобраться в трёх соснах, гугли:

Error Identifier not found delphi
15 авг 17, 15:06    [20725360]     Ответить | Цитировать Сообщить модератору
 Re: TLHelp32 в Lazarus  [new]
white_nigger
Member

Откуда: Тула
Сообщений: 1928
Gallemar
white_nigger, да, помоги пожалуйста
Не найден CloseHandle - ищи по сырцам на своем компе, где он есть. При минимальной умственной работе можно даже предположить где это приблизительно находится
15 авг 17, 15:15    [20725406]     Ответить | Цитировать Сообщить модератору
 Re: TLHelp32 в Lazarus  [new]
Док
Member

Откуда: Казань
Сообщений: 5835
Gallemar,

uses windows //скорее всего, только под винду
//или
, JwaWinBase
15 авг 17, 18:11    [20726145]     Ответить | Цитировать Сообщить модератору
 Re: TLHelp32 в Lazarus  [new]
Gallemar
Member

Откуда: г.Иркутск
Сообщений: 4999
Док
Gallemar,
uses windows 

спасибо, я его проглядел
15 авг 17, 18:52    [20726271]     Ответить | Цитировать Сообщить модератору
 Re: TLHelp32 в Lazarus  [new]
white_nigger
Member

Откуда: Тула
Сообщений: 1928
Док, зачем давать рыбу? Пусть удочкой научиться пользоваться. А то так на каждый unknown identifier можно вопросы на форуме задавать
15 авг 17, 19:51    [20726406]     Ответить | Цитировать Сообщить модератору
 Re: TLHelp32 в Lazarus  [new]
Док
Member

Откуда: Казань
Сообщений: 5835
white_nigger,

в следующий раз он будет знать, каким крючком пользоваться :)
16 авг 17, 08:15    [20726969]     Ответить | Цитировать Сообщить модератору
 Re: TLHelp32 в Lazarus  [new]
schi
Member

Откуда: Москва
Сообщений: 2601
Док
white_nigger,

в следующий раз он будет знать, каким крючком пользоваться :)


If you help a friend in need, he is sure to remember you the next time he's in need.
16 авг 17, 10:48    [20727382]     Ответить | Цитировать Сообщить модератору
Все форумы / Delphi Ответить