トップページ⇒tech
29コメント12KB

真の Delphian ならこのページを見てみろ。

■ このスレッドは過去ログ倉庫に格納されています
0001極小実行ファイル.exeNGNG
このページを見て少しでもファイルサイズを減らせ｡
絶対に見る価値はある。

ttp://halbow.cool.ne.jp/
0002デフォルトの名無しさんNGNG
この期に及んでまたしても糞スレが...
0003　NGNG
２ゲット〜
0004デフォルトの名無しさんNGNG
program Window1;

uses
　Windows, Messages;

const
　AppName = 'Window1';

function WindowProc(Window: HWnd; AMessage, WParam, LParam: Longint): Longint; stdcall; export;
begin
　Result:=0;
　case AMessage of
　　wm_Destroy: begin
　　　　　　　　　PostQuitMessage(0);
　　　　　　　　　Exit;
　　　　　　　　end;
　end;
　Result:=DefWindowProc(Window, AMessage, WParam, LParam);
end;

function WinRegister: Boolean;
var
　WindowClass: TWndClassEx;
begin
　with WindowClass do
　begin
　　cbSize:=SizeOf(WindowClass);
　　Style:=cs_hRedraw or cs_vRedraw;
　　lpfnWndProc:=@WindowProc;
　　cbClsExtra:=0;
　　cbWndExtra:=0;
　　hInstance:=HInstance;
　　hIcon:=LoadIcon(0, idi_Application);
　　hCursor:=LoadCursor(0, idi_Application);
　　hbrBackground:=HBrush(Color_Window);
　　lpszMenuName:=nil;
　　lpszClassName:=AppName;
　　hIconSm:=0;
　end;
　Result:=RegisterClassEx(WindowClass)<>0;
end;

function WinCreate: HWnd;
var
　hWindow: HWnd;
begin
　hWindow:=CreateWindow(AppName, 'Object Pascal Window',
　　　　　　　　　　　　ws_OverlappedWindow, cw_UseDefault, cw_UseDefault,
　　　　　　　　　　　　cw_UseDefault, cw_UseDefault, 0, 0, HInstance, nil);
　if hWindow<>0 then
　begin
　　ShowWindow(hWindow, CmdShow);
　　Updatewindow(hWindow);
　end;
　Result:=hWindow;
end;
0005デフォルトの名無しさんNGNG
>続き
var
　AMessage: TMsg;
　hWindow: HWnd;
begin
　if not WinRegister then
　begin
　　MessageBox(0, 'Register failed', nil, mb_Ok);
　　Exit;
　end;
　hWindow:=WinCreate;
　if hWindow=0 then
　begin
　　MessageBox(0, 'WinCreate failed', nil, mb_Ok);
　　Exit;
　end;
　while GetMessage(AMessage, 0, 0, 0) do
　begin
　　TranslateMessage(AMessage);
　　DispatchMessage(AMessage);
　end;
　Halt(AMessage.wParam);
end.

このプログラムDel5でコンパイルするとちゃんと動くのに
Del6でコンパイルするとCreateWindowに失敗する

誰か理由を知ってる人いる？
0006デフォルトの名無しさんNGNG
>>1
普段からやってるよ・・・そんなこと
↓スレ重複してるし・・・

Delphiで小さな実行ファイルを作ろう
http://pc.2ch.net/test/read.cgi/tech/1009080085/
0007デフォルトの名無しさんNGNG
とりあえず>6のスレに移動したら調べてやるから
0008デフォルトの名無しさんNGNG
第一お前の言う「真のDelphian」ってのはこれくらいのことをすでにやっていて、
その上でVCLを使っている人のこと。
>>1のページの人がそういう人だろ？
00094-5NGNG
>>7　しゃれで書いただけだから

>>1　この程度は常識なんだよ
0010デフォルトの名無しさんNGNG
頼むから >>1 よ、そんなにサイズ小さくしたいならアセンブラでやってくれ！
0011デフォルトの名無しさんNGNG
ね、もうやめよう？
0012デフォルトの名無しさんNGNG
つうか同じDelphi使いとしてこんなｽﾚ立つのが恥ずかしい。
0013デフォルトの名無しさんNGNG
>>12
このｽﾚはDel信者を装ったRuby厨です。
0014デフォルトの名無しさんNGNG
CPU の処理速度の劇的な向上、ハードディスクやメモリが
安価になったこと、Web 上の通信速度の向上のため「小さい
実行ファイルを作る」こと自体の意義は、相対的に低下して
います。開発コストやコードの堅牢性、高い保守性などを考
慮すると、信頼性の高いライブラリを使った方が実際的なこ
とは明らかです。

しかし、教育的な意義は少しも低下していません。４−５に
示されたいわゆる Generic.c に対応するコードは、いまもっ
て Windows プログラマには重要です。９さんは、「常識であ
る」と仰っていますが、メッセージ処理、ウィンドウ関数、
メッセージループについて知っているウィンドウズプログラマ
は本当に少ないんです。４−５のコードでウィンドウを作って
それが「普通のウィンドウ」として何故動作するのか、を本当
に理解しているプログラマの割合はそんなに大きくはないので
す。Generic.c 以外にも、いわゆる Petzold 本にのっている
全てのコードが Delphi の Pascal （Object Pascal ではなく）
を使って、同じことができることを知ることは重要です。

