想撰寫一支沒有Form或可背景執行, 不會影響畫面的程式, 且執行就結束離開. 試採用Console Applications的方式, 程式有 external DLL , 編譯時有 Invalid complier directive 'EXTERNAL'的錯誤, 難道無法呼叫 DLL的檔案嗎?

Console application can call dll. Could you post your code here for others to take a look at?

我將程式簡化如下:

引言: program Project3; {$APPTYPE CONSOLE} uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ColorBitBtn, MyLabs, DBXpress, FMTBcd, DB, SqlExpr, IniFiles,DateUtils,StrUtils, ComCtrls, winsock; procedure ExeTran(); function TestDll(FileName:string):integer;external 'TEST.dll'; var FName:string; procedure ExeTran(); begin FName:='TEST.TXT'; TestDll(FName); end; begin ExeTran(); end.

麻煩囉!!

Your declaration looks fine  class="code">library tdll; uses ShareMem; function TestDll(FileName: string): integer; begin Result := 10; end; {$R *.res} exports TestDll; begin end. ============================================================ program test; {$APPTYPE CONSOLE} uses ShareMem, SysUtils; function TestDll(FileName: string): integer; external 'tDll.dll'; begin writeln(IntToStr(TestDll('aaaaa'))); end. P.S. If you want to use string, you may want to use the ShareMem unit in both projects.