Отправляет 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

Выпуск№12

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

Внимание конкурс!
Первый приславший ответ на следующий вопрос получит возможность размещения рекламы своего сайта на нашем сайте и в рассылке в течении месяца!
Задача:
Написать программу на Delphi, которая бы искала на компьютере какой либо файл.
Условия выполнения задания:
После создания программы пришлите её исходники на X-Program@mail.ru
Ответы принимаются до 17 октября.

 

Сегодня в выпуске:
1-Создаём программу для создания XP интерфейса в программах без стиля XP
2-Простой макрос в MSWord
3-Откроем меню пуск
4-Регистрируем новый тип файлов
5-Фото приколы

  • Создаём программу для создания XP интерфейса в программах бес стиля XP

    •
    var
    s:string;
    exe: TextFile;

    procedure TForm7.XPButton1Click(Sender: TObject);
    begin
    s:='<?xml version="1.0" encoding="UTF-8" standalone="yes"?>'+#13#10+
    '<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">'+#13#10+
    '<assemblyIdentity'+#13#10+
    'version="1.0.0.0"'+#13#10+
    'processorArchitecture="X86"'+#13#10+
    'name="Programm"'+#13#10+
    'type="win32"'+#13#10+
    '/>'+#13#10+
    '<description>Programm</description>'+#13#10+
    '<dependency>'+#13#10+
    '<dependentAssembly>'+#13#10+
    '<assemblyIdentity'+#13#10+
    'type="win32"'+#13#10+
    'name="Microsoft.Windows.Common-Controls"'+#13#10+
    'version="6.0.0.0"'+#13#10+
    'processorArchitecture="X86"'+#13#10+
    'publicKeyToken="6595b64144ccf1df"'+#13#10+
    'language="*"'+#13#10+
    '/>'+#13#10+
    '</dependentAssembly>'+#13#10+
    '</dependency>'+#13#10+
    '</assembly>';
    Assignfile(exe,Form7.XPEdit1.Text+'.manifest');
    rewrite(exe);
    Writeln(exe,s);
    closefile(exe);
    FileSetAttr(Form7.XPEdit1.Text+'.manifest',faHidden); // Делаем файл невидимым
    end;

    После этого программа будет со стилем XP!

  • Простой макрос в MSWord

    •  
     Sub ShowViewPageNo()
    ActiveDocument.Repaginate
    varTotalPages = Selection.Information(wdNumberOfPagesInDocument)
    varVertScrollPercent = ActiveDocument.ActiveWindow _
       .VerticalPercentScrolled
    varViewPage = Int((varVertScrollPercent / 100) * varTotalPages) + 1
    varIPPage = Selection.Information(wdActiveEndPageNumber)
    MsgBox "Your insertion point is on page [" & varIPPage & "]." + _
       "You are looking at page [" & varViewPage & "].""
 End Sub
    Добавляет на страницы их номера

  • Откроем меню пуск

    •  
    procedure TForm1.Button1Click(Sender: TObject); 
begin 
  SendMessage(Self.Handle, WM_SYSCOMMAND, SC_TASKLIST, 0); 
end;

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

    •

    uses Registry;
    .....

    procedure TForm1.RegisterFileType(ext: string; FileName: string);
    var
      reg: TRegistry;
    begin
      reg:=TRegistry.Create;
      with reg do
      begin
        RootKey:=HKEY_CLASSES_ROOT;
        OpenKey('.'+ext,True);
        WriteString('',ext+'file');
        CloseKey;
        CreateKey(ext+'file');
        OpenKey(ext+'file\DefaultIcon',True);
        WriteString('',FileName+',0');
        CloseKey;
        OpenKey(ext+'file\shell\open\command',True);
        WriteString('',FileName+' "%1"');
        CloseKey;
        Free;
      end;
    end;        

    procedure TForm1.Button1Click(Sender: TObject);
begin
  RegisterFileType('DelphiWorld', Application.ExeName);
end;

    Всё очень просто!

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

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

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

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

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

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