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

СообЧА. Программирование на Delphi

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

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

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

←   Март 2002   →
 1
 2
 3
 4
 5
05.03.2002
10:42:40
10:52:58
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Сергей

Статистика

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

СообЧА. Программирование на Delphi


Служба Рассылок Subscribe.Ru
Subscribe.Ru :СообЧа программирование на дельфи !
™—Сообча : программирование на дельфи —

Некому оформить сайт ?
Нужен красивый баннер ?
Нет времени на обновление сайта?

Качественное оформление, работа с самыми современными средствами, FLASH,CGI,JAVA
Тогда вам сюда !!!!
За 50$-100$ мы поможем

----- (перед просмотром рассылку лучше сохранить)

 

 В этом выпуске:

Попрошу не пугаться, у вас не острый приступ дальтонизма, а всего-лишь мы сменили дизайн. Все это для того, чтобы подогнать цвет рассылки, под цветовую гамму нашего сайта, т.к теперь мы будем хранить архив у нас на сайте.

Фонд поддержки наших проектов и рассылки:
Получатель: ИНН 7707083893 Новгородское ОСБ № 8629
Счет получателя: 47422810343029900030
Банк получателя :Новгородское ОСБ № 8629 г.Великий Новгород 30101810100000000698
Бик 044959698

Рассылки Subscribe.Ru это стильно удобно, и информативно!
СообЧа (СООБщество ЧАйников). Обмен опытом, вопросы, ответы.


подпишись и подпиши друга!!!!

 Contact (Связь с Нами):

Pixel@novgorod.net + Subject: (см ниже)

 

Vcl Haunting

"Золотой Чайник"

Вопрос по дельфи N (N номер версии)

Help!

Реклама

Полезный линк

 

Наш сайт : pixelsoft.narod.ru

Новости СЕТИ

К заголовку

Небольшие изменения в проекте , теперь он называется "Дельфинарий" .
Проект, который ранее базироваля как "Сообчество " переименован в дельфинарий, ввиду ряда причин, главная из которых это существование проекта с таким названием . На сайте вас ждут несколько новых файлов и перемена дизайна. Помимо того есть новости. Хочу напомнить, что в проекте "Дельфинарий" может учавствовать каждый, у кого есть чем поделиться с народом. Правила я изложу ниже:
***********************************

участнику будет выделено по 10 мб места и определенный логин. Определенные ограничения накладывает тот факт, что:

А.) К проекту допусаются только Delphi5-6 (4 в виде теории) или C++Builder тех же версий
Б.) На сайте не должно располагаться посторонних файлов не имеющих отношение к проекту (MP3,VIDEO,Чужой Софт).
В.)Закачка будет происходить через мой почтовый ящик, и перед отправкой пакета следует сделать преупреждение о размере , после чего, получив "добро" заливать. Ваш FTP это по сути дела папка вида

pixelsoft.narod.ru\yourname\
ссылка на ваш проект будет помещена на главной странице раздела проекты.

Г.) На сайте не может быть помещена информация оскорбляющая кого-либо.
Д.) Перед публикацией ваш сайт будет оптимизирован(по размеру и грамматике)

Вот , впрочем и все.
На ваших виртуальных сайтах(реально это папка в моем сайте) допускаются следующие " Вольности" :

1. Баннерообмен или любая акция при которой поднимется популярность сайта.
2. Ведение тематических чатов: уточню для тех кто не понял, дело в том, что на народе нету поддержки cgi или asp(последнее не проверял), но если у кого есть JS или Java APPLET, то я его залью и пущай администрирует. А слово "тематических" обозначает , что это только обсуждение околопрограммистских вопросов , исключение составляют дебаты на тему что круче дельфи 5 или 6, если замечу подобное - лишу домена.
3. Слияние с другими проектами и рассылками в пользу сохранения моего права на администрирование.
4. Вы имеете право на 1 колонку в рассылке, которая будет посвещена вашему проекту и написана вами (или мной, по выбору.)

Проекты будут именоваться как "Дельфинарий: <Имя проекта>", ссылка внутри сайта и рассылки будет дана без приставки.

Здесь можно купить диск и посмотреть пару скриншотов

Книги по Дельфи которые ВЫ ОБЯЗАНЫ ПРОЧИТАТЬ...

Не столько учебник, сколько справочное пособие по наиболее используемым алгоритмам и командам...

Пожалуй лучший учебник по дельфи 6 на сегодняшний день, вам даже не надо знать дельфи, чтобы начать ...

  • Дельфи 5: Руководство разработчика БД

    •  

    DirectX. Графика в проектах Delphi (+CD - ROM)
    Лучшее пособие для тех кто решил связаться с DirectX, по слухам на CD помимо примеров есть DirectxSDK7.0 от Microsoft...

    Среда программирования Delphi 5-6. Справочное пособие
    Книга полностью описывает среду программирования Delphi, которая включает в себя полный набор визуальных инструментов для быстрой и профессиональной разработки приложений для различных операционных систем, кроме того рассмотрены проблемы перехода между этими версиями дельфи.

    Программирование в Delphi 6 (+ floppy дискета ) Чайникам рекомендуется!!!

    Книга содержит методические и справочные материалы по новой версии системы визуального объектно-ориентированного программирования Delphi 6 и предшествующим версиям Delphi 5 и 4. Рассмотрены такие новые возможности Delphi, как кросс-платформенные приложения, технологии доступа к данным ADO, InterBase Express, dbExpress, компоненты — серверы СОМ, технологии распределенных приложений СОМ, CORBA, MIDAS, новая методика диспетчеризации действий...

 

