Дата в Opera7, не могу понять....
DELPHI&EXCEL (help)
MP3 на Delphi!!!!., Горю!!!
Свернуть Delphi, при компиляции
FTP
Немогу понять как....?
Компонент Chart, Данные по двум координатам - как?
Построение отчетов, Report Builder
Rave Reports в Delphi 7, Дайте оценку
TThread и TBitmap, Нестыковочка. Как быть?
Активный процесс, Как в WinXP определить актвен ли процесс
Heightmap конвертирование, Помогите
Свойство формы, Запрет на изменение размеров
как создать базу clientdataset'ом?, TClientDataset.CreateDataset;
Отправка письма.....
Поиск текста и его копирование в переменные, из файла или из Memo
Нужно перевести исходник с C++ на Delphi, Как удалить данные заполнения форм в IE
Паскаль, решение задачи
Проблема..., enabled true/false кнопки
Загрузка процессора
Вопрос по использованию TQuery, Получение данных после запроса ....
WinApi
Сохранение данных в INI, из ListView
TListView
Не работает ListBox
ListView, Фильтрация записей в ListView
Список в ручную, Как сделать грамотно?
Регистр букв, как определить, и можно ли вообще?
Обращение к серверу, Надо обработать ответ от сервера
Глюк с TQuery, Почему запрос ничего не возвращает?
КПК и RAPI
и снова Delphi + Excel, ... только не ругайте :)
Как узнать куда подключился USB-диск?
Ошибка при использовании TListView, TListView в стиле vsReport
Как Вы относитесь к курящим девушкам?
Проблема очистки TMemoryStream
"Графический редактор многогранников", помогите достать исходник
Понятие "процессор"
Работа с массивами, элемантами которых являются строки
Прием почты
Требования к работе программы, Как определить
<<Компонента>>
Что за глюк
Создание записи (record) в DLL, В DLL создаю запись - получаю эксепшн.
Приоритет в WinXP, Помогите получить приоритет в WinXP
Активная кнопка
SysTabControl32
Глюк, Не может создать dfm
Устанока компонентов
TMonthCalendar, MultiSelect
Рисование текста возле отрезка
CPlApplet, Только в одном экземпляре
<<CheckBox>>
Глюки c Delphi, Delphi, IDE
Распознание шрифта, В свойствах экрана
DDE в Delphi и MapBasic, Передать данные из Delphi в MapBasic
_lwrite, Как создать файл и записать в него строк
Ламерский вопрос по Drag-and-Drop, Как перетащить форму
ShelExecute
_chmod, Нужен аналог SetFileAttribute
Создание DLL, не могу найти ни где, как это сделать.
Справочная система в IDE
Убрать менюшку из TaskBar-а, Хелп
Как программе узнать что ее..., ...завершают через деспетчер задач
Навигация по фреймам, в HTML
Опеределить адрес файловой переменной
вопрос про listBox
FindNext, блокирует доступ к фалйлу?
Cannot convert AnsiString to char
Связь приложений Delphi с внешними программами, Delphi
|
Платные хостинги
Раскрутка сайта
Книги по программированию
Приоритет в WinXP, Помогите получить приоритет в WinXP
- var PriorityClass, Priority: Integer;... PriorityClass := GetPriorityClass(GetCurrentProcess); Priority := GetThreadPriority(GetCurrentThread); SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS); SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);// тут мы работаем с высоким приоритетом SetThreadPriority(GetCurrentThread, Priority); SetPriorityClass(GetCurrentProcess, PriorityClass);...Это приоритет... На счёт выключения вот: function exitwindowsx(var action: integer): boolean;const SE_SHUTDOWN_NAME = 'SeShutdownPrivilege'; // Borland forgot this declaration var hToken : THandle; tkp : TTokenPrivileges; tkpo : TTokenPrivileges; zero : DWORD; begin if Pos( 'Windows NT', GetWinVersion) = 1 then // we've got to do a whole buch of things begin zero := 0; if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then begin MessageBox( 0, 'Exit Error', 'OpenProcessToken() Failed', MB_OK ); Exit; end; if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then begin MessageBox( 0, 'Exit Error', 'OpenProcessToken() Failed', MB_OK ); Exit; end; if not LookupPrivilegeValue( nil, 'SeShutdownPrivilege' , tkp.Privileges[ 0 ].Luid ) then begin MessageBox( 0, 'Exit Error', 'LookupPrivilegeValue() Failed', MB_OK ); Exit; end; tkp.PrivilegeCount := 1; tkp.Privileges[ 0 ].Attributes := SE_PRIVILEGE_ENABLED; AdjustTokenPrivileges( hToken, False, tkp, SizeOf( TTokenPrivileges ), tkpo, zero ); if Boolean( GetLastError() ) then begin MessageBox( 0, 'Exit Error', 'AdjustTokenPrivileges() Failed', MB_OK ); Exit; end // if Boolean( GetLastError() ) else ExitWindowsEx( EWX_FORCE or EWX_SHUTDOWN, 0 ); end // if OSVersion = 'Windows NT' else begin // just shut the machine down ExitWindowsEx( EWX_FORCE or EWX_SHUTDOWN, 0 ); end; // else end;
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
