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

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

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

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

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

←   Октябрь 2004   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
10.10.2004
00:02:02
11:48:53
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
ADMIN

Статистика

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

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


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

Выпуск№10

Наши адреса:
www.x-program.narod.ru(наш официальный сайт последнее обновление 03.10.2004)
www.magdate.narod.ru(сайт программы MagDate MagDate3-нерабочий файл не скачивать!)
X-Program@narod. ru(наш Email пишите нам чтобы Вы хотели увидеть в нашей рассылке)

Сегодня в выпуске:
1-Перетаскивание формы за любой компонент в Delphi
2-Заставим Delphi говорить
3-Добавляем приложение Delphi в автозагрузку
4-Параметры командной строки в Delphi
5-Фото приколы

  • Перетаскивание формы за любой компонент в Delphi

    •
    Допустим Вам надо перетащить форму держа курсор мыши на компоненте Labe1

    procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
    const SC_DragMove = $F012;
    begin
    ReleaseCapture;
    Form1.perform(WM_SysCommand, SC_DragMove, 0);
    end;

  • Заставим Delphi говорить

    •
    Если у Вас на компе установлен какой-либо голосовой движок, то Вы можете заставить Delphi говорить.
    Всё делается очень просто.
    Запустите Delphi --> Нажмите на "Компонент" --> Нажмите на Импорт ActiveX управление -->   Из списка выберите Microsoft Direct Text-to-Speech --> Нажмите установить.
    Теперь компонент появился на вкладке ActiveX.
    Работать с компонентом очень просто.

  • Добавляем приложение Delphi в автозагрузку

    •
    Способ №1

    Можно просто скопировать исполняемый файл в папку "Автозагрузка", узнав ее местонахождение с помощью функций модуля ShlObj.pas.

    program StartUp;

    {$APPTYPE CONSOLE}

    uses
    ShlObj, //!!
    SysUtils,
    Windows;
    var
    Folder: Pchar; //путь к StartUp
    List: PitemidList; //список "специальных" папок
    begin
    //ищем папку
    SHGetSpecialFolderLocation(0,CSIDL_STARTUP,List);
    new(folder);
    SHGetPathFromIDList(List,folder);
    //Нашли? Переходим в директорию StartUp
    ChDir(folder);
    //копируем файл
    CopyFile(PChar(ExtractFilePath(paramStr(0)) + 'StartUp.exe'), 'StartUp.exe', true); //укажите имя своего EXE файла
    end.

    Способ №2

    А теперь более простой способ - запись ключа в секцию Run реестра. Ниже в одной процедуре совмещено и его создание, и удаление.

    Uses Registry;
    //.

    procedure ChangeReg(StrName: ShortString; delete: boolean);
    var
    reg: TRegistry;
    begin
    Reg := nil;
    try
    reg := TRegistry.Create;
    reg.RootKey := HKEY_LOCAL_MACHINE;
    reg.LazyWrite := false;
    reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',false);
    if not delete then reg.WriteString(StrName, Application.ExeName)
    else reg.DeleteValue(StrName);
    reg.CloseKey;
    reg.free;
    except
    if Assigned(Reg) then Reg.Free;
    end;
    end;

    procedure TForm1.AddBtnClick(Sender: TObject);
    begin
    ChangeReg('My App',false); //добавляем в Автозагрузку
    end;

    procedure TForm1.RemoveBtnClick(Sender: TObject);
    begin
    ChangeReg('My App',true); //удаляем из Автозагрузки
    end;

    Вот и всё. Пишите мы вам поможем!

  • Параметры командной строки в Delphi

    •
    Приведенный пример выводит в заголовок окна первый параметр командной строки.

    procedure TForm1.Button1Click(Sender: TObject);
    var param:string;
    begin
    Form1.Caption:=ParamStr(1);
    end;

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

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

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

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

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

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