Programmstart bestimmen

[turboPASCAL]

Es ist ja nun wirklich kein Ackt solch eine Funktion in die eigene Application zu implementieren.
Über einen Parameter kann man dann bestimmen ob bzw. wann das Programm "sarten" oder besser gesagt seine Funcktion aufnemen soll.
Dann braucht mal nicht einmal eine Zusatzprogramm nur einen Link mit dem entsp. Parameter im Autostartordner.

Es gibt ja zu dem unter Windows noch den Taskplaner (bzw. in Vischda der Aufgabenplaner)

[generic]

Wie wäre es mit einen Dienst, welche als Abhängigkeit das Netzwerk hat?

[Major1337]

Sorry, aber ich habe mich schon für ein Intro.exe entschieden, das vor dem Start aufgerufen wird. Habe nur noch den Fehler mit ShellExecute :(

[Andreas L.]

Zitat:

Zitat von Major1337

Habe nur noch den Fehler mit ShellExecute :(

Delphi-Quellcode:

uses
  .., ShellAPI;

...

...

CODE

[Major1337]

:P wollte grade schreiben das ich den Fehler gefunden hab ^^

[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(Handle, 'open', 'C:\Programme\test\test.exe', nil, nil, SW_SHOWNORMAL) ;

  end;
end;

Der Ladebalken lädt bis zum Schluss aber dann startet er nicht die exe

[Andreas L.]

Wozu try-finally? Wie lautet der Rückgabewert von ShellExecute?

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  errorcode: Integer;
begin
  Progressbar1.Position := Progressbar1.Position +1;
  Application.ProcessMessages;
  if Progressbar1.Position = 100 then
  begin
    Timer1.Enabled := False;
    Progressbar1.Position := 0;
    errorcode := ShellExecute(Handle, 'open', 'C:\Programme\test\test.exe', nil, nil, SW_SHOW);
    if errorcode > 32 then
      ShowMessage('Fehler: ' + IntToStr(errorcode));
  end;
end;

[Major1337]

wollte mit try-finally bewirken das er nach dem Laden direkt die *.exe öffnet.
War das mit dem Rückgabewert eine rhetorische Frage? :O hmm.. ich habe mal deinen Quellcode importiert, aber da tut sich trotzdem nix.. :(

[Luckie]

Es wird auch keine ShowMessage angezeigt?

[DeddyH]

Müsste das nicht auch eher

Delphi-Quellcode:

if errorcode < 33 then

heißen?