如果只是简单执行,RunCommand也可以用。记得use Process单元。
windows下还有ShellApi单元中的ShellExecute,很好用。只是不夸平台。
参考官方说明:http://wiki.lazarus.freepascal.org/Executing_External_Programs
1、批处理文件的输出是什么?是一行还是多行?2、字符串中是可以包含换行回车符的,如:
s:='uwquiewy'+chr(10)+chr(13)+'hjgdfjg'
最简单的hellow world!步骤2.根据引导创建控制台程序,把所有复选框的勾去掉;名称默认创建的程序代码如下:
program Project1
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes, SysUtils, CustApp
{ you can add units after this }
type
{ TMyApplication }
TMyApplication = class(TCustomApplication)
protected
procedure DoRunoverride
public
end
{ TMyApplication }
procedure TMyApplication.DoRun
var
ErrorMsg: String
begin
{ add your program here }
// stop program loop
Terminate
end
var
Application: TMyApplication
{$R *.res}
begin
Application:=TMyApplication.Create(nil)
Application.Title:='My Application'
Application.Run
Application.Free
end.
3.替换: 把
begin
Application:=TMyApplication.Create(nil)
Application.Title:='My Application'
Application.Run
Application.Free
end.
替换为
begin
writeln('Hello World!')
readln;
end.
4.编译运行就可以看到你熟悉的hello world 了
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)