Форум: "Основная";
Текущий архив: 2006.05.28;
Скачать: [xml.tar.bz2];

Вниз

Как стартовать программу минимизированной при автозагрузке?   Найти похожие ветки 

← →
gear   (2006-04-17 15:33) [0]

Как стартовать программу свёрнутой в трэй при автозагрузке? А вслучае ручного запуска, чтобы нормально запускалась? Как такое можно реализовать?

---

← →
wal ©   (2006-04-17 15:37) [1]

Через свойства ярлыка, через параметры командной строки

---

← →
зуегт   (2006-04-17 15:37) [2]

укажи какой нить параметр для запуска проги...
типа C:\myprog.exe /minimize_to_tray

а в программе обработай начальные параметры... уже не помню как :(

---

← →
tesseract ©   (2006-04-17 15:46) [3]

пример старта без показа главной формы

 Mutex := CreateMutex(nil, false,"OleServer");
   if (Mutex = 0) or (Mutex=INVALID_HANDLE_VALUE) then exit;
   if GetLastError=ERROR_ALREADY_EXISTS then begin
    ReleaseMutex(Mutex);
    exit;
   end;
 Application.CreateHandle;
 ShowWindow(Application.Handle,SW_HIDE);
 Application.ShowMainForm:=false;
 application.Initialize;
 Application.CreateForm(TfmWatch, fmWatch);
 Application.Run;


пример обработки командной строки
не пинать ногами - из какого-то старого выдран

function ParseCommandLine:word;
var i:word;
CmdLine:string;
 argcount:word;
 lPos:word;
 rPos:word;
 cmdTemp:PChar;
begin
result:=0;
argcount:=0;
cmdTemp:=GetCommandLine;
// Ничо не поняли
if cmdTemp=nil then  exit;
if length(Cmdtemp)=0 then exit;
CmdLine:=CmdTEmp;
if pos("/",CmdLine)=0 then exit;
Delete(CmdLine,1,pos("/",CmdLine)-1);
if length(CmdLine)<2 then exit;
 repeat
  lpos:=pos("/",CmdLine);
   if lpos=0 then break;
  rpos:=pos(" ",CmdLine);
   if rpos=0 then
    begin
      inc(argcount);
      SetLength(args,argcount);
      args[argcount-1]:=Copy(CmdLine,lpos+1,Length(cmdLine));
          break;
    end
    else
    begin
      inc(argcount);
      SetLength(args,argcount);
      args[argcount-1]:=Copy(CmdLine,lpos+1,rpos-2);
      trim(args[argcount-1]);
      Delete(CmdLine,1,rpos);
    end
until length(Cmdline)<=0;

result:=argcount;
SetLength(action,argcount);
for i:=0 to length(args)-1 do
action[i]:=0;
for i:=0 to length(args)-1 do
begin
 Args[i]:=AnsiUpperCase(Args[i]);
case Ord(Args[i][1]) of
 ord("L"): if args[i]="LIST" then  action[i]:=cmdList;
 ord("I"): if args[i]="INFO" then  action[i]:=cmdGetVersion;
 ord("V"): if args[i]="V" then  action[i]:=cmdGetVersion;
 ord("P"): if args[i]="PAUSE" then begin action[i]:=cmdpause; ifpause:=true; end;
 ord("?"):if args[i]="?" then begin action [i]:=cmdHelp; end;
 ord("H"):if args[i]="HELP" then begin action[i]:=cmdHelp; end;
end;
end;
end;


---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2006.05.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.009 c