Патч...

К заголовку

К сожалению данный пример у вас работать не будет, если вы не исправите выделенные фрагменты на такие, которые есть у вас. Комментарии и файл были на немецком...

procedure TForm1.Button1Click(Sender: TObject);
var
f: file;
l: longint;
datei,
altstring,
neustring,
s: string;
begin
altstring := 'Windows 95 is starting...'; // старая строка
neustring := 'Забей на это ... '; // Новая стока
datei := 'C:\Копия io.sys'; // Имя фаила

s := altstring;
assignFile(f, datei);
reset(f,1);
for l := 0 to filesize(f)-length(altstring)-1 do
begin
Application.ProcessMessages;
seek(f,l);
blockread(f,altstring[1],length(altstring));
if altstring = s then
begin
seek(f,l);
blockwrite(f,neustring[1],length(neustring));
// String was found and patched.
ShowMessage('Status: Найден и изменен!');
end;
Application.ProcessMessages;
end;
closeFile(f);
end;

Используя данную методику можно работать и через Offsetы файлов. И написать нечто, вроде своего HEX workshopa.

 

 

Консольное выключение

К заголовку

Данная программа, выключает винды , при том совместима на уровне 9x/nt, поэтому универсальна. Для меньшего размера эту программу сделали консольной, хотя можно использовать данный код в стандартном режиме

program shutdown;
{$APPTYPE CONSOLE}
uses
SysUtils,
Windows;

// Shutdown Program
// (c) 2000 NeuralAbyss Software
// www.neuralabyss.com

var
logoff: boolean = false;
reboot: boolean = false;
warn: boolean = false;
downQuick: boolean = false;
cancelShutdown: boolean = false;
powerOff: boolean = false;
timeDelay: integer = 0;

function HasParam(Opt: Char): Boolean;
var
x: integer;
begin
result := false;
for x := 1 to paramCount do
if (paramstr(x) = '-'+opt) or (paramstr(x) = '/'+opt) then result := true;
end;

function GetErrorString: String;
var
lz: Cardinal;
err: array[0..512] of Char;
begin
lz := GetLastError;
FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, nil, lz, 0, @err, 512, nil);
result := string(err);
end;

procedure DoShutdown;
var
rl,flgs: Cardinal;
hToken: Cardinal;
tkp: TOKEN_PRIVILEGES;
begin
flgs := 0;
if downQuick then flgs := flgs or EWX_FORCE;
if not reboot then flgs := flgs or EWX_SHUTDOWN;
if reboot then flgs := flgs or EWX_REBOOT;
if poweroff and (not reboot) then flgs := flgs or EWX_POWEROFF;
if logoff then flgs := (flgs and (not (EWX_REBOOT or EWX_SHUTDOWN or EWX_POWEROFF))) or EWX_LOGOFF;
if Win32Platform = VER_PLATFORM_WIN32_NT then begin
if not OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then
Writeln('Cannot open process token. ['+GetErrorString+']')
else begin
if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid) then begin
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
tkp.PrivilegeCount := 1;
AdjustTokenPrivileges(hToken, False, tkp, 0, nil, rl);
if GetLastError <> ERROR_SUCCESS then
Writeln('Error adjusting process privileges.');
end else Writeln('Cannot find privilege value. ['+GetErrorString+']');
end;
{ if CancelShutdown then
if AbortSystemShutdown(nil) = False then
Writeln(\'Cannot abort. [\'+GetErrorString+\']\')
else
Writeln(\'Cancelled.\')
else begin
if InitiateSystemShutdown(nil, nil, timeDelay, downQuick, Reboot) = False then
Writeln(\'Cannot go down. [\'+GetErrorString+\']\')
else
Writeln(\'Shutting down!\');
end;}
end;
// else begin
ExitWindowsEx(flgs, 0);
// end;
end;

begin
Writeln('Shutdown v0.3 for Win32 (similar to the Linux version)');
Writeln('(c) 2000 NeuralAbyss Software. All Rights Reserved.');
if HasParam('?') or (ParamCount=0) then begin
Writeln('Usage: shutdown [-akrhfnc] [-t secs]');
Writeln(' -k: don''t really shutdown, only warn.');
Writeln(' -r: reboot after shutdown.');
Writeln(' -h: halt after shutdown.');
Writeln(' -p: power off after shutdown');
Writeln(' -l: log off only');
Writeln(' -n: kill apps that don''t want to die.');
Writeln(' -c: cancel a running shutdown.');
end else begin
if HasParam('k') then warn := true;
if HasParam('r') then reboot := true;
if HasParam('h') and reboot then begin
Writeln('Error: Cannot specify -r and -h parameters together!');
Exit;
end;
if HasParam('h') then reboot := false;
if HasParam('n') then downQuick := true;
if HasParam('c') then cancelShutdown := true;
if HasParam('p') then powerOff := true;
if HasParam('l') then logoff := true;
DoShutdown;
end;
end.

Zaluskiy Anton(COOLer)  и Khrapunov Kirill(Pixel)  - ведущие проекта    "Мир Delphi" (C) Pixelsoftware(Pixel)& Delphi 2000-2002(COOLer)


Озон! TopList SpyLOG RLE Banner Network
http://subscribe.ru/
E-mail: ask@subscribe.ru		 Отписаться
Убрать рекламу		 Рейтингуется SpyLog

Another Banner Network

Another Banner Network

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