全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1386
推到 Plurk!
推到 Facebook!

Delphi 7 如何撰寫不使用 Form1 的程式 ? (DOS Console 程式)

答題得分者是:ANDY8C
pcboy
版主


發表:177
回覆:1838
積分:1463
註冊:2004-01-13

發送簡訊給我
#1 引用回覆 回覆 發表時間:2010-07-15 19:30:36 IP:203.73.xxx.xxx 訂閱
Delphi 7 如何撰寫不使用 Form1 的程式 ? (DOS Console 程式)

要如何修改 Project1.dpr 和 Unit1.pas ?

謝謝 ^_^
------
能力不足,求助於人;有能力時,幫幫別人;如果您滿意答覆,請適時結案!

子曰:問有三種,不懂則問,雖懂有疑則問,雖懂而想知更多則問!
ANDY8C
資深會員


發表:114
回覆:582
積分:299
註冊:2006-10-29

發送簡訊給我
#2 引用回覆 回覆 發表時間:2010-07-15 23:03:33 IP:210.66.xxx.xxx 訂閱
這是我的私藏筆記,忘記原文來源,若您知道來源,煩請告知及補充一下,謝謝您
你可以在 Files 選項中,開起一個 New....的選項,
出現一個 New Items的畫面,再選擇 Console Application 確定後,
你就可以發現有一個project1.dpr ,內容如下
program Project1;
{$APPTYPE CONSOLE}
uses SysUtils;
begin
// Insert user code here
end.
這就是你要的沒Form的程式!
// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Application.Initialize;
Extendedstyle:= getwindowlong(application.Handle,GWL_EXSTYLE);
setwindowlong(application.Handle,GWL_EXSTYLE,Extendedstyle OR
WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW);
application.ShowMainForm:= false;
Application.CreateForm(TForm1, Form1);
Application.Run;
這或許是您要的
// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
>
> Application.Initialize;
> Application.CreateForm(TForm1, Form1);
>
// Application.Run; 去掉
>
這是我的私藏筆記,忘記原文來源,若您知道來源,煩請告知及補充一下,謝謝您

------
---------------------------------------
偶爾才來 KTOP ,交流條碼問題,在 FB [條碼標籤達人] 社團留言,感恩.
pcboy
版主


發表:177
回覆:1838
積分:1463
註冊:2004-01-13

發送簡訊給我
#3 引用回覆 回覆 發表時間:2010-07-16 06:44:18 IP:203.73.xxx.xxx 訂閱
選 File 下拉選單,選 New 選項,選 Other 選項
在 New 標籤中,選 Console Application

------
能力不足,求助於人;有能力時,幫幫別人;如果您滿意答覆,請適時結案!

子曰:問有三種,不懂則問,雖懂有疑則問,雖懂而想知更多則問!
系統時間:2017-12-18 9:16:51
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!