Работа с оперативной памятью

Автор: | 16.02.2013
Нет комментариев

Post Views: 2 042 Вывести процент загруженности памяти –  GlobalMemoryStatus(mem);  ShowMessage(IntToStr(mem.dwMemoryLoad) + ‘ %’); // var mem: TMemoryStatus; Вывести размер физической памяти – GlobalMemoryStatus(mem);  ShowMessage(IntToStr((mem.dwTotalPhys) div 1024) + ‘ Кбайт’); // var mem: TMemoryStatus; Вывести размер свободной физической памяти – GlobalMemoryStatus(mem);  ShowMessage(IntToStr((mem.dwAvailPhys) div 1024) + ‘ Кбайт’); // var mem: TMemoryStatus; Вывести размер страничной памяти –… Читать далее »

Работа с указателем (мышь)

Автор: | 16.02.2013
Нет комментариев

Post Views: 2 450 Переместить курсор мыши в точку скоординатами 1000,700  – setcursorpos (1000,700); Нажать программно левую кнопку мыши не отпуская ее – mouse_event(mouseeventf_leftdown,0,0,0,0); Отпустить левую кнопку мыши – mouse_event(mouseeventf_leftup,0,0,0,0); Нажать правую кнопку мыши не отпуская ее  – mouse_event(mouseeventf_rightdown,0,0,0,0); Отпустить правую кнопку мыши  – mouse_event(mouseeventf_rightup,0,0,0,0); Присвоить y координаты положения курсора по вертикали   – GetCursorPos(foo); y:= (foo.Y);… Читать далее »

Программная логика для начинающих

Автор: | 16.02.2013
Нет комментариев

Post Views: 2 429 Если x=2, то выполнить команду (вывод окна), если нет, то не выполнять её: [cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”] If x = 2 then ShowMessage(‘1 = 2’); // var x:Integer; [/cc] Выполнение блока команд, если x=1, если нет, то не выполнять: [cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”] If x=1 then begin ShowMessage(‘1-я команда’);  ShowMessage(‘2-я… Читать далее »

Директивы компилятора

Автор: | 16.02.2013
Нет комментариев

Post Views: 2 188 Показывать предупреждения компиляции – {$WARNINGS ON} Не показывать предупреждения компиляции – {$Warnings Off} Показывать подсказки компиляции – {$Hints On} Не показывать подсказки компиляции – {$Hints Off} Установить тип приложения консольным – {$AppType CONSOLE} Установить тип приложения графическим – {$AppType GUI} Присоеденить ресурс (форму) – {$R *.DFM}

Работа c Windows (API функции)

Автор: | 16.02.2013
Нет комментариев

Post Views: 2 123 Вызов окна завершения работы Windows – SendMessage (FindWindow (‘Progman’, ‘Program Manager’), WM_CLOSE, 0, 0); Завершение работы – ExitWindows (EWX_ShutDown,0); Завершение работы (чуть пожестче) – ExitWindows (EWX_FORCE,0); Запустить панель управления – winexec(Pchar(‘rundll32 shell32,Control_RunDLL’),sw_Show); Открыть диалог “Выбор программы …” (‘Open With…’)  – winexec(Pchar(‘rundll32 shell32,OpenAs_RunDLL’),sw_Show); Открыть ‘About Window Window’  – winexec(Pchar(‘rundll32 shell32,ShellAboutA Info-Box’),sw_Show); Открыть диалог… Читать далее »

Буфер обмена (модуль Clipbrd)

Автор: | 16.02.2013
Нет комментариев

Post Views: 2 360 Очистка буфера обмена –  ClipBoard.Clear;  // uses Clipbrd; Помещение текста в буфер обмена – ClipBoard.SetTextBuf(‘Text to Buffer’); // uses Clipbrd; Получение текста в качестве значения переменной g из буфера обмена – g:= ClipBoard.AsText; // uses Clipbrd;  var g: String; Свойства AsText – рассматривает буфер обмена как текстовую строку, с помощью данного свойства… Читать далее »

Работа с диалоговыми окнами

Автор: | 16.02.2013
Нет комментариев

Post Views: 1 904 Вывод диалогового окна с кнопкой ок и текстом – ShowMessage(‘Информационное ‘+#13#10+’сообщение’);  Примечание: данная команда приостанавливает выполнение других команд пока не будет нажата кнопка ок,разбиение текста на несколько строчек происходит с помощью команды – +#13#10+ если нужна одна строчка команда упускается Выводит присвоенное чему либо какое-то значение в маленьком окне – ShowMessage(IntToStr(X)); //… Читать далее »

Работа с рисунками

Автор: | 16.02.2013
Нет комментариев

Post Views: 2 244 Определение цвета пикселя и запись значения в переменную g, черный (FFFFFFF), БЕЛЫЙ (00) – s:= image1.Canvas.Pixels[s,r];// s , r, g: integer; Переменные s,r – координаты пикселя (r – вертикаль, s – горизонталь), формат изображения bmp. Или другая команда s:= bmp.Canvas.Pixels[2,2]; Сохранение изображения в виде файла, напрмер формата jpg- jpg.SaveToFile(‘D:\first.jpg’); Число пикселей рисунка… Читать далее »

Типы комментариев в коде программы

Автор: | 16.02.2013
Нет комментариев

Post Views: 2 505 (* многострочный комментарий, данный текст пропускается компилятором *) { многострочный комментарий, данный текст пропускается компилятором } // однострочный комментарий, данный текст пропускается компилятором

Работа с формой программы

Автор: | 16.02.2013
Нет комментариев

Post Views: 2 439 Не показывать форму программы: [cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”] Application.ShowMainForm:=false; [/cc] Запретить кнопку Close [x] в заголовке окна: [cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”] Style := GetWindowLong(Handle, GWL_STYLE); SetWindowLong(Handle, GWL_STYLE, Style And Not WS_SYSMENU); // var Style: Longint; [/cc] Задание цвета формы: [cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”] Form1.Color:=RGB(255,130,10); // т.е. задаем значения Красного,… Читать далее »