unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Borland.Vcl.ComCtrls, System.ComponentModel, Borland.Vcl.StdCtrls,
Borland.Vcl.ExtCtrls, ShellAPI;
type
TForm1 =
class(TForm)
GroupBox1: TGroupBox;
ProgressBar1: TProgressBar;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.nfm}
procedure TForm1.FormCreate(Sender: TObject);
var Bild : TImage;
begin
Bild:= Timage.create(
nil);
Bild.picture.LoadFromFile('
D:\bdetouch_Schleiferei\images\bild.bmp');
Bild.autosize:=true;
Bild.Top:= 15;
Bild.Left:=0;
Bild.Visible:=true;
Bild.Parent := self;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Progressbar1.Position := Progressbar1.Position +1;
Application.ProcessMessages;
if Progressbar1.Position = 100
then
begin
Timer1.Enabled := False;
Progressbar1.Position := 0;
ShellExecute(Application.Handle, '
open', '
D:\Program\Ding.exe',
nil,
nil, SW_NORMAL);
end;
end;
end.