Разделы сайта:

Новости сайта
Delphi.int.ru Expert
Файловый архив
∙ Статьи
∙ Компоненты
∙ Plug-in's
∙ Документация
∙ Исходники
∙ Изображения
∙ Игры
∙ Программы
F.A.Q. (ЧаВО)
Рассылки сайта
Дружеств. сайты
Обратная связь
Каталог ссылок

Разделы рассылки:

Авторское слово
Delphi.int.ru Expert
Статья по Delphi
Файловый архив
Ссылки
Юмор

Количество читателей рассылки (09.01.2007, 10:00):
5380+780+201= 6361.

Текст вопроса:

Здраствуйте. Необходимо через Delphi открыть существующий xls документ, изменить ширину и высоту ячеек верхнего левого квадрата 14х14 и затем записать в них другие значения.Закрыть этот файл с сохранением изменений.
Использую компоненты TExcelApplication и TExcelWorkBook(ConnectKind = ckAttachToInterface)

Автор вопроса: Князев А.А. (статус: Посетитель)
Дата и время отправки вопроса: 11.10.2006, 16:40
Получено ответов на вопрос: 0
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

К сожалению, ответов на данный вопрос не поступило...

Текст вопроса:

К вопросу 129 не могу отправить сообщение в форуме!!!

Во-первых я что то не слышал что JvxMainMenu является стандартным компонентом Borland.
Во-вторых о безвыходности я не говорил - мне что надо ручками написать и выложить на всеобщее обозрение как это делается? Так простите - это будет мой собственный компонент имеющий право на коммерческое существование.
В-третьих - что значит доступ заблокирован - отсутствует Property Canvas - или оно расположено в разделе private, protected или вообще исходного кода для компонента нет. И насколько я помню событие OnDrawItem определяет событие для Item TMainMenu поэтому и перерисовываем только итемы а не всю строку.

А теперь совет: почитайте о создании компонентов -> возьмите за исходный код определение TMainMenu и добавьте свойства Canvas и методы для его прорисовки и изменения а также Event по которому будет происходить обработка - удачи!!!

Автор вопроса: Alex Van Glukhman (статус: 5-ый класс)
Дата и время отправки вопроса: 12.10.2006, 18:07
Получено ответов на вопрос: 0
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

К сожалению, ответов на данный вопрос не поступило...

Текст вопроса:

Ты бы не мог помочь .
изменить код алгоритма так, чтобы он не потерял свою
работоспособность к программе Delphi.
нужно чтобы код отличался от исходного...сам пытаюсь но пока
ни чего не получается.
miyv@nm.ru

Приложение:

http://www.miyv.nm.ru/zadaska 1.rar

Автор вопроса: Уваровский miYv (статус: Посетитель)
Дата и время отправки вопроса: 14.10.2006, 20:35
Получено ответов на вопрос: 1
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Dron (статус: 10-ый класс), 19.10.2006, 19:08]:

Здравствуйте.
Несколько странное задание, к тому же оно уже было сделано... Я сделал небольшие изменения:
http://expert.delphi.int.ru/download_21
Может быть, это Вам чем-то поможет...
Удачи!

Текст вопроса:

Привет!
Подскажите, пожалуйста, как программно отключить соединение интернета?
Нашел только через Ras, но не нашел где скачать RasUnit.pas
Может есть альтернативные способы???
Поделитесь кодом, пожалуйста.

Автор вопроса: Евгений В (статус: 1-ый класс)
Дата и время отправки вопроса: 15.10.2006, 06:49
Получено ответов на вопрос: 1
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Dron (статус: 10-ый класс), 15.10.2006, 10:07]:

Здравствуйте, Евгений В!
Вот модуль для работы с RasAPI:
http://expert.delphi.int.ru/download_20
Думаю, в нем Вы найдете все, что нужно для поставленной задачи.
А вот небольшая статья:
http://articles.org.ru/cfaq/index.php?qid=420&catid=31
Возможно, пригодится...
Желаю удачи!

Оценка за ответ: 5.

Текст вопроса:

Уважаемые эксперты!
Я хочу сделать такую программу с помощью которой админ сети мог на "экране" своего компа видеть то что делают другие его "подчиненные". Подскажите плиз как можно это организовать.

Автор вопроса: Александр (статус: Посетитель)
Дата и время отправки вопроса: 15.10.2006, 15:04
Получено ответов на вопрос: 4
Сообщений в форуме вопроса: 11
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Dron (статус: 10-ый класс), 15.10.2006, 15:40]:

Здравствуйте, Александр!
Достаточно сложная задача. Попробую рассказать об общих моментах:
1. Программа будет состоять из двух частей: одна - админская, другая - клиентская (шпион).
2. На удалённый компьютер нужно установить программу и поместить её в автозагрузку, а также сделать максимально скрытой - убрать значок из трея, скрыть из диспетчера задач и т.д. Ведь сам пользователь её не запустит...
3. При запуске программа устанавливает с сервером связь по сети (наиболее вероятно, что сеть локальная). Ну а дальше на что хватит фантазии...
Насчёт изображения всего экрана - это слишком трудо- и ресурсоёмко. Программа-шпион должна делать скриншоты с довольной высокой частотой, отправлять их по сети, а программа-сервер - загружать и показывать. Не каждая локальная сеть будет держать такие нагрузки, ла "подчиненный" может заметить, что сеть всё время активна и попытается понять, в чём дело. Лучше делать скриншоты экрана реже - всё равно будет понятно, что происходит. Например, раз в 3 секунды. Будет очень даже неплохо.
Для соединения по сети первое, что приходит в голову - использовать стандартные TClientSocket и TServerSocket. Однако можно поискать что-то получше и поновее.
Создание такой "системы" займёт много времени и всего здесь не описать. Попробуйте начать разработку, а вопросы, которые будут возникать в её процессе, задавайте. Лично я готов помогать (ну если сам знаю, конечно).
Надеюсь, что общая технология ясна. Удачи!

Оценка за ответ: 5.

2. [Отвечает: Geron (статус: 1-ый класс), 15.10.2006, 21:01]:

Здравствуйте, Александр! Для этого нужно использовать сокеты или файлы, чтобы программы на компе жертвы передавала вам файлы(или оставляла у себя файлы, а ваша программа забирала файлы) или посылала вам сообщения через порты(сокеты). Лучше всего использовать файлы. Программа на компе жертвы должна быть не видима. А лучше всего быть драйверам или сервисам. Если нужны подробности пишите мне на Stalker777@tyt.by

Оценка за ответ: 5.

3. [Отвечает: min@y™ (статус: 4-ый класс), 16.10.2006, 09:31]:

Может проще скачать Remote Administrator и не мучиться?

Оценка за ответ: 5.

4. [Отвечает: Виталий Лещенко (статус: 2-ой класс), 17.10.2006, 00:47]:

Здравствуйте, Александр!

Такие программы уже существуют.
Например "Remote Administrator".
Лучше все равно не сделаешь!

Оценка за ответ: 5.

Текст вопроса:

Доброе время господа программисты. Как в Дельфи удалить папку?

Автор вопроса: Geron (статус: 1-ый класс)
Дата и время отправки вопроса: 20.10.2006, 00:29
Получено ответов на вопрос: 4
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Dron (статус: 10-ый класс), 20.10.2006, 06:50]:

Здравствуйте, Stalker!
Очень просто: RmDir('path'). Единственное условие - каталог должен быть пустым, т.е. если он содержит файлы, то сначала нужно удалить их, а только затем сам каталог.

2. [Отвечает: min@y™ (статус: 4-ый класс), 20.10.2006, 08:24]:

Советую почитать хэлпоид по функции SHFileOperation() и по структуре SHFILEOPSTRUCT, с которой она работает. В приложении я привожу реализацию удаления каталога (даже непустого), взятую из модуля dwFiles.pas пакета Delphi Works.

Приложение:

function dwDeleteDirectory(Directory: String; CanUndo, DeleteNotEmpty, GUI: Boolean): Boolean; var SHFileOpStruct : TSHFileOpStruct; FOS_FLAG: DWORD; FromBuf, ToBuf: Array [0..255] of Char; begin result:= FALSE; if not DirectoryExists(Directory) then exit; if not DeleteNotEmpty then begin if not dwDirIsEmpty(Directory) then exit; end; Fillchar(SHFileOpStruct, Sizeof(SHFileOpStruct), 0); FillChar(FromBuf, Sizeof(FromBuf), 0); FillChar(ToBuf, Sizeof(ToBuf), 0); StrPCopy(FromBuf, Directory); StrPCopy(ToBuf, String('')); if CanUndo then FOS_FLAG:= FOF_ALLOWUNDO else FOS_FLAG:= 0; if not GUI then FOS_FLAG:= FOS_FLAG or FOF_NOCONFIRMATION; with SHFileOpStruct do begin Wnd:= 0; wFunc:= FO_DELETE; pFrom:= @FromBuf; pTo:= @ToBuf; fFlags:= FOS_FLAG; end; result:= (ShFileOperation(SHFileOpStruct)=0); end;

3. [Отвечает: sattar sattar (статус: 2-ой класс), 20.10.2006, 17:51]:

var
SR:TSearchRec;
procedure TForm1.Button1Click(Sender: TObject);
begin
if FindFirst('c:\folder\*.*',faAnyFile,SR)=0 then
repeat
DeleteFile('c:\folder\'+SR.Name)
until FindNext(SR)<>0 ;
FindClose(SR);
RemoveDir('c:\folder\');

4. [Отвечает: Новаковский Юрий Аврамович (статус: 3-ий класс), 20.10.2006, 19:02]:

Привет Stalker

Очень советую поставить пакет JEDI-VCL,
там есть компонент:

TJvSHFileOperation Copies, moves, renames, or deletes files, while showing the standard Windows progress dialog.
И никаких проблем, удачи Вам.

Текст вопроса:

Уважаемые эксперты!
У меня тут возник вопрос с интерфейсом моей программы. Мне нужно чтобы какая-либо TPanel крепилась к ближайшему элементу на форме. Ну, например, задуются случайные координаты для TPanel. Необходимо чтобы эта TPanel при запуске программы изменяла свои координаты так чтобы она крепилась к ближайшей границе какого-нибудь другого компонента, например к другой такой же TPanel.

Автор вопроса: Александр (статус: Посетитель)
Дата и время отправки вопроса: 21.10.2006, 16:23
Получено ответов на вопрос: 1
Сообщений в форуме вопроса: 3
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Dron (статус: 10-ый класс), 21.10.2006, 18:37]:

Здравствуйте, Александр!
Я реализовал нечто подобное. Код модуля в приложении. А вот скриншот примерного расположения элементов:
http://expert.delphi.int.ru/download_22
Однако метод не совсем доработан - иногда встречаются неправильные "прилипания". Но, думаю, сделав по аналогии, Вы разберётесь и доработаете его так, как Вам требуется.
Общая технология:
1) Для каждого элемента определить его положение относительно "двигаемого" элемента - слева от него, справа, сверху или снизу.
2) Для каждого элемента найти расстояние до нашего компонента.
3) Выбрать из расстояний наименьшее.
4) Прицепить наш компонент к тому элементу, расстояние до которого минимально.
Удачи!

