Send to tray

[__patrik]

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