Отправляет email-рассылки с помощью сервиса Sendsay

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Январь 2004   →
 1
 2
 3
 4
 5
 6
 7
 8
08.01.2004
12:12:16
13:12:05
 9
10
11
12
12.01.2004
12:50:46
13:02:23
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Информационный Канал Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHIMASTER.ru

Выпуск от 28.01.04 09:04

Кое-что из нашей кладовки   |x|
Лучшее из нашего FAQ   |x|
Определение системной информации.
Часто при создании систем привязки программ к компьютеру или окон типа System Info или About Box необходимо определить данные о пользователе и о системе. Это можно сделать следующим образом (из примеров по Delphi - программа COA):

Procedure GetInfo;
Var
 WinVer, WinFlags : LongInt;        { Версия Windows и флаги }
 hInstUser, Fmt : Word;            { Дескриптор  }
 Buffer : ARRAY[0..30] OF Char;    { Буфер под ASCIIZ строку }
begin
 hInstUser := LoadLibrary('USER');    { Открыли библиотеку User }
 LoadString(hInstUser, 514, Buffer, 30);
 LabelUserName.Caption := StrPas(Buffer);    { Имя пользователя }
 LoadString(hInstUser, 515, Buffer, 30);
 FreeLibrary(hInstUser);
 LabelCompName.Caption := StrPas(Buffer);    { Компания }
 WinVer
:= GetVersion;
 LabelWinVer.Caption := Format('Windows %u.%.2u',    { Версия Windows }
        [LoByte(LoWord(WinVer)), HiByte(LoWord(WinVer))]);
 LabelDosVer.Caption := Format('DOS %u.%.2u',    { Версия DOS }
        [HiByte(HiWord(WinVer)), LoByte(HiWord(WinVer))]);
 WinFlags := GetWinFlags;
 IF WinFlags AND WF_ENHANCED > 0 THEN
   LabelWinMode.Caption := '386 Enhanced Mode'  { Режим }
 ELSE IF WinFlags AND WF_PMODE > 0 THEN
   LabelWinMode.Caption := 'Standard Mode'
 ELSE LabelWinMode.Caption := 'Real Mode';
 IF WinFlags AND WF_80x87 > 0 THEN            { Сопроцессор }
  ValueMathCo.Caption := 'Present'
 ELSE ValueMathCo.Caption := 'Absent';

 Fmt := GetFreeSystemResources(GFSR_SYSTEMRESOURCES);
 ValueFSRs.Caption := Format('%d%% Free', [Fmt1]);  
 { Свободно ресурсов }
{ Свободно памяти}
 ValueMemory.Caption := FormatFloat(',#######', MemAvail DIV 1024) + ' KB Free';    
end;



»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
Программирование Интернет приложений в Borland Kylix. Часть I. Создай своих демонов!
В этой статье речь пойдет о создании интернет серверов (сетевых демонов) в Linux при помощи среды разработки Kylix и входящего в нее набора компонентов Internet Direct. В качестве примера описывается разработка простого сервера протокола HTTP.
Новинки книжного рынка   |x|
Теория и практика построения баз данных. 8-е изд.
В книге, написанной в форме учебного пособия для студентов, специализирующихся в области информационных технологий, освещается широкий круг теоретических и практических вопросов, связанных с разработкой и использованием баз данных. К особенностям восьмого издания книги относится, в частности, появление материала, посвященного новым технологиям публикации баз данных (XML) и обработки баз данных масштаба предприятия (ODBC, ASP, JDBC, JSP). Книгу отличает продуманность структуры, живой и доступный язык изложения, а также большое количество примеров, моделирующих типичные ситуации из практики делового мира.
Автор: Крёнке Д.
Другие сайты о DELPHI   |x|
Cоding World
Дельфи, пхп, с++, веб-мастеринг. Статьи, программы, редакторы. Ежедневные новости из мира программирования и софта.
» Оценка сайта: 3
Опрос населения :)
Как вы относитесь к KOL и MCK?
»»» Отлично.
»»» Никак.
»»» Барахло.
»»» А что это?
Для души

Хокку дня
Преследовавшие друг друга кошки
замирают -
удар грома.

Афоризмы
Самое большое несчастье - неумение переносить несчастье...

Фраза дня
В жизни каждого мужчины наступает момент, когда чистые носки проще купить.

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Канаде считается преступлением отдирать с тела пластыри на публике.
В провинции Онтарио автомобилистам запрещено ездить со скоростью более 80-ти километров в час. Велосипедисты, однако, имеют право обгона на всех дорогах.

И на закуску коротенький анекдот
- Скажите, доктор, а идиот - это заболевание?
- Для Вас, голубчик, - выздоровление!

Фотоприколы.
Начните день с хорошего настроения!
http://www.delphimaster.ru/cgi-bin/prikol.pl?id=30211

На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (merlin@delphimaster.ru)

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное