Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Versteckt arbeiten? (https://www.delphipraxis.net/18593-versteckt-arbeiten.html)

Ratte 21. Mär 2004 18:18


Versteckt arbeiten?
 
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,...)? :wall:

Ratte

Jens Schumann 21. Mär 2004 18:23

Re: Versteckt arbeiten?
 
Hallo,
warum sollte der Timer nicht auslösen :gruebel:

Ratte 21. Mär 2004 18:31

Re: Versteckt arbeiten?
 
Keine Ahnung, aber er löst nicht aus!!!!! :wall: :wall: :wall: :wall: :wall: :wall: :wall:

fkerber 21. Mär 2004 18:41

Re: Versteckt arbeiten?
 
Hi!

Das hat sicherlich andere Gründe!

Poste doch mal etwas Code.


Ciao fkerber

Ratte 22. Mär 2004 18:27

Re: Versteckt arbeiten?
 
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!!!

fkerber 22. Mär 2004 18:30

Re: Versteckt arbeiten?
 
Hi!

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

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


Ciao fkerber

Meflin 22. Mär 2004 18:34

Re: Versteckt arbeiten?
 
also prinzipiell kann das nicht daran liegen, dass dein prog im tna ist. das MUSS andere gründe haben!

Ratte 22. Mär 2004 18:35

Re: Versteckt arbeiten?
 
Ja, da es funzt wenn ich das Fenster offen ist. :|

fkerber 22. Mär 2004 18:37

Re: Versteckt arbeiten?
 
Hi!

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


Ciao fkerber

Robert 23. Mär 2004 12:08

Re: Versteckt arbeiten?
 
Jo, tiefster Debug-Tipp :)

Einfach per Trial and Error erfassen, an welcher Stelle es hakt. Showmessage eignet sich dafür sehr gut!


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:15 Uhr.
Seite 1 von 2  1 2      

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