Советы по Delphi


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


Прислал Aleksey msalex@tomcat.ru:

    {процедура показывает стандартное виндусовское окно абаута}
{Не забудьте - ShellAPI поместить в uses}

procedure ShowAbout;
begin
ShellAbout(Form1.Handle, 'Напиши здесь название программы', 'Заяви здесь о своих авторских правах на программу' #13#10 'можно в две строки', Application.Icon.Handle); end;

Спасибо за замеченную неточность Andrew Balahonov. [000113]



Содержание раздела