» Вопросы по Delphi (все версии) - часть 3

George_Lucky, мож CharToOem ?

Народ, ну поделитесь функцией проверки наличия сервиса на удалённой машине.
ПЛЗ

Chuvakstepan

Цитата:

StripReloc

странно, что у тебя в "интересах" Inno Setup, а про StripReloc не знаешь (это разработки одного автора). - http://www.jrsoftware.org/striprlc.php
програмка удаляет из ехе-файла relocation table, который там и не нужен (нужен только в ДЛЛ-ках). Много размера не выиграешь, но и ничего не теряешь.

Jokerjar79, George_Lucky
CharToOem можно, но только когда у тебя в системе настроено OEMCP = 866 и ANSI CP = 1251. А иначе получишь не совсем 1251 в 866. Я бы советовал использовать свою табличку перекодировки.

2: skinash
Моя 1 копейка....
А мона вопрос?

Как "бедный С-шник" спорил с "Пасквилянтом" (без обид) и тот мне заявил, что у Делфей супероптимизирующий линкер. Так что неиспользуемый код из модулей просто не включает в результирующий exe.

Ну в С это было еще в ДОСе. Так нафига переписывать функции из больших модулей? Линкер все равно уберет мусор.

StripReloc не помог
Но вот помогло!:

Код: uses
Windows;
{$SETPEFLAGS IMAGE_FILE_RELOCS_STRIPPED}

mrrex, проверим?

1 случай:


Код: program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

begin
writeln(StrPas('Hello'));
readln;
end.

Цитата:

А вообще в интернете много статей по поводу уменьшения размера

Например, вот эта: Уменьшаем Exe, удаляя релоки без сторонних утилит

relictus прав
{$SETPEFLAGS IMAGE_FILE_RELOCS_STRIPPED} я взял именно оттуда

lavren
А теперь расшифруй, что у тебя называется DBE. Сколько лет БД занимаюсь, а про такого зверя не слышал.
И заодно: а не путаешь ли ты случайно переиндексацию с изменением ФИЗИЧЕСКОГО расположения записей.
Построить новый индекс или обновить его - это вообще не задача, 1-3 строчки кода. А вот переколбасить dbf-ник, чтобы в нем изменился физический порядок записей - это малость сложнее.


Добавлено:
mrrex

Цитата:

Как "бедный С-шник" спорил с "Пасквилянтом" (без обид)

Тогда уж Как "бедный наСильник" спорил с "Пасквилянтом" (без обид) .

SergeBS
Ставлю на dBASE через BDE

SergeBS
BDE - Borland Database Engine - процессор баз данных. Я решил что antonn2 спрашивает какие технологии доступа к данным я использую.
Часто приходится запускать dbd32.exe, жать Restruсture... и переиндексовывать базу!
Опыта программирования баз данных почти нету, шеф сказал сделай чтобы в этих, этих и этих местах само переиндексовывало! Гугл не помог!

lavren
Попробуй следующую функцию: DbiRegenIndexes(Table.Handle);

ranc
Спасибо!

Jokerjar79
доходчиво.

впрочем, этого и следовало ожидать.
SergeBS

Цитата:

Тогда уж Как "бедный наСильник" спорил с "Пасквилянтом" (без обид) .

каждый москаль любит - Паскаль
хохлы же уси пишут ни Си!

Какие обиды?

Всех дельфистов с прошедшим праздником программиста. 256-ой день!

Ребята помогите.
Нужен исходник редактора ини файлов. Что бы мог записывать, показывать, удалять, секций целиком, ключи с параметрами, только параметры. Весь гугл перерыл, не могу найти!

Ohotnic
Кажется, у VirtualTreeview в демках был.
На Torry смотрел?

Сайт www.torry.ru (если вы его имеете ввиду) не работает.

Ohotnic
_http://www.torry.net
настоящая мекка для дельфинов

Arvur
Спасибо, будем знать.

Подскажите плиз как сделать мессаджбокс с иконкой в заголовке. Пробовал через findwindow, но походу функция не находит требуемое окно, хотя указал надпись заголовка для функции.

Maks150988, немного коряво, но должно работать =)

Код: procedure ChIcon(P: pointer);
var
icon: HIcon;
begin
sleep(10);
icon := Application.Icon.Handle;
SendMessage(FindWindow(nil,'caption'), WM_SETICON, 1, icon);
exitthread(0);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
h: cardinal;
begin
CreateThread(nil,0,@ChIcon,0,0,h);
MessageBox(Handle,'text','caption',MB_OK or MB_ICONINFORMATION);
end;

Jokerjar79
иконки не видно, но меню есть при нажатии. что-то тут не так...

Дорогие пользователи форума. Я учусь на программиста, мне нужно срочно сдать курсовую работу написанную на DELPHI 5.0. Всегда готов отблагодарить webmanyми на пиво.

Привожу задание ниже, будут необходимы уточнения по заданию, пишите.

Программа, написанная на DELPHI 5.0, при запуске которой выходит форма со списком пользователей: Администратор и пользователь, и поле с вводом пароля.
При регистрации Администратора, выходит форма, с memo и checkbox –ы с видами ограничений в memo поле:
-Просмотр (memo поле )
-Копирование и вставка данных (с мемо поле с помощью клавиш и мышки, )
- редактирование (набирание текста с клавиатуры, копирование, вставка, удаление)
При изменениях, эти изменения доступны пользователю при следующей загрузки формы пользователем.
При каждой регистрации администратора или пользователя, ведется log файл, в нем указывается время и дата запуска пользователем или администратором и время его выход из программы.



Заранее GRAND RESPECT!!! Комрады.

Varenikus
сколько планируешь потратить?

в общем, вот ехе - http://desksoft.ru/index.php?downloads=attachments&id=18 (173кб), если устраивает, исходники за символические 5 вмз отдам

Maks150988, а если так?

Код: procedure ChIcon(P: pointer);
var
h: HWnd;
begin
repeat
h := FindWindow(nil,'caption');
Application.ProcessMessages;
until
h <> NULL;
SendMessage(h, WM_SETICON, 1, Application.Icon.Handle);
exitthread(0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
h: cardinal;
begin
CreateThread(nil,0,@ChIcon,0,0,h);
MessageBox(Handle,'Я MessageBox с иконкой!','caption',MB_OK or MB_ICONINFORMATION);
end;

Jokerjar79
Maks150988
Прикольно!! работает... ;-))
только я бы рекомендовал вынести заголовок в константы:

Код:
const
MB_caption = ' ПРОБА';
...
h := FindWindow(nil,MB_caption);
...
MessageBox(Handle,'Я MessageBox с иконкой!',MB_caption,MB_OK or MB_ICONINFORMATION);

Jokerjar79
у меня просто видно стандартный значок, когда значка нет вообще (ну белый просто). что-то не выходит.

Я новичок, поэтому вопрос будет из этой категории.

Имеется три ComboBox. В первый из ини файла грузятся секции ini.ReadSections(ComboBox1.Items).
А во второй и третий должны грузиться соответственно ключи и параметры выбранной секции в первом ComboBox. Кам это реализовать в коде?
Напишите пример пожалуйста.

То есть тебе белый значок туда нужно вставить? Или с файла? Или с ресурсов?