AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Versteckt arbeiten?

Ein Thema von Ratte · begonnen am 21. Mär 2004 · letzter Beitrag vom 23. Mär 2004
Antwort Antwort
Seite 1 von 2  1 2      
Ratte

Registriert seit: 12. Dez 2003
Ort: Erfurt
345 Beiträge
 
Delphi 2005 Personal
 
#1

Versteckt arbeiten?

  Alt 21. Mär 2004, 19:18
Hi,

ich verschiebe mein Programm so in den TNA: Link. Wie kann ich dafür sorgen dass das Programm trotzdem weiterarbeitet (Timer ausgelöst werden,...)?

Ratte
Schiffsratte der U.S.S. Delphipraxis, Laderaum 4538
BUSH:= TTerminator.create;
  Mit Zitat antworten Zitat
Benutzerbild von Jens Schumann
Jens Schumann

Registriert seit: 27. Apr 2003
Ort: Bad Honnef
1.644 Beiträge
 
Delphi 2009 Professional
 
#2

Re: Versteckt arbeiten?

  Alt 21. Mär 2004, 19:23
Hallo,
warum sollte der Timer nicht auslösen
I come from outer space to save the human race
  Mit Zitat antworten Zitat
Ratte

Registriert seit: 12. Dez 2003
Ort: Erfurt
345 Beiträge
 
Delphi 2005 Personal
 
#3

Re: Versteckt arbeiten?

  Alt 21. Mär 2004, 19:31
Keine Ahnung, aber er löst nicht aus!!!!!
Schiffsratte der U.S.S. Delphipraxis, Laderaum 4538
BUSH:= TTerminator.create;
  Mit Zitat antworten Zitat
Benutzerbild von fkerber
fkerber
(CodeLib-Manager)

Registriert seit: 9. Jul 2003
Ort: Ensdorf
6.723 Beiträge
 
Delphi XE Professional
 
#4

Re: Versteckt arbeiten?

  Alt 21. Mär 2004, 19:41
Hi!

Das hat sicherlich andere Gründe!

Poste doch mal etwas Code.


Ciao fkerber
Frederic Kerber
  Mit Zitat antworten Zitat
Ratte

Registriert seit: 12. Dez 2003
Ort: Erfurt
345 Beiträge
 
Delphi 2005 Personal
 
#5

Re: Versteckt arbeiten?

  Alt 22. Mär 2004, 19:27
Delphi-Quellcode:
procedure GetMemoryInfo(var total, available: LongInt);
var memory: TMemoryStatus;
begin
  memory.dwLength:=SizeOf(memory);
  GlobalMemoryStatus(memory);
  total:=memory.dwTotalPhys;
  available:=memory.dwavailPhys;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var insgesamt, verfuegbar: LongInt;
begin
  GetMemoryInfo(insgesamt, verfuegbar);
  Gauge1.MaxValue:=insgesamt;
  Gauge1.Progress:=insgesamt-verfuegbar;
  If ((Radiobutton4.Checked) AND ((DatePicker2.Date)+Frac(TimePicker1.Time)<=Now)) OR
  ((Radiobutton5.Checked) AND (Combobox1.ItemIndex=0) and (Gauge1.PercentDone>Spinedit1.Value)) OR
      ((Radiobutton5.Checked) AND (Combobox1.ItemIndex=1) and (Gauge1.Percentdone<Spinedit1.Value)) Then Begin
    // damit das ereignis nur einmal auftritt den timer deaktiveren
    timer1.Enabled:=false;
    IF Radiobutton1.Checked THEN begin
    //ExitWindowsEx(EWX_SHUTDOWN, 0);
    close;
    end;
    IF Radiobutton2.Checked THEN
    begin
    ExitWindowsEx(EWX_REBOOT, 0);
    close;
    end;
    IF Radiobutton3.Checked THEN ExitWindowsEx(EWX_LOGOFF, 0);
  End;
end;
Bitte!!!
Schiffsratte der U.S.S. Delphipraxis, Laderaum 4538
BUSH:= TTerminator.create;
  Mit Zitat antworten Zitat
Benutzerbild von fkerber
fkerber
(CodeLib-Manager)

Registriert seit: 9. Jul 2003
Ort: Ensdorf
6.723 Beiträge
 
Delphi XE Professional
 
#6

Re: Versteckt arbeiten?

  Alt 22. Mär 2004, 19:30
Hi!

Und du bist sicher, dass es mit nicht im Systray geht?

Hast du den Timer vorher auf enbaled:=true gesetzt?


Ciao fkerber
Frederic Kerber
  Mit Zitat antworten Zitat
Benutzerbild von Meflin
Meflin

Registriert seit: 21. Aug 2003
4.856 Beiträge
 
#7

Re: Versteckt arbeiten?

  Alt 22. Mär 2004, 19:34
also prinzipiell kann das nicht daran liegen, dass dein prog im tna ist. das MUSS andere gründe haben!
  Mit Zitat antworten Zitat
Ratte

Registriert seit: 12. Dez 2003
Ort: Erfurt
345 Beiträge
 
Delphi 2005 Personal
 
#8

Re: Versteckt arbeiten?

  Alt 22. Mär 2004, 19:35
Ja, da es funzt wenn ich das Fenster offen ist.
Schiffsratte der U.S.S. Delphipraxis, Laderaum 4538
BUSH:= TTerminator.create;
  Mit Zitat antworten Zitat
Benutzerbild von fkerber
fkerber
(CodeLib-Manager)

Registriert seit: 9. Jul 2003
Ort: Ensdorf
6.723 Beiträge
 
Delphi XE Professional
 
#9

Re: Versteckt arbeiten?

  Alt 22. Mär 2004, 19:37
Hi!

Mach mal ne Showmessage('Test'); ins Timer-Event rein, um zu sehen, obs im TNA ausgeführt wird.


Ciao fkerber
Frederic Kerber
  Mit Zitat antworten Zitat
Benutzerbild von Robert
Robert

Registriert seit: 4. Jan 2003
36 Beiträge
 
#10

Re: Versteckt arbeiten?

  Alt 23. Mär 2004, 13:08
Jo, tiefster Debug-Tipp

Einfach per Trial and Error erfassen, an welcher Stelle es hakt. Showmessage eignet sich dafür sehr gut!
Wer hat gesagt, dass Borland NUR ein Begriff für ein Ölfeld sei!?

Ban Visual BASIC 4ever
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:22 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz