:)

Понедельник, 04 Февраля 2008 г. 05:09 + в цитатник

Альфа_кот все записи автора Хотел попросить помочь разобраться с проблемой, а посмотрел на сообщество - детский сад.

Комментировать

« Пред. запись — К дневнику — След. запись »

Страницы: [1] [Новые]

Смешной_Медведко обратиться по имени Понедельник, 04 Февраля 2008 г. 07:36 (ссылка)

Дык, одно увлечение Delphi уже должно говорить о карланстве.

Ответить С цитатой В цитатник

Альфа_кот обратиться по имени Понедельник, 04 Февраля 2008 г. 07:46 (ссылка)

Смешной_Медведко, карланство - это что?

Ответить С цитатой В цитатник

Dronishe обратиться по имени Понедельник, 04 Февраля 2008 г. 08:03 (ссылка)

Cover, попробуй изложить суть проблемы, может смогу помочь.
Я уже и забыл что на это сообщество подписан...

Ответить С цитатой В цитатник

Альфа_кот обратиться по имени Понедельник, 04 Февраля 2008 г. 15:21 (ссылка)

ну проблему уже решил, но всё таки изложу. вдруг лучшее решение найдётся :)
нужно посчитать число запущенных программ:

function ProccessesCount(ExeName : string) : integer;
var
SnapShot : THandle;
ProcEntry : TProcessEntry32;
begin
Result := 0;
SnapShot := CreateToolhelp32Snapshot(th32cs_snapprocess, 0);
if Process32First(SnapShot, ProcEntry) then
begin
if UpperCase(Trim(th32cs_snapprocess.szExeFile)) = UpperCase(Trim(ExeName)) then inc(Result);
while Process32Next do
if UpperCase(Trim(th32cs_snapprocess.szExeFile)) = UpperCase(Trim(ExeName)) then inc(Result);
end;
end;

суть проблемы была в том, что этот код не работал :)

Ответить С цитатой В цитатник

LiveInternetLiveInternet

-Подписка по e-mail

-Поиск по дневнику

-Интересы

-Постоянные читатели

-Статистика

:)