Вызов стандартного системного окна О программе

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: Алексей

Hовый русский в компьютерном магазине:

— У вас операционные системы есть?

— Есть.

— Многозадачные есть?

— Есть.

— Мне 600-задачную!

uses ShellAPI;

procedure ShowAbout;

begin

ShellAbout(Form1.Handle, ‘Напиши здесь название программы’,

‘Заяви здесь о своих авторских правах на программу’ #13#10

‘можно в две строки’, Application.Icon.Handle);

end;

{/codecitation}

Добавить комментарий