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

KLSoft company - программирование в Delphi и PHP

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

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

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

←   Ноябрь 2004   →
 1
 2
 3
 4
 5
 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
Автор
ADMIN

Статистика

989 подписчиков
0 за неделю
←   Все выпуски   →

X-Program ПО, новости сайта и программирование в Delphi7


Информационный Канал Subscribe.Ru

Выпуск№21

Наши адреса:
www.x-program.narod.ru(наш официальный сайт последнее обновление 13.11.2004)
X-Program@narod. ru(наш Email присылайте свои вопросы)

 


Сегодня в выпуске:
1-Извлечение из EXE-файла иконки и рисование ее в TImage
2-Вопросы подписчиков и ведущего рассылки.
3-Бегущая строка
4-
5-

  • Извлечение из EXE-файла иконки и рисование ее в TImage

    •
    uses ShellApi;

    procedure TForm1.Button1Click(Sender: TObject);
    var
    IconIndex: word;
    h: hIcon;
    begin
    IconIndex := 0;
    h := ExtractAssociatedIcon(hInstance, 'C:\WINDOWS\NOTEPAD.EXE', IconINdex);

    DrawIcon(Form1.Canvas.Handle, 10, 10, h);
    end;

  • Вопросы читателей

    •

    Вопрос№1

    Вопрос от Коржова Алексея.
    Здравствуйте Уважаемые подписчики!
    Помогите пожалуйста. Нужно всю память которую занимает какое-либо
    приложение сохранить в файл, а потом загрузить обратно.     Ответить

    Вопрос№2

    Вопрос от Коржова Алексея.
    Ещё один вопрос.
    Нужно воспроизводить MP3, mid, midi, wav.
    Как это сделать без TMediaPlayer? Помогите пожалуйста!     Ответить

  • Бегущая строка 

    •
    procedure TForm1.Timer1Timer(Sender: TObject);
    const
    LengthGoString = 10;
    Gostring = 'Этот код был взят с проекта Delphi World'+
    ' Выпуск 2002 - 2003! Этот код б';
    // Повторить столько символов - сколько в LengthGoString
    i: Integer = 1;
    begin
    Label1.Caption := Copy(GoString, i, LengthGoString);
    Inc(i);
    if Length(GoString) - LengthGostring < i then
    i:=1;
    end;

  • Фото приколы

    •
    №1 http://www.delphimaster.ru/cgi-bin/prikol.pl?id=64

    №2 http://www.delphimaster.ru/cgi-bin/prikol.pl?id=54

    №3 http://www.delphimaster.ru/cgi-bin/prikol.pl?id=4236

    №4 http://www.delphimaster.ru/cgi-bin/prikol.pl?id=56

    №5 http://www.delphimaster.ru/cgi-bin/prikol.pl?id=45
    http://subscribe.ru/
    http://subscribe.ru/feedback/    		 Подписан адрес:
    Код этой рассылки: comp.soft.prog.program    		 Отписаться
    В избранное