Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Planeten drehen

    Delphi
    by Namenloser, 8. Mär 2010
  Mal mit Application.ProcessMessages probiert?
  
  for x := 1 to 240 do
  begin
  Image1.Picture := Planet;
  Application.ProcessMessages;
  sleep(20);
  end;
• Forum: Multimedia

  Re: Planeten drehen

    Delphi
    by Namenloser, 7. Mär 2010
  ParamStr wird automatisch von Delphi bzw. Windows beim Programmstart mit dem richtigen Wert gefüllt.
• Forum: Multimedia

  Re: Planeten drehen

    Delphi
    by Namenloser, 7. Mär 2010
  Relative Pfadnamen sind immer ein Glücksspiel. Probier es stattdessen mal mit absoluten:
  
  var
  BaseDir: string;
  begin
  // ParamStr(0) enthält den gesamten "Aufrufnamen" des Programms
  // z.B. "C:\Program files\dingsbums\programm.exe -parameter1 -parameter2"
  BaseDir := IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0)));
  // In BaseDir steht jetzt ausgehend von obigem...