Programm rennt im Taskmanager weiter..

[xSkaschY]

Hallo zusammen,

ich habe schon hier im Forum nach meinem Problem gesucht.

In diesem Thread habe ich gelesen das man alle vorhanden Objecte releasen/free'en sollte, dies habe ich schon überprüft.

Aber trotzdem läuft das Programm im Hintergrund weiter.

Programm:

Ich lade amfang ein paar DLL's in mein Programm, statisch. Ich habe auch schon ausprobiert an welche DLL's liegt, und habe herraus gefunden das es an meiner update.dll liegt.

In der aufzurufenden procedure (createUpdateForm) wird ledglich ein TidHTTP Object initialisiert und geprüft ob ein Update verfügbar ist.

der Code:

Delphi-Quellcode:

    {**
       createUpdateForm - 22.12.2006 - 18:10
       -----------------------------------------
       Zeigt das Updateformular an.
     **}
procedure createUpdateForm(Owner: TForm); stdcall;
begin
     initializeHTTPObject(Owner);
     pcApplicationPath := PChar(ExtractFilePath(ParamStr(0)));
     if checkVersion() = true then begin
        autoUpdateQuick := TautoUpdateQuick.Create(Owner);
        try
           autoUpdateQuick.ShowModal;
        finally
           autoUpdateQuick.Release;
        end;
     end else httpObject.Free;
end;

    {**
       initializeHTTPObject - 21.12.2006 - 16:57
       -----------------------------------------
       Initzialisiert das TidHTTP - Object
     **}

procedure initializeHTTPObject(Owner: TForm); stdcall;
begin
     httpObject := TidHTTP.Create(Owner);
end;

     {**
       checkVersion - 23.12.2006 - 20:01
       -----------------------------------------
       Überprüft Versionen
       -----------------------------------------
       neue Version verfügbar   true
       andernfalls              false
     **}

function checkVersion(): boolean;
var Ini: TIniFile;
    updateavailable, currentVersion: string;
begin
     getUpdateServerURL();
     updateavailable := httpObject.Get(pcUpdateserver + 'update.inf');

     Ini := TIniFile.Create(pcApplicationPath + 'product.ini');
     try
        currentVersion := Ini.ReadString('product', 'version', '');
     finally
        Ini.Free;

        if (updateavailable > currentVersion) then Result := True
           else Result := false;
     end;
end;

Die Procedure createUpdateForm wird im Hauptprogramm so eingebunden:

procedure createUpdateForm(Owner: TComponent); stdcall; external 'update.dll';
Und im FormCreate aufgerufen:

Delphi-Quellcode:

procedure Tmain.FormCreate(Sender: TObject);
var thisProduct: product;
    Ini: TIniFile;
    componentStyle : styleInfo;
begin
     createUpdateForm(Application);

    {** Code Entfernt da nicht Themen relevant **}
end;

Ich weiss nicht was da los ist?