-
等级
本版专家分：40结帖率 100% -
..展开阅读全文
-
等级
本版专家分：4913 -
最小的exe文件只有15k，如果你要的话，留下email,
晚上回去我发给你。
-
等级
本版专家分：7036 -
file ->new->other->console application
run后是生成一个30几K的exe，如果删除uses SysUtils;
run生产只有几k的exe
-
等级
本版专家分：40
-
to:flyforlove
我的email:javapattern@126.com
-
等级
本版专家分：40
-
to：noil0125(珏心)
我还要运行 winexec()程序。
-
等级
本版专家分：40
-
我只剩下 Windows 单元，现在只有15k多了。
-
等级
本版专家分：20147 -
没有必要啊。
Project->Options->Packages->Built with runtime packages
-
等级
本版专家分：10316
-
program testwindow;
uses
Windows,
Messages;
var
WinClass: TWndClassA;
Inst, Handle, Button1, Label1, Edit1: Integer;
Msg: TMsg;
hFont: Integer;
{ Checks if typed password is 'Amigreen' and shows Message }
procedure CheckPassword;
var
Textlength: Integer;
Text: PChar;
begin
TextLength := GetWindowTextLength(Edit1);
if TextLength = 8 then
begin
GetMem(Text, TextLength + 1);
GetWindowText(Edit1, Text, TextLength + 1);
if Text = 'Amigreen' then
begin
MessageBoxA(Handle, 'Password is correct.', 'Password check', MB_OK);
FreeMem(Text, TextLength + 1);
Exit;
end;
end;
MessageBoxA(Handle, 'Password is incorrect.', 'Password check', MB_OK);
end;
{ Custom WindowProc function }
function WindowProc(hWnd, uMsg, wParam, lParam: Integer): Integer; stdcall;
begin
Result := DefWindowProc(hWnd, uMsg, wParam, lParam);
{ Checks for messages }
if (lParam = Button1) and (uMsg = WM_COMMAND) then
CheckPassword;
if uMsg = WM_DESTROY then
Halt;
end;
begin
{ ** Register Custom WndClass ** }
Inst := hInstance;
with WinClass do
begin
style := CS_CLASSDC or CS_PARENTDC;
lpfnWndProc := @WindowProc;
hInstance := Inst;
hbrBackground := color_btnface + 1;
lpszClassname := 'AG_TESTWINDOW';
hCursor := LoadCursor(0, IDC_ARROW);
end; { with }
RegisterClass(WinClass);
{ ** Create Main Window ** }
Handle := CreateWindowEx(WS_EX_WINDOWEDGE, 'AG_TESTWINDOW', 'Amigreen TestWindow 1.00',
WS_VISIBLE or WS_SIZEBOX or WS_CAPTION or WS_SYSMENU,
363, 278, 305, 65, 0, 0, Inst, nil);
{ ** Create a button ** }
Button1 := CreateWindow('Button', 'OK', WS_VISIBLE or WS_CHILD or BS_PUSHLIKE or BS_TEXT,
216, 8, 75, 25, handle, 0, Inst, nil);
{ ** Create a label (static) ** }
Label1 := Createwindow('Static', '', WS_VISIBLE or WS_CHILD or SS_LEFT,
8, 12, 76, 13, Handle, 0, Inst, nil);
{ ** Create an edit field ** }
Edit1 := CreateWindowEx(WS_EX_CLIENTEDGE, 'Edit', '', WS_CHILD or WS_VISIBLE or
WS_BORDER or ES_PASSWORD, 88, 8, 121, 21, Handle, 0, Inst, nil);
{ ** Create Font Handle ** }
hFont := CreateFont(-11, 0, 0, 0, 400, 0, 0, 0, DEFAULT_CHARSET,
OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY,
DEFAULT_PITCH or FF_DONTCARE, 'MS Sans Serif');
{ Change fonts }
if hFont <> 0 then
begin
SendMessage(Button1, WM_SETFONT, hFont, 0);
SendMessage(Label1, WM_SETFONT, hFont, 0);
SendMessage(Edit1, WM_SETFONT, hFont, 0);
end;
{ Change label (static) text }
SetWindowText(Label1, 'Enter password:');
{ Set the focus to the edit control }
SetFocus(Edit1);
UpdateWindow(Handle);
{ ** Message Loop ** }
while(GetMessage(Msg, Handle, 0, 0)) do
begin
TranslateMessage(msg);
DispatchMessage(msg);
end; { with }
end.
-
等级
本版专家分：10316
-
呵呵。真的很小。给分啊。
-
等级
本版专家分：4913
-
program Project2;
uses
Windows,
Messages;
var
Msg:TMsg;
wc:TWndClass; //RegisterClass()所需要的参数
hWnd:THandle; //主窗体的句柄
const
ClassName='MainWClass';
OutText='我爱你。';
Function MainWndProc(Handle:THandle;MsgID:UINT;wParam,lParam:Integer):LRESULT;stdcall;
var
pDC:HDC;
lpRect:TRECT;
begin
Result:=1;
case MsgID of
WM_CLOSE:
begin //关闭窗体所产生的消息
if MessageBox(Handle,'要关闭这个程序吗？','程序示例',MB_ICONQUESTION or MB_YESNO)=IDYES then
DestroyWindow(hWnd)
else
Result:=0;
Exit;
end;
WM_DESTROY: //DestroyWindow()所产生的消息
begin
PostQuitMessage(0);
end;
WM_PAINT:
begin
pDC:=GetDC(hWnd);
GetClientRect(hWnd,lpRect);
DrawText(pDC,OutText,8,lpRect,DT_SINGLELINE or DT_CENTER or DT_VCENTER);
ReleaseDC(hWnd,pDC);
end;
end;
//剩下的消息交给Windows预设的处理函数就可以了，比如画窗体的WM_NCPAINT消息等等
Result:=DefWindowProc(Handle,MsgID,wParam,lParam);
end;
//初始化，注册窗口类
Function InitApplication(hInstance:THANDLE):Boolean;
begin
//首先使用RegisterClass()注册窗体类，这可不是Delphi数据类型中的类哦
wc.style:=CS_HREDRAW OR CS_VREDRAW;
wc.lpfnWndProc:=@MainWndProc; //消息处理函数的地址
wc.hInstance:=hInstance; //程序的句柄，同时也是基地址
wc.hIcon:=LoadIcon(0,PChar(IDI_APPLICATION));
wc.hCursor:=LoadCursor(0,IDC_ARROW); //图标
wc.hbrBackground:=GetStockObject(WHITE_BRUSH); //背景画刷
wc.lpszClassName:=ClassName; //前面定义的常量
Result:=Boolean(RegisterClass(wc));//注册这个窗口类
end;
//InitInstance 生成窗口
Function InitInstance(hInstance:THANDLE;nCmdShow:Integer):Boolean;
begin
hWnd:=CreateWindowEx(0,
ClassName, //刚才注册的类的名字
'示例', //窗体的标题
WS_OVERLAPPEDWINDOW, //窗体的类型，有标题栏、系统菜单、最大化最小化菜单，以及拉伸边框
Integer(CW_USEDEFAULT),
Integer(CW_USEDEFAULT),
Integer(CW_USEDEFAULT),
Integer(CW_USEDEFAULT),
0,
0,
hInstance,
nil
);
if hWnd=0 then
begin
Result:=false;
Exit;
end;
ShowWindow(hWnd,CmdShow);
UpdateWindow(hWnd);
Result:=true;
end;
//主程序开始
begin
if Not InitApplication(hInstance) then Halt(0); //初始化注册窗口类
if Not InitInstance(hInstance,CmdShow) then Halt(0); //产生窗口
while GetMessage(Msg,0,0,0) do
begin
TranslateMessage(Msg);
DispatchMessage(Msg); //该API将消息分派到相应的窗体消息处理函数
end;
ExitCode:=Msg.wParam;
end.
-
等级
本版专家分：259 -
我用delphi写的MP3播放器19K,用ASPACK压缩过 因为里面包含了一张96K的图片
http://fxmake.com/player.exe
- 用Delphi产生一个最小的可执行程序
用Delphi产生一个最小的可执行程序 曾经在网上看到有人说Delphi能够产生大小只有16k的Win32应用程序，而我自己曾经编写过的这种可执行文件大小则是在17k左右，因而我一度猜想Delphi恐怕也只能将代码优化到这种程度...
- 修改delphi7中生成的exe文件的图标
修改delphi7中生成的exe文件的图标 在DELPHI中，照以下做即可： PROJECT ->OPTIONS->APPLICATION->LOAD ICON即可.
- Delphi使用SDK写最小的程序
用Delphi产生一个最小的可执行程序 曾经在网上看到有人说Delphi能够产生大小只有16k的Win32应用程序，而我自己曾经编写过的这种可执行文件大小则是在17k左右，因而我一度猜想Delphi恐怕也只能将代码优化到这种程度...
- Delphi中调用执行Windows的exe文件
—————————————————————用ShellExecute(Handle,PChar(‘open’),PChar(‘calc.exe’),nil,nil,SW_SHOWNORMAL);前面还要包含ShellApi单元。—————————————————————*:启动一...
- 为什么delphi编译生成的exe文件这么大？
去掉runtime package在工程管理器中 楼上说的不好搞，除非你在SYSTEM目录下装哪个DELPHI的DPL...用Delphi产生一个最小的可执行程序 曾经在网上看到有人说Delphi能够产生大小只有16k的Win32应用程序，而我
- Delphi向可执行文件EXE尾部写数据然后读取
读取数据调用代码： procedure TForm1.FormCreate(Sender: TObject); var s:TExeStream; a:Char; ... k:Byte;... s:=TExeStream.Create(Application.ExeName,True);... k:=s.Read(a,1);... if k
- 发布：Delphi程序员助手V2.4最终版（含全部源代码），DLL+EXE架构
软件名称：Delphi 程序员助手软件版本：V2.4最终版软件大小：2.91M/(3052KB)适用平台：Win9x/NT/2000/XP/2003授权类型：免费软件软件类型：编程开发/编码辅助软件语言：简体中文软件作者：胡孟杰电子邮件：hmjwfsoft...
- Delphi制作注册机
For Delphi，让你的注册机变小一些 请抛弃VCL，如果你嫌自己用Delphi编译出来的注册机个头儿过大的话... 事实上这种事情确实在发生，就在今天，就在刚才，在偶还没吃饭的时候就看到一个网友在这样抱怨... 的确...
- Delphi创建WebService部署到Apache
从Apache官网下载httpd2.2版本，安装。网上说安装后把安装目录
- Delphi创建WebService部署到Apache
从Apache官网下载httpd2.2版本，安装。网上说安装后把安装目录保留了，就是现成的绿色版，需要在其他机器上使用，直接执行批处理：bin\httpd ... 启动DelphiXE7，创建新项目，项目类型选择WebServices-->SOAP Server A
- 用Delphi制作BPL包
用Delphi制作BPL包 2007-6-21 背景 GCM3构造时间长的问题由来已久。伴随着时间的流逝，系统功能越来越强大，模块越来越多，目前仅GCM一项，需要编译的客户端dll达389个之多。在编译机上，一次完整的编译...
- 用Delphi产生一个最小的可执行程序 (转)
用Delphi产生一个最小的可执行程序 (转)[@more@] 用Delphi产生一个最小的可执行程序 曾经在网上看到有人说Delphi能够产生大小只有16k的win32应用程序，而我自己曾经编写过的这种可执行文件...
- 将Delphi2007的所有dcu打包到一个运行时包中
第一次发布确实有些大，但是对于Delphi自带的dcu我们基本上没有机会进行更改，因此发布一次，以后在升级直接拷贝exe或dll即可，单窗体的exe只有30k，方便升级。而且发布的时候才带包编译，只需要一个bpl文件，
- DevExpress VCL for Delphi 各版本收集下载（最新支持Delphi 10.3.3 RIO）
点此下载 最新更新： DevExpress VCL 18.1.6 Full ...DevExpress VCL for Delphi帮助文档,CHM格式： DevExpress VCL 5.7（支持XE） DevExpress VCL 2011VOL 1.6（支持XE 2） DevExpress VCL 2011VOL 1....
- 用Delphi产生一个最小的可执行程序
用Delphi产生一个最小的可执行程序 曾经在网上看到有人说Delphi能够产生大小只有16k的Win32应用程序，而我自己曾经编写过的这种可执行文件大小则是在17k左右，因而我一度猜想Delphi恐怕也只能将代码优化到这种程度...
- Delphi中的包（一）：关于exe的编译、连接和执行
---摘 自：http://blog.csdn.net/soobey/archive/2005/08/29/467526.aspx最近搞Delphi，发现原来的程序中使用了...什么是exe？它们在组成上有什么不同？包跟dcu是什么关系？dcp是干什么的？这些文件在编译时是什么关系
- Delphi调用外部程序的集中方法
Delphi调用外部程序WinExec主要运行EXE文件。如：WinExec(’Notepad.exe Readme.txt’, SW_SHOW);WinExec( lpCmdLine: LPCSTR; {文件名和参数; 如没指定路径会按以下顺序查找: 程序目录/当前目录/System32/Windows...
- 第1章 最小化Delphi内核
Delphi编译的，EXE最小到底能有多少个字节？ 很多人会用最简单的方式做一个“Hello World！”程序来给出答案。一一在Delphi7中，会是15K字节。如果使用对话框，则马上会变成382K字节。 这里不去讨论为什么会有...
- DELPHI下自定义包的作用，开发以及包文件的安装配置位置
转自：http://www.cnblogs.com/dingjie/articles/199136.html 充分发挥包的作用 本章要点：n 为何要用包n 为何不用包n 包的类型n 包文件n 使用运行期包n 把包安装到Delphi IDE中n 创建包n
- Delphi中ShellExecute的妙用
ShellExecute的功能是运行一个外部程序（或者是打开一个已注册的文件、打开一个目录、打印一个文件等等），并对外部程序有一定的控制。 一、ShellExecute常用方法 有几个API函数都可以实现这些功能，...
- DELPHI XE5安装
1.安装XE5 2. HNFJ-DPADCW-BDWCFU-FPNN QDF4-CTSDHV-RDFCFE-FEAN HNFK-BCN8NN-78N53D-H4RS 破解补丁使用方法: (1).复制压缩包内的“RADStudioXE5.slip”替换...\Embarcadero\RAD Studio\12.0...C:\Program Fil...
- Delphi转换EXE文件为BAT文件.rar
Delphi转换EXE文件为BAT批处理文件，Exe2Bat是挺早的一个小工具了(有ASM源码) 能把任意文件转化成bat 可惜问题还是不少 我用Delphi写个吧(网上似乎有VC/VB的源码)这个是实现的核心单元,多谢chinasf提供的思路 ...
- Delphi程序调用C#.Net编译的DLL并打开窗体(详解)
转自： ... ...Delphi程序调用C#.Net编译的DLL并打开窗体...最近用C#.Net写了一个公用模块, 本以为仅提供给.Net程序使用, 但是领导要求把这些功能提供给旧系统使用, 天啦, 几套旧系统全是Delphi写的, 我不想再重复写一
- Delphi - Indy TIdHTTP方式创建程序外壳 - 实现可执行程序的自动升级
Delphi 实现可执行程序的自动升级 准备工作： 1：Delphi调用TIdHTTP方式开发程序，生成程序打包外壳 说明：程序工程命名为ERP_Update 界面布局如下： 代码实现如下： 1 unit Unit1; 2 3 interface...
- delphi 注册表操作(读取、添加、删除、修改)完全手册
32位Delphi程序中可利用TRegistry对象来存取注册表文件中的信息。 一、创建和释放TRegistry对象 1.创建TRegistry对象。为了操作注册表，要创建一个TRegistry对象：ARegistry := TRegistry.Create； ...
- Delphi下构建无导入表程序-使用:hash获取API,k32Base等
//Start~~~《Delphi实现无导入表程序》初学编程，请勿奸笑:P首先感谢,一些认识不认识的前辈高人的资料.谢谢～前提假设您已经有了一定的PE Virus的知识.好了～先简单的说说无导入表程序的几点基本的构成1....
- delphi的fastmm
论： 1、绝对不可低估开源的力量！我们能由开源学到更多 ...... 3、和以往的 Delphi 不同，Delphi 2006 中在 Dll 导出 string、动态数组等不再需要 ShareMem！（因为已经内置了） ＝^0^＝ --------------
- 强烈推荐 DELPHI 程序员用 KOL+MCK
以下资料均来自互连网： VCL 库是Delphi程序员熟知的，她几乎成了Delphi RAD技术的代言人。VCL拥有世界上最大最丰富的控件资源涵盖了软件开发的各个方面，远远超过其他开发工具，是每个程序员所垂涎。VCL的优点不再...
- 教程-Delphi编译就报毒
这几天都在忙专周实验，今天用到delphi，一到编译时nod32就报毒，编译空文件也报毒，上网查了资料才明白，是编译文件被感染了，生成软件就会报毒。把自己找到的资料分享如下： 重新编译时，生成的exe突然nod32...
- 深入Delphi编程
<!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--><script type="text/javascript"