Платные хостинги     Раскрутка сайта     Книги по программированию

ID Процесса

- а что ты знаешь о нем?

- Знаю его название

- ну а чем тебе не нравиться способ по выборке из списка нужного тебе процесса? Добавлено @ 17:50 по идеи даже если бы и была стандартная функция получения ID процесса по имениона бы все равно бы на 100% не работала потому что одновремено может быть запущено несколько процессов с одинаковым именем...

- Ну а если не внедрятся в тонкости. Мне не нужно выбрать процесс мне нужен один конкретный!

- ну покрайней мере я другого способа незнаю чем так:вернет тебе ID процесса по его имени (хоть и выбором)Код Uses  tlhelp32;...function GetIDProcess(AName : PChar ) : Cardinal; StdCall;var lSnapHandle, lProcHandle: THandle; ProcStruct : PROCESSENTRY32; lProcessPath : Pchar; PID : Cardinal;begin Result := 0; lSnapHandle := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0); if lSnapHandle = 0 then   exit; ProcStruct.dwSize := sizeof( PROCESSENTRY32 ); if Process32First(lSnapHandle, ProcStruct) then begin   try     repeat       lProcessPath := ProcStruct.szExeFile;       if uppercase(lProcessPath) = uppercase(AName) then       begin         PID := ProcStruct.th32ProcessID;         Result := PID;         Break;       end;     until not Process32Next(lSnapHandle, ProcStruct);   finally     CloseHandle(lSnapHandle);   end; end; end; highlightSyntax('delphiMyMGMy','delphi');

- БИГ Сэнкс ;)

- Перенесенно из раздела Delphi

- RennigthСтранно, а у меня не получилось...[Error] Unit1.pas(34): Undeclared identifier: 'PROCESSENTRY32'[Error] Unit1.pas(39): Undeclared identifier: 'CreateToolhelp32Snapshot'[Error] Unit1.pas(39): Undeclared identifier: 'TH32CS_SNAPALL'[Error] Unit1.pas(42): Missing operator or semicolon[Error] Unit1.pas(43): Undeclared identifier: 'Process32First' Добавлено @ 13:45 RennigthПардон... кое-что забыл

- В uses добавь tlhelp32

- В дополнение:Код procedure TForm1.Button2Click(Sender: TObject);var pProcID: ^DWORD;begin  GetMem(pProcID, SizeOf(DWORD));  GetWindowThreadProcessId(FindWindow(nil, PChar(Edit2.Text)), pProcID);  Edit1.Text := IntToStr (pProcID^);end;highlightSyntax('delphiwMjk=','delphi');Вернёт в Edit1.Text Id процесса, у которого есть окно с названием Edit2.Text

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD