如何让一个程序开机自动运行，并且呈最小化显示

Question

同上

Answer 1

//寫注冊表
procedure TForm1.FormShow(Sender: TObject);
var 
    tempreg:TRegistry;
begin    tempreg:=TRegistry.Create;
    tempreg.RootKey:=HKEY_LOCAL_MACHINE;
    tempreg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True);  
    tempreg.WriteString('test',Application.Exename);
    tempreg.Closekey;
    tempreg.Free;
end; ---------------------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
Var
temp:integer;
begin 
 SetWindowLong(Application.handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);//隱葳任務欄 
 application.Minimize;  //最小化
 end;如果實現托盤圖標的話搜索以前的貼子，或是可以用第三方控件實現...

Answer 2

用jackie168(玉面書生)的方法完全可以的！！

Answer 3

最小化，用参数： 
在 dpr 文件中加入   
If (LowerCase(ParamStr(1))='h') then 
   Application.ShowMainForm:=False;//隐藏
   或
   application.Minimize;  //最小化
 写注册表时
Application.Exename+' h'//h前有一空格不知是否附合你的要求？

Answer 4

我看还是做个DLL文件，然后把它寄生到EXPLORER。EXE里面 ！我相信这样的方法你应该会满意吧！不过具体代码比较复杂 ，我就不写了！