我意思是我想建立一個exe的file,然後其他程序調用後,具有返回值,如,boolean, integer, string等

Please press F1 to check out Halt procedure, there is an optional parameter that can pass an exit code to OS.
===================引 用 MatthewSong 文 章===================
我意思是我想建立一個exe的file,然後其他程序調用後,具有返回值,如,boolean, integer, string等

exitcode 是一個exe 結束後的返回值,但如果exe結束異常會返回不同的exitcode
但如果我接收的一邊,誤以為這code 是完成,我怕會有問題,還有其他方法嗎,謝謝你的回覆



===================引 用 Stallion 文 章===================
Please press F1 to check out Halt procedure, there is an optional parameter that can pass an exit code to OS.
===================引 用 MatthewSong 文 章===================
我意思是我想建立一個exe的file,然後其他程序調用後,具有返回值,如,boolean, integer, string等

1. you can specify different exitcode in Halt procedure.
2. just google to check out how to use ERRORLEVEL in a batch file for detecting specified error(exit code).
===================引 用 MatthewSong 文 章===================
exitcode 是一個exe 結束後的返回值,但如果exe結束異常會返回不同的exitcode
但如果我接收的一邊,誤以為這code 是完成,我怕會有問題,還有其他方法嗎,謝謝你的回覆

===================引 用 Stallion 文 章===================
Please press F1 to check out Halt procedure, there is an optional parameter that can pass an exit code to OS.
===================引 用 MatthewSong 文 章===================
我意思是我想建立一個exe的file,然後其他程序調用後,具有返回值,如,boolean, integer, string等

一定要使用 exe ?
DLL 不行？

===================引 用 MatthewSong 文 章===================
我意思是我想建立一個exe的file,然後其他程序調用後,具有返回值,如,boolean, integer, string等

用sendmessage行不行，其他程序調用後,EXE 在 ONCLOSE或ONDESTORY傳SENDMESSAGE給其他程序－返回值

------
努力會更接近成功

N 年前寫過的 .bat
if error level == 255
.......
好像是這樣寫的.
而這個 error level 就是程式傳回的值.
好像在 bat 檔中有限定大的值要先判斷.

年久失修.很多都忘了它的詳細用法了.

dll的方法當然最好,但我記得用dll另起一個data module 會有問題的
所以想先以exe做

from http://www.delphibasics.co.uk/RTL.asp?Name=Halt&ExpandCode1=Yes
[code delphi]
unit Unit1;

interface

uses
// The System unit does not need to be defined
Forms, Dialogs;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
end;

var
Form1: TForm1;

implementation
{$R *.dfm} // Include form definitions

procedure TForm1.FormCreate(Sender: TObject);
var
i : Integer;
begin
// Set up an error address so that halt shows a termination dialog
ErrorAddr := Addr(i);
// Stop the program with exit code 4
Halt(4);
// The following will not be executed
ShowMessage('We do not get this far');
end;
[/code]
dos errorlevel
http://home.att.net/~gobruen/progs/dos_batch/dos_batch.html

------
努力會更接近成功

編輯記錄

先聲明, 我並不懂這塊的應用, 但早些時候我曾稍微看了一下記憶體應用的文章, 你可以去建立一個共用的記憶體區塊, 把變數放在這裡, 再由要讀取的程式來存取這塊共用的記憶體, 我只能給一個藥引, 病根就要你自己去挖了!

http://delphi.ktop.com.tw/board.php?cid=30&fid=72&tid=89679
這篇文章
應該可以幫您解決問題