Приложение:

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Panel1: TPanel; Panel2: TPanel; Panel3: TPanel; Panel4: TPanel; Panel: TPanel; Memo1: TMemo; Button1: TButton; procedure Button1Click(Sender: TObject); function GetDistTo(X,Y,W,H: Integer; PanelT: TPanel): Integer; procedure PanelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function TForm1.GetDistTo(X,Y,W,H: Integer; PanelT: TPanel): Integer; var W1,H1,X1,Y1,L: Integer; begin W1:=PanelT.Width; H1:=PanelT.Height; X1:=PanelT.Left; Y1:=PanelT.Top; If (X1+W1) < X Then {Ïàíåëü ñëåâà îò íàøåé} L:=X-X1-W1; If (X+W) < X1 Then {ñïðàâà} L:=X1-W-X; If (Y1+H) < Y Then {ñâåðõó} L:=Y-H-Y1; If (Y+H) < Y1 Then {ñíèçó} L:=Y1-H-Y; Result:=L; end; procedure TForm1.Button1Click(Sender: TObject); Var X,Y,W,H,I,Min,MinI: Integer; Dist: Array Of Integer; Panels: Array Of Integer; begin Memo1.Clear; {Êîîðäèíàòû è ðàçìåðû íàøåé ïàíåëè} X:=Panel.Left; Y:=Panel.Top; W:=Panel.Width; H:=Panel.Height; SetLength(Dist,4); SetLength(Panels,4); {Îïðåäåëÿåì ðàññòîÿíèÿ äî êàæäîé èç äðóãèõ ïàíåëåé} For I:=1 To 4 Do Begin Dist[I-1]:=GetDistTo(X,Y,W,H,TPanel(FindComponent('Panel'+IntToStr(I)))); Panels[I-1]:=I; Memo1.Lines.Add('Ðàññòîÿíèå äî Panel'+IntToStr(I)+': '+IntToStr(Dist[I-1])); End; {Òåïåðü íàõîäèì êðàò÷àéøåå ðàññòîÿíèå} MinI:=0; Min:=Dist[0]; For I:=0 To 4-1 Do If Dist[I] < Min Then Begin Min:=Dist[I]; MinI:=I; End; X:=TPanel(FindComponent('Panel'+IntToStr(MinI+1))).Left; Y:=TPanel(FindComponent('Panel'+IntToStr(MinI+1))).Top; W:=TPanel(FindComponent('Panel'+IntToStr(MinI+1))).Width; H:=TPanel(FindComponent('Panel'+IntToStr(MinI+1))).Height; If Panel.Left > X+W Then {äâèãàåì âëåâî} Panel.Left:=X+W; If Panel.Left+Panel.Width < X Then {äâèãàåì âïðàâî} Panel.Left:=X-Panel.Width; If Panel.Top > Y+H Then {ââåðõ} Panel.Top:=Y+H; If Panel.Top+Panel.Height < Y Then {âíèç} Panel.Top:=Y-Panel.Height; end; procedure TForm1.PanelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var pt : TPoint; begin ReleaseCapture; SendMessage(Panel.Handle, WM_SYSCOMMAND, 61458, 0); {$IFNDEF WIN32} GetCursorPos(pt); SendMessage(Panel.Handle, WM_LBUTTONUP, MK_CONTROL, Longint(pt)); {$ENDIF} Button1.Click; end; end.

Оценка за ответ: 5.

Текст вопроса:

Доброе время суток, господа программисты. Как
программно открыть ярлык "Far Manager". Заранее благодарен.

Автор вопроса: Geron (статус: 1-ый класс)
Дата и время отправки вопроса: 22.10.2006, 12:02
Получено ответов на вопрос: 1
Сообщений в форуме вопроса: 2
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: min@y™ (статус: 4-ый класс), 23.10.2006, 08:23]:

Ну, если надо запустить Far именно через ярлык, то, например, так:

// см. приложение

Приложение:

ShellExecute(Handle, 'open', 'FAR manager.lnk', nil, 'C:\Documents and Settings\min@y™\Рабочий стол', SW_ShowNormal);

Текст вопроса:

Добрый день уважаемые эксперты!
Подскажите пожалуйста как работать с подключаемыми интерфейсами Windows Media Player ActiveX, в частности как получить управление єквалайзером и визуализацией?

Автор вопроса: Ильченко В. Г. (статус: Посетитель)
Дата и время отправки вопроса: 23.10.2006, 17:33
Получено ответов на вопрос: 1
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Dron (статус: 10-ый класс), 25.10.2006, 15:41]:

Здравствуйте, Ильченко В. Г.!
По всей видимости, данный функционал недоступен через ActiveX. Вероятно, это дополнительные расширения WMP. Эквалайзер придётся делать самостоятельно с помощью каких-либо сторонних модулей, а визуализация - это просто красивая графика, отрисовывающаяся по каким-либо формулам и алгоритмам.
А вообще, на мой взгляд, для воспроизведения медиа-файлов лучше использовать специальные пакеты (стандартный TMediaPlayer тоже не очень хорош).
Удачи!

