Programmstart bestimmen

[Major1337]

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);

begin
try
 Progressbar1.Position := Progressbar1.Position +1;
 Application.ProcessMessages;
 if Progressbar1.Position = 100 then
  begin
    Timer1.Enabled := False;
    Progressbar1.Position := 0;
  end;
finally
shellexecute(0, 'open', pchar('C:\Programme\Zattoo\zatto1.exe'), nil, nil, 0);
end;

PS: Der Zatto Pfad ist nur mal testweise ^^


Ich bekomme den Fehler: Undeclare Indefier ShellExecute :O