主题：怎么编译不了程序?
zhenxin52071
[专家分：0] 发布于 2010-03-21 23:39:00
出现这种提示?
[b][color=800000]Declaration expected but identifier 'unit1' found[/color][/b]
窗体，各个变量名字，我仔细查了一遍，没有错啊！我的程序代码如下：
program Project1;
uses
Forms,windows;
Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}
const
ClassName='Tform1';
var
Handle:integer;
begin
handle:=findwindow(classname,nil);
if handle<>0 then
begin
messagebox(0,'该程序已经有一个在运行中！','运行',0);
halt;
end;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
最后更新于：2010-03-21 23:41:00
回复列表 （共5个回复）
沙发
kingkey110 [专家分：0] 发布于 2010-06-17 17:41:00
不知道你要的是不是 这样的效果
program Project1;
uses
Forms,windows;
// Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}
const
ClassName='Tform1';
var
Handle:integer;
begin
handle:=findwindow(classname,nil);
if handle<>0 then
begin
messagebox(0,'该程序已经有一个在运行中！','运行',0);
halt;
end;
Application.Initialize;
//Application.CreateForm(TForm1, Form1);
Application.Run;
end.
板凳
kingkey110 [专家分：0] 发布于 2010-06-17 17:51:00
如果你不想 程序被第二次运行 代码如下：
program Project1;
uses
Forms, Windows,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
var
hMutex:hWnd;
begin
Application.Initialize;
Application.Title:='标题';
hMutex:=CreateMutex(nil,false,'标题');
if GetLastError<>Error_Already_Exists then
begin
Application.CreateForm(TForm1, Form1);
Application.Run;
end
else
begin
Application.MessageBox('程序已经运行 ！！ ',
'警告',mb_OK + MB_ICONINFORMATION);
ReleaseMutex(hMutex);
end;
end.
3 楼
喷泉是天蓝色的 [专家分：30] 发布于 2010-06-20 19:11:00
设计复数结构，并编写程序，完成复数的加减乘除算法其中P4.c是测试主程序，测试cmplx.h和cmplx.c中定义的复数计算程序是否正确cmplx.h是头文件，定义复数数据结构和函数cmplx.c是实现文件，实现复数处理函数根据题意将P4.c、cmplx.h、cmplx.c三个文件补充完全先以P4.c为基础创建默认工程文件，再将cmplx.h和cmplx.c添加到工程中，组成完整的复数计算程序
4 楼
l874356932 [专家分：0] 发布于 2010-08-04 21:43:00
本人写了个基于delphi的小程序-木子淘宝助手V1.0
有兴趣的朋友可以关注下
木子淘宝助手V1.0操作极其简单，只需点击相应按钮即可获取热卖商品相关信息！
本软件开发目的是帮助大家更快捷的选购淘宝商品，本软件所精选的商品都是人全部是人气相对较高，成交量较大的商品！愿大家都能获得性价比最高的商品，争取多赢！
http://74717.cn/mztbzs.rar
5 楼
moke9 [专家分：30] 发布于 2010-09-02 08:31:00
你好.我是全职网赚工作者.
如果你有时间有电脑.
想在网络上创业.请联系我..
项目绝对真实.详情QQ空间资料
加盟请联系 QQ908889846
我来回复
您所在位置：