Текст вопроса:

Здарвствуйте, я хочу начать программирование с азов, хотелось бы, узнать, с чего начать? И как можно узнать IP-адрес на компьютере? Заранее благодарю!!!

Автор вопроса: Томина Анна Юрьевна (статус: Посетитель)
Дата и время отправки вопроса: 24.10.2006, 19:14
Получено ответов на вопрос: 4
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Виталий Лещенко (статус: 2-ой класс), 25.10.2006, 00:30]:

Здравствуйте, Томина Анна Юрьевна!

Вот посмотри эл.книжку
"Программирование на языке Delphi"
http://vitaliy.org/book/index.php

Там все по порядку и довольно хорошо изложено.

Приложение:

program IP; uses WinSock,Windows; const WINSOCK_VERSION = $0101; function GetIPAddress(Name:String): string; var WSAData : TWSAData; p : PHostEnt; begin WSAStartup(WINSOCK_VERSION, WSAData); p := GetHostByName(PChar(Name)); Result := inet_ntoa(PInAddr(p.h_addr_list^)^); WSACleanup; end; function GetLocalIP: String; const WSVer = $101; var wsaData: TWSAData; P: PHostEnt; Buf: array [0..127] of Char; begin Result := ''; if WSAStartup(WSVer, wsaData) = 0 then begin if GetHostName(@Buf, 128) = 0 then begin P := GetHostByName(@Buf); if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^); end; WSACleanup; end; end; var s:string; begin s := GetLocalIP; s := 'Local IP address :'+s; MessageBox(0,pchar(s),'',0); end.

Оценка за ответ: 5.

2. [Отвечает: Geron (статус: 1-ый класс), 25.10.2006, 00:38]:

Здравствуйте, Томина Анна Юрьевна! В uses добавляем WinSock.
после
implementation
{$R *.dfm}
пишем
function GetLocalIP: String;
const WSVer = $101;
var
wsaData: TWSAData;
P: PHostEnt;
Buf: array [0..127] of Char;
begin
Result := '';
if WSAStartup(WSVer, wsaData) = 0 then begin
if GetHostName(@Buf, 128) = 0 then begin
P := GetHostByName(@Buf);
if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
end;
WSACleanup;
end;
end;
по нажатию кнопки пишем действие
edit1.Text:=GetLocalIP;

Оценка за ответ: 5.

3. [Отвечает: Новаковский Юрий Аврамович (статус: 3-ий класс), 25.10.2006, 10:57]:

Здравствуйте, Томина Анна Юрьевна!
От себя могу посоветовать любую из книг Фаронова. У него есть книги на любые вкусы,
от новичка до профессионала.
Но если Вы будете набирать приведенные в книге тексты программ, или еще хуже копировать их с CD,то Вы всегда будете чайником.
Нельзя научиться стихосложению переписывая стихи Пушкина.
Развивайте алгоритмическое мышление.
Придумывайте себе задачи и сами их решайте.
Можно взять пример из книги, но текст программы писать не подсматривая, пользуясь только справкой Delphi. И только в крайнем случае, когда совсем непонятно, можно посмотреть как сделано в примере, но только маленький кусочек кода.
Для начала задание:
Откройте в Delphi новый проект, положите на форму кнопку TBitButton, и не написав не единой строчки кода, а только правильно выставив в инспекторе объектов свойства кнопки добейтесь чтоб кнопка завершала работу приложения.
Попробуйте разобраться самостоятельно.
Успехов Вам.

Оценка за ответ: 5.

4. [Отвечает: Denisss (статус: 1-ый класс), 25.10.2006, 21:21]:

Здравствуйте, Анна Юрьевна!

Для начала, если траффик позволяет, то скачайте программу Delphi World (http://www.delphiworld.narod.ru/dw.html) - в ней есть ответы на многие вопросы.

Удачи!

Оценка за ответ: 5.