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

RusFAQ.ru: Программирование на Delphi


Новое направление Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 1085
от 07.03.2008, 17:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 442, Экспертов: 66
В номере:Вопросов: 4, Ответов: 6

Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>


Вопрос № 125610: Программе на делфи требуется определить когда к компьютеру подключается флешка и узнать ее имя в системе. как это реализовать?...
Вопрос № 125619: Доброго времени суток, уважаемые эксперкты. Вопрос: как программе удалить саму себя?...
Вопрос № 125657: Доброго времени суток, уважаемые эксперты. Подскажите, пожалуйста, как осуществить загрузку файла с сетевого ресурса средствами Borland Delphi. Заранее спасибо<p><fieldset style='background-color:#EFEFEF; width:80%; border:1px solid; padding:...
Вопрос № 125662: Здравствуйте! Помогите решить такой вопрос. Пишу небольшую программку на delphix. Мне нужно программно произвести щелчок мышкой по спрайту. Для этого хочу вычислить абсолютные координаты спрайта. Но такой функции как например для кнопки button1.Clien...

Вопрос № 125.610
Программе на делфи требуется определить когда к компьютеру подключается флешка и узнать ее имя в системе. как это реализовать?
Отправлен: 01.03.2008, 21:25
Вопрос задал: Shell (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Selya
Здравствуйте, Shell!
Вот компонент TComponentUSB, инкапсулирующий события подключения/отключения USB: (см. прил.1)
А уже на событие OnUSBArrival можно подвесить такой код, определяющий букву диска подключенного устройства: (см. прил.2, конечно не btnGetDriveTypesClick, а USBArrival)

Приложение:

Ответ отправил: Selya (статус: 9-ый класс)
Ответ отправлен: 02.03.2008, 03:01


Вопрос № 125.619
Доброго времени суток, уважаемые эксперкты. Вопрос: как программе удалить саму себя?
Отправлен: 01.03.2008, 23:19
Вопрос задал: Хукаленко Дмитрий (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Николай Владимирович / Н.В.
Здравствуйте, Хукаленко Дмитрий!
Программа в приложении (два варинта).
Источник - DelphiWorld.

Удачи!

Приложение:

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал)
Россия, Москва
WWW: nvsoft.org
ICQ: 420720
----
Ответ отправлен: 02.03.2008, 09:10
Оценка за ответ: 4
Комментарий оценки:
Спасибо за ответ, но обе программы не работают, если в пути есть русские буквы. Это очень не удобно.

Отвечает: Denisss

Здравствуйте, Хукаленко Дмитрий!

В приложении почти тот же ответ, что и у эксперта Николай Владимирович / Н.В., но еще дополнительно модифицированный для работы с папками и файлами, в именах которых есть буквы кириллицы (в имени папки или самого файла).

Например, код, описанный выше, не сработал у меня в папке "e:Проекты Delphi". Более того, в папке с exe-файлом появился еще и файл $$336699.bat.

Удачи!

Приложение:

---------
Будь осторожен, когда молишься ради чего-то, потому что можешь это получить...

Ответ отправил: Denisss (статус: Профессионал)
Россия, Москва
ICQ: 281599577
----
Ответ отправлен: 02.03.2008, 11:21
Оценка за ответ: 5
Комментарий оценки:
Большое спасибо. Всё отлично работает.


Вопрос № 125.657
Доброго времени суток, уважаемые эксперты.
Подскажите, пожалуйста, как осуществить загрузку файла с сетевого ресурса средствами Borland Delphi.
Заранее спасибо

Исправлена ошибка.
-----
∙ Отредактировал: sir henry (Академик)
∙ Дата редактирования: 03.03.2008, 10:54
Отправлен: 02.03.2008, 12:26
Вопрос задал: Serpenser PO (статус: 1-ый класс)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Genia007
Здравствуйте, Serpenser PO!
Попробуйте следующий код, возможно он Вам подойдёт:
uses
URLMon, ShellApi;

function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
except
Result := False;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
SourceFile: String; {Где находится файл в нете}
DestFile: String; {Куда качать}
begin
if DownloadFile(SourceFile, DestFile) then
begin
ShowMessage('Download succesful!');
{Показ загруженного изображения в браузере}
ShellExecute(Application.Handle, PChar('open'), PChar(DestFile),
PChar(''), nil, SW_NORMAL)
end
else
ShowMessage('Ошибка скачивания ' + SourceFile)
end;

Возможно так-же организовать скачивание с докачкой при помощи Winlnet.Pas модуля дэлфи, пример программы в журнале
Хакер за 04.2003.
Ответ отправил: Genia007 (статус: 7-ой класс)
Ответ отправлен: 03.03.2008, 13:20


Вопрос № 125.662
Здравствуйте! Помогите решить такой вопрос. Пишу небольшую программку на delphix. Мне нужно программно произвести щелчок мышкой по спрайту. Для этого хочу вычислить абсолютные координаты спрайта. Но такой функции как например для кнопки button1.ClientToScreen(pt) для спрайта нет! Как программно щелкнуть по спрайту и как определить абсолютные координаты спрайта?
Спасибо!
Отправлен: 02.03.2008, 13:21
Вопрос задал: Tolorion (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Drbear
Здравствуйте, Tolorion!

Почитайте
Туториал по DelphiX
там довольно много информации по DelphiX и спрайтам.

Оформлена ссылка.
-----
∙ Отредактировал: Николай Владимирович / Н.В. (Профессионал)
∙ Дата редактирования: 02.03.2008, 14:51
Ответ отправил: Drbear (статус: 8-ой класс)
Ответ отправлен: 02.03.2008, 13:40

Отвечает: MaratM
Здравствуйте, Tolorion!
уважаемый Tolorion , вы же сами создаете спрайт и его координаты неужели вы неможете узнать его координты(которые задаете сами)?
Ответ отправил: MaratM (статус: 1-ый класс)
Ответ отправлен: 03.03.2008, 01:24


Вы имеете возможность оценить этот выпуск рассылки.
Нам очень важно Ваше мнение!
Оценить этот выпуск рассылки >>

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2008, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале
Версия системы: 4.72.2 от 06.03.2008
Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru

В избранное