Verlust von Handle?

[toyoman]

Zitat von sirius:

An dem Code sehe ich keinen Fehler (ausser das ein try finally sich gut machen würde; ändert aber nix an deinem Fehler).
Was macht den die Startupform so alles und wann wird diese Methode hier aufgerufen?

die wird beim Systemstart angezeigt um eben dem Benutzer die Zeit zu geben den Debug Modus zu starten (ansonsten automatischer Ablauf). Die Startup Prozedur ruf ich aus der Mainform.Activate Prozedur auf... siehe:

Delphi-Quellcode:

procedure Tmainform.FormActivate(Sender: TObject);
begin
    // Startup Window
    mainform.WindowState:=wsminimized;
    Startup;
    mainform.WindowState:=wsnormal;
    if listbox1.Count>=0 then
    begin
        // Buttons enablen
        btnsel.Enabled:=true;
        btnall.Enabled:=true;
        listbox1.ItemIndex:=0;
    end else
    begin
        btnsel.Enabled:=false;
        btnall.Enabled:=false;
    end;
    if debugmode=false then
    begin
        // Autostart Tasks wenn gewünscht
        if getinivalue('GUI_Settings','AutoStartTasks') = 'true' then
        begin
          logfileschreiben('AutoStart tasks set. Start all tasks now...',logfilename);
          if getinivalue('GUI_Settings','MinimizeWindow') = 'true' then
          begin
              logfileschreiben('Minimize window set.',logfilename);
              mainform.WindowState:=wsminimized;
          end else
          begin
              mainform.WindowState:=wsnormal;
          end;
          if btnall.Enabled=true then
          begin
                btnall.click; // Start alle Tasks
          end else
          begin
                logfileschreiben('No Task to do!',logfilename);
          end;
          if getinivalue('GUI_Settings','AutoClose') = 'true' then
          begin
            logfileschreiben('AutoClose Tool after ending all tasks.',logfilename);
            close;
          end;
        end;
    end else
    begin
       showmessage('TaskTools is ready, enjoy! (Debug-Mode)');
       logfileschreiben('Debug mode activated (by user), disable autostart functions.',logfilename);
    end;
end;