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

СообЧА. Программирование на Delphi

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

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

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

←   Август 2001   →
 1
 2
 3
 4
 5
 6
 7
 8
08.08.2001
12:16:15
22:16:38
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Сергей

Статистика

10.085 подписчиков
-9 за неделю
←   Все выпуски   →

СообЧА. Программирование на Delphi


Служба Рассылок Subscribe.Ru проекта Citycat.Ru


 

Мир Delphi

PixelSoftware

  Подписчиков: 3470 
   
.::::: СообЧа - Программирование на Delphi :::::.

Мини выпуск 

  ї 2000 - 2001COOLer  Дизайн: Yoghurt 
   

 

Оглавление
  В выпуске  Рассылка СообЧА 
    
 
Рассылки Subscribe.Ru
СообЧа (СООБщество ЧАйников). Обмен опытом, вопросы, ответы.
 Назад к оглавлению  
  
  Конкурс и новости рассылки 
 
  

  • Участвуйте в конкурсе "Статья месяца" и вы выиграете книгу по Delphi от магазина ОЗОН. В конце каждого месяца Вами будет выбран лучший автор, который и получит книгу. Присылайте ваши статьи на  pixel@novgorod.net . Авторов просим строго придерживаться тематики рассылки.

 

  • Хотите поучаствовать в нашем проекте, вы умеете работать с OpenGL или DX? Присоединяйтесь вместе мы напишем классную RPG ... подробности по адресу  pixel@novgorod.net или http://pixelsoft.narod.ru раздел Проект... Желательны(Хотя не обязательны , по ходу сами все поймете) знания Borland C++ Builder или Delphi в сфере графики(или просто кодеры).Все абсолютно свободно freewareно и бесплатно. ПОЛНЫЙ ДОСТУП К НАШИМ ИСХОДНИКАМ.

  • Наш сайт переработан, появилась английская версия(новый вариант будет доступен с 22-05 сегодня)... 
 
  • ВНИМАНИЕ В СЕНТЯБРЕ МЕНЯ НЕ БУДЕТ, ВОЗМОЖНО РАССЫЛКА НА ВРЕМЯ УЙДЕТ В ДАУН. (НО Я ВЕРНУСЬ , ОБЕЩАЮ!). ВСЕ ВОПРОСЫ К ПРИЕЗЖАЮЩЕМУ ИЗ ОТПУСКА COOLERУ (с 1-4го числа)i@cooler.com.ua. 

 

  • Новость проекта Коллапс: Завершена работа над структурой заголовка карты. Теперь приступаем к физической модели и редактору уровней. На горизонте появился план создать редактор персонажей . По текущим сведениям карты для "коллапса" занимают  300 байт на 1 объект на карте .


  • Нравится ли вам наша рассылка?

    •

    Да

    Нет

    Не успел оценить
     Назад к оглавлению  
      
      Выбор лучшего 
     
      
    ув. Подписчики. пожалуйста оцените труд данных авторов отдав свой голос за того, кого вы считаете достойным. 31 июля по итогам голосования лучшему автору будет подарена книга от магазина "ОЗОН". Если вы хотите увидить своё имя среди авторов - то прочитайте условия конкурса Выбери лучшего
    Pixel
    PILOT
    Art
    Anatoly
     Назад к оглавлению  
      
     Атрибуты файла. 
     
      

    Ко мне поступил вопрос: как изменить атрибуты файла... 

    Отвечаю :

     FileGetAttr(Filename); чтобы получть текущие

    FileSetAttr(Filename, attribute) чтобы установить свои

    где attribute

    • FaReadOnly

    • FaHidden

    • FaSystemm

    • FaArchive

     

     

     

     

     

    Автор :Pixel( pixel@novgorod.net http://pixelsoft.narod.ru )
    ї COOLer 
     Назад к оглавлению  
      
     Конфетка 
     
      

    Здесь я собрал немного маленьких "пакостных" функций и в общем полезных для создания программы обучалки (автопилот на виндовс)  

     

    Пример из серии "Что можно сделать с рабочим столом". В общем, это обычный трюк с кнопкой "Пуск" (Start).

    Совместимость: все версии Delphi

    { объявляем глобальные переменные }
    var

    Form1: TForm1;

    StartButton: hWnd;

    OldBitmap: THandle;

    NewImage: TPicture;

    { добавляем следующий код в событие формы OnCreate }
    procedure TForm1.FormCreate(Sender: TObject);
    begin

    NewImage := TPicture.create;

    NewImage.LoadFromFile('C:\Windows\Circles.BMP');

    StartButton := FindWindowEx

    (FindWindow('Shell_TrayWnd',nil),0,'Button', nil);

    OldBitmap := SendMessage(StartButton,

    BM_SetImage, 0,

    NewImage.Bitmap.Handle);

    end;
    { Событие OnDestroy }
    procedure TForm1.FormDestroy(Sender: TObject);
    begin

    SendMessage(StartButton,BM_SetImage,0,OldBitmap);

    NewImage.Free;

    end;

     

    Как узнать и поменять разрешение экрана?

    procedure ChangeDisplayResolution(x, y : word);
    var

    dm : TDEVMODE;

    begin

    ZeroMemory(@dm, sizeof(TDEVMODE));

    dm.dmSize := sizeof(TDEVMODE);

    dm.dmPelsWidth := x;

    dm.dmPelsHeight := y;

    dm.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;

    ChangeDisplaySettings(dm, 0);

    end;

     

    Чтобы установить курсор мыши в какое-либо место экрана необходимо воспользоваться функцией SetCursorPos(x,y); Например: Чтобы установить курсор в верхний левый угол монитора нужно написать следующий код: SetCursorPos(0,0);

    Получение координат курсора

    Для начала необходимо определить переменную pos типа TPoint.

    Сначала:

    //Вне процедуры!
    Type Tpoint = record
    x:integer;
    y:integer;
    end;

    Потом объявляете саму переменную

    Var
    Pos: TPoint;

    И собcтвенно получение координат:

    begin;
    GetCursorPos(pos);
    x:=pos.x;
    y:=pos.y;
    end;

     

     

     

    Автор :Pixel( pixel@novgorod.net http://pixelsoft.narod.ru )
    ї COOLer 

    Zaluskiy Anton(COOLer)    - ведущий проекта    "Мир Delphi"



    о3он TopList
    http://subscribe.ru/
    E-mail: ask@subscribe.ru     		Отписаться
    Убрать рекламу     		Рейтингуется SpyLog
    В избранное