отображает диалоговое окно сообщений в центре экрана

|| function MessageDlg ( const Message : string; DialogType : TMsgDlgType; Buttons : TMsgDlgButtons; HelpContext : Longint ) : Integer;

<<< Основы Delphi

закрывает файл с сохранением в нём данных

|| procedure CloseFile ( var FileHandle : TextFile ) ;

<<< Основы Delphi

Создать приложение, позволяющее:
1) устанавливать количество столбцов и строк таблицы StringGrid равным числам, вводимым пользователем;
2) установить для таблицы StringGrid первые столбец и строку фиксированными и заполнить их номерами;
3) остальные ячейки таблицы заполнить значениями функции X?+Y? (x,y в квадрате), где Х — номер колонки ячейки, Y — номер строки);
4) изменять цвет символов в таблице на выбранный пользователем.

Определяет, были ли данные выровнены или упакованы

1. {$Align Off}
2. {$Align On}

CD привода (далее просто CD)я думаю пользуются все без исключения. Давайте разберём как создать несложную программу открытия CD. Создадим новый проект. Кидаем на форму ComboBox и две Button. Создадим две функции:

function CDOpen(Drive: PChar): Boolean;
var

Res: MciError;
OpenParm: TMCI_Open_Parms;
Flags: DWord;
S: string;
DeviceID: Word;
begin

Result := false;
S := Drive + ‘:’;
Flags := mci_Open_Type or mci_Open_Element;
with OpenParm do
begin
dwCallback := 0;
lpstrDeviceType := ‘CDAudio’;
lpstrElementName := PChar(S);
end;
Res := mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm));
if Res <> 0 then
exit;
DeviceID := OpenParm.wDeviceID;
try
Res := mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0);
if Res = 0 then
exit;
Result := True;
finally
mciSendCommand(DeviceID, MCI_OPEN, Flags, Longint(@OpenParm));
end;
end;

function CDClose(Drive: PChar): Boolean;
var

Res: MciError;
OpenParm: TMCI_Open_Parms;
Flags: DWord;
S: string;
DeviceID: Word;
begin

Result := false;
S := Drive + ‘:’;
Flags := mci_Open_Type or mci_Open_Element;
with OpenParm do
begin
dwCallback := 0;
lpstrDeviceType := ‘CDAudio’;
lpstrElementName := PChar(S);
end;
Res := mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm));
if Res <> 0 then
exit;
DeviceID := OpenParm.wDeviceID;
try
Res := mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_CLOSE, 0);
if Res = 0 then
exit;
Result := True;
finally
mciSendCommand(DeviceID, MCI_CLOSE, Flags, Longint(@OpenParm)) else
end;
end;

В процедуре создания формы пишем

procedure TForm1.FormCreate(Sender: TObject);
var
w:dword;
Root:string;
I, K:integer;
begin
k:=0;
w:=GetLogicalDrives;
Root := ‘#:’;
for i := 0 to 25 do
begin
Root[1] := Char(Ord(‘A’)+i);
if (W and (1 shl i))>0 then
if GetDriveType(Pchar(Root)) = DRIVE_CDROM then
begin
k:=k+1;
Driv[k] := Root;
ComboBox1.Items.Add(Driv[k]);
ComboBox1.Text := Driv[1];
end;
end;
end;

Далее в нажатиях на кнопки пишем:

procedure TForm1.Button1Click(Sender: TObject);
begin
CDOpen(PChar(ComboBox1.Text);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
CDClose(PChar(ComboBox1.Text);
end;

Всё программа готова.

Тип с плавающей запятой с наивысшей емкостью и точностью

 

Создать приложение, позволяющее:
1) рисовать квадрат в середине формы (размер стороны квадрата вводится пользователем). Предусмотреть, что размер стороны не может быть текстом, не может быть отрицательным числом и не может превышать меньшего размера формы.
2) делить квадрат одной или диагональю или двумя в зависимости от выбора радиокнопок и каждый полученный треугольник закрашивать в разный цвет. Выбор цвета производит пользователь

Начнём с общего. Как скрыть и показать Панель задач:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowWindow(FindWindow(‘Shell_TrayWnd’, nil), SW_HIDE); // Скрыть
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShowWindow(FindWindow(‘Shell_TrayWnd’, nil), SW_SHOW); // Показать
end;

Теперь сделаем иконку рядом с часами:

public
procedure IconCallBackMessage( var Mess : TMessage ); message WM_USER+ 100;
end;

implementation

uses ShellAPI;

procedure TForm1.IconCallBackMessage( var Mess : TMessage );
var
sEventLog : String;
begin
case Mess.lParam of
// Сделайте здесь все что вы хотите. Например, вызов контекстного меню при нажатии правой кнопки мыши.

WM_LBUTTONDBLCLK  :  sEventLog := ‘Двойной щелчок левой кнопкой’;
WM_LBUTTONDOWN    :  sEventLog := ‘Нажатие левой кнопки мыши’;
WM_LBUTTONUP      :  sEventLog := ‘Отжатие левой кнопки мыши’;
WM_MBUTTONDBLCLK  :  sEventLog := ‘Двойной щелчок мышью’;
WM_MBUTTONDOWN    :  sEventLog := ‘Нажатие кнопки мыши’;
WM_MBUTTONUP      :  sEventLog := ‘Отжатие кнопки мыши’;
WM_MOUSEMOVE      :  sEventLog := ‘перемещение мыши’;
WM_MOUSEWHEEL     :  sEventLog := ‘Вращение колесика мыши’;
WM_RBUTTONDBLCLK  :  sEventLog := ‘Двойной щелчок правой кнопкой’;
WM_RBUTTONDOWN    :  sEventLog := ‘Нажатие правой кнопки мыши’;
WM_RBUTTONUP      :  sEventLog := ‘Отжатие правой кнопки мыши’;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var nid : TNotifyIconData;
begin
Load_Form.Visible:=false;

with nid do
begin
cbSize := SizeOf( TNotifyIconData );
Wnd := Form1.Handle;
uID := 1;
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallbackMessage := WM_USER + 100;
hIcon := Application.Icon.Handle; // Иконка приложения 16 на 16 пикселей
szTip := ‘Имя программы’;
end;
Shell_NotifyIcon( NIM_ADD, @nid );
end;

И при закрытии удаляем иконку.

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var nid : TNotifyIconData;
begin
//это важно для того чтобы не удалить чужую иконку J
with nid do
begin
cbSize := SizeOf( TNotifyIconData );
Wnd := Form1.Handle;
uID := 1;
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallbackMessage := WM_USER + 100;
hIcon := Application.Icon.Handle; // Иконка приложения 16 на 16 пикселей
szTip := ‘Имя программы’;
end;
Shell_NotifyIcon( NIM_DELETE, @nid );
end;

С иконкой мы расправились переходим у Пуску. Для начала работы надо открыть Пуск с помощью этой функции:

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

Так же можно поменять активность Пуск’а:

procedure TForm1.Button1Click(Sender: TObject);
begin
EnableWindow(FindWindowEx(FindWindow(‘Shell_TrayWnd’, nil), 0, ‘Button’, nil), false);
// заблокировать
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
EnableWindow(FindWindowEx(FindWindow(‘Shell_TrayWnd’, nil), 0, ‘Button’, nil), true);
// разблокировать
end;