Thema: Delphi Send to tray

Einzelnen Beitrag anzeigen

__patrik

Registriert seit: 8. Mai 2003
Ort: hamburg
32 Beiträge
 
Delphi 7 Professional
 
#3

Re: Send to tray

  Alt 17. Jul 2003, 11:42
hallo mathias,

erstmal vielen dank für die ausführliche Antwort, funzt alles so wie ichs gern hätt und das mit der abfrage ob "Schließen" oder "Tray" war so geplant

ich hab nur noch ein kleines Prob mit dem Autostart. den parameter ignoriert er ganz grosszügig
der eintrag in die reg:
Code:
procedure doapptorun(RunName, AppName: string);
...
  RunName := RunName + '/autorun';
  Reg := TRegistry.Create;
  with Reg do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
    WriteString(RunName, AppName);
    CloseKey;
    Free;
der aufruf ob in tray oder nicht:
Code:
oncreate:
...
  if(paramstr(1) = '/autorun') then
    Application.ShowMainForm := False;
irgendwie nimmt er mir den parameter net und zeigt die form immer

danke
patrik
  Mit Zitat antworten Zitat