ＶＣＬのコードの大半は、結局、上記の事を理解すると解読が
簡単になります。また、使いにくいというヘルプも大体何を
言っているのか分かるようになります。

というわけで、繰り返しますが、「小さい実行ファイルをつくる」
こと自体が重要なのではなく、それを通じて Windows 自体の仕
組みを知ることこそ、ウィンドウズプログラマにとって価値が
あることだと思います。
0015デフォルトの名無しさんNGNG
DelphiってSDK書かなくてもウィンドウ出せるの？
すげー便利だ。
0016デフォルトの名無しさんNGNG
>>15
Delphi に限らず、ＶＢでも、ＶＣ＋＋でも SDK を直接使わなくても
ウィンドウを作れると思いますが？
0017デフォルトの名無しさんNGNG
>>15 windows.h 相当の windows unitがあるというだけの話では？
001816NGNG
あっ、APIのインポートライブラリが標準で付属してるってことですか。
これがないウィンドウズプログラム作成環境が存在すること自体が
信じられないことですが......。
0019デフォルトの名無しさんNGNG
>>18
VB(ぼそ

WindowsAPIを含む外部関数を呼び出すときは
Declare文を自分で書かないといけない。
0020デフォルトの名無しさんNGNG
http://pc.2ch.net/test/read.cgi/tech/1019185100/
0021デフォルトの名無しさんNGNG
delphi!
0022デフォルトの名無しさんNGNG
EXEのサイズが気になるなら、こういうので小さくしろや。って既出だよな。
ttp://www.jonathanclark.com/ezip/
ただの嫌がらせか？>>1
生産性が落ちたら意味がねー言語だろ、Delphiは！

0023デフォルトの名無しさんNGNG
>>22
　生産性・・・なんか悲しい響きだね
0024デフォルトの名無しさんNGNG
>>22
>生産性が落ちたら意味がねー言語だろ、Delphiは！

生産性が落ちても意味がある言語ってなに？
そもそも Delphi は言語ではありませんが。

ただの嫌がらせか？>>22
0025デフォルトの名無しさんNGNG
>>24
アセンブラとか
0026デフォルトの名無しさんNGNG
>>25
なぜ今ごろレスる。。。

それにアセンブラの場合は局所的に使うことによって全体の生産性を上げるのが目的でしょ？
効率が上がることが生産性の向上につながると解釈すれば
0027デフォルトの名無しさんNGNG
生産性の向上って・・・・ほんと悲しい響きだね・・・・・

楽な方法ばかり使ってると、出来る範囲が狭くなるだけ
人間が作るんだからその人間を鍛える事も必要だよ

例えばwindowsのAPIを叩くにはcの方が参考文献もサンプルコードも
多いけど、あえてDelphiを使う事で自分を鍛えるとかさ
0028デフォルトの名無しさんNGNG
.⌒ヽ　　　　　　　　　　　' ⌒ヽ 　 　 　 　 　 ／.|:::::::::::|
乂乂||　　　　　　　　　　|乂乂|| 　 　　　　　 |　 |:::::::::::|
乂乂||　　　　　　　　　　|乂乂|| 　 　　　　　 |　 |:::::::::::|
乂乂||　　　　　　　　　　|乂乂||　　　＿＿＿|＿|:::::::::::|＿＿＿＿
乂乂||　　　　　　　　　　|乂乂|| 　／|::::::::::::::::::::::::::::::::::::::::::::::::::::::::|
￣￣　　　　　　　　　　　￣￣　　i　 |::::::::::::::::::::::::::::::::::::::::::::::::::::::::|
　　　　　 ＿＿＿＿_　　 　 　 　 .|／￣￣￣..／|:::::::::::|￣￣￣／
　　　　　||L L | L L ||　　　　　　　￣￣￣￣|　 |:::::::::::|￣￣￣
　　　　　||L L | L L ||　　　　　　　　 　 　 　 |　 |:::::::::::|
　　　　　||L L | L L ||＿＿＿＿＿＿＿＿_ .|　 |:::::::::::|
===========l| L L l=================　i　 |:::::::::::|
二二二二二二ヽ　　 iヽ二二二二二二二二i　 |:::::::::::|
:::::::::::::::::::::::::::::::::::i　　 ヽ|　　　　　_＿,､_＿＿.i　 |:::::::::::|
￣￣￣￣￣￣￣＼　　 ∧＿∧ _i'くi" ⌒ヽ､　 |:::::::::::|
￣￣￣￣￣￣￣￣|......（　´Д｀）_l ''!ﾉlﾉﾊ）))|　 |:::::::::::|＿_
::::::::::::::::::::::::::::::::::::::::: |　 /　　（Ｓ）::::::i从ﾘ ´ワ｀ﾉ |:::::::::::|　　＼
￣￣￣￣￣￣￣￣￣￣￣￣￣￣|　.＼　....＼|:::::::::::|　　　 ＼
　　　　　　＿＿＿＿/|＿＿＿＿　 .|　　 .＼　　 ￣￣
　　　　 ／懺悔します…
　　　　 |　アスキーアートエディターにいけないんです…。
　　　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
0029デフォルトの名無しさんNGNG
真の Debian ならこのページを見てみろ。
http://www.debian.org/
■ このスレッドは過去ログ倉庫に格納されています