The downside to this technique is that it will say '(c) Microsoft' in the box.
The upside is that you see the registered user and some system parameters (free space..). It's a quick-and-dirty solution for an About-box.
~~~~~~~~~~~~~~~~~~~~~~~~~
uses
Windows, ShellAPI;
procedure TForm1.About1Click(Sender: TObject) ;
begin
ShellAbout(Application.MainForm.Handle,
'My great Delphi application',
'Version 2002'#13#10+
'Compiled 2001-08-03 15:25:10',
Application.Icon.Handle) ;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~
Delphi tips navigator:
» How to store a TDateTime in the Registry
« How to delete 'Temporary Internet Files' from code
