|
|
 | |  |
|
выводит все процессы
uses tlhelp32
Function GetProcesses():String;
var
hSnap:THandle;
pe:TProcessEntry32;
s2:THandle;
res:String;
begin
pe.dwSize:=SizeOf(pe);
hSnap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS ,0);
If Process32First(hSnap,pe) then begin
res := res + pe.szExeFile;
While Process32Next(hSnap,pe) do begin
res := res + pe.szExeFile;
res := res + #13#10;
end;
end;
Result:=res;
end;
|
| Категория: DELPHI | Добавил: SeM (10.05.2011)
|
| Просмотров: 659 | Комментарии: 1
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] | |
 | |  |
|
 |
| Коменнтарии
 | |
Извиняюсь, заработал. Спасибо за урок 
Давайте помогу разобраться ? вы хотите что бы когда выбиралась станция сразу начинала проигрывать? скиньте исходник или как лучше связаться с вами?
Нифига не робит...
Кто знает как сделать чтобы на жесткий жертвы сохранял..
ISQ 606017777
|
 |
|
| Отзывы Фото
| |
6 микр. Красивое место....
Старый музей но щас его перенесли...
Фотография под горы 
Красивое фото!!!
|
|
|
