Post Views: 2 376 Показывать предупреждения компиляции — {$WARNINGS ON} Не показывать предупреждения компиляции — {$Warnings Off} Показывать подсказки компиляции — {$Hints On} Не показывать подсказки компиляции — {$Hints Off} Установить тип приложения консольным — {$AppType CONSOLE} Установить тип приложения графическим — {$AppType GUI} Присоеденить ресурс (форму) — {$R *.DFM}
Post Views: 2 347 Вызов окна завершения работы 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); Открыть диалог… Читать далее »
Post Views: 2 564 Очистка буфера обмена — ClipBoard.Clear; // uses Clipbrd; Помещение текста в буфер обмена — ClipBoard.SetTextBuf(‘Text to Buffer’); // uses Clipbrd; Получение текста в качестве значения переменной g из буфера обмена — g:= ClipBoard.AsText; // uses Clipbrd; var g: String; Свойства AsText — рассматривает буфер обмена как текстовую строку, с помощью данного свойства… Читать далее »
Post Views: 2 086 Вывод диалогового окна с кнопкой ок и текстом — ShowMessage(‘Информационное ‘+#13#10+’сообщение’); Примечание: данная команда приостанавливает выполнение других команд пока не будет нажата кнопка ок,разбиение текста на несколько строчек происходит с помощью команды — +#13#10+ если нужна одна строчка команда упускается Выводит присвоенное чему либо какое-то значение в маленьком окне — ShowMessage(IntToStr(X)); //… Читать далее »
Post Views: 2 419 Определение цвета пикселя и запись значения в переменную 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’); Число пикселей рисунка… Читать далее »
Post Views: 2 685 (* многострочный комментарий, данный текст пропускается компилятором *) { многострочный комментарий, данный текст пропускается компилятором } // однострочный комментарий, данный текст пропускается компилятором
Post Views: 2 646 Не показывать форму программы: [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); // т.е. задаем значения Красного,… Читать далее »
Post Views: 2 231 Считываем значение из двумерного массива «h» и записываем его в переменную «x» — x:=h[1,1]; //var h: array[1..51] of array[1..15] of Extended; x: Extended; Записываем значение переменной «x» в двумерный массив «h» — h[1,1]:=x; //var h: array[1..51] of array[1..15] of Extended; x: Extended; Устанавливаем размерность динамического массива «h» равную 15 — SetLength(h, 15);… Читать далее »
Post Views: 3 483 Получение натурального логарифма числа 2 и запись значения в переменную x: [cc lang=»delphi» tab_size=»2″ line_numbers=»false» no_links=»false»] x:= Ln(2); // var x : Double; [/cc] Получение экспоненты этого значения — операция обратная Ln (получению натурального логарифма): [cc lang=»delphi» tab_size=»2″ line_numbers=»false» no_links=»false»] x:= Exp(x); // var x : Double; [/cc] Модуль числа присвоить переменной… Читать далее »
Post Views: 2 207 Скрыть папку : SetFileAttributes(PChar(‘c:\TestDir’),faHidden); Создать три папки вложенных друг в друга : ForceDirectories(‘C:\MyDir\Test\Dir1’); Создание папки : createdir(‘c:\TestDir’); // если не указать директорию, то папка будет создана там же где и программа Удаление не пустой папки : [cc lang=»delphi» tab_size=»2″ line_numbers=»false» no_links=»false»] Function MyRemoveDir(sDir: String): Boolean; var iIndex: Integer; SearchRec: TSearchRec; sFileName: String;… Читать далее »