Dll如何导出一个函数？

Question

Function checkidFun(CheckID:LongWord):LongWord;stdcall;export;
begin
  Result := 100;
end;exports
checkidFun name 'IsidGood';

Answer 1

不行啊？
[Error] Project2.dpr(22): Statement expected but 'FUNCTION' found

Answer 2

Function checkidFun(CheckID:LongWord):LongWord; externel 'your.dll'; stdcall;

Answer 3

Exports
  RPU_GETSTATUS,
  RPU_GETINFO,
  RPU_SETRCPFORM_INFO,
  RPU_SETRCPFORM_DEF,
  RPU_OPEN,
  RPU_CLOSE,
  RPU_EXEC;

Answer 4

判断计算机是否在线dlllibrary OnLine;uses
  SysUtils,
  Classes,
  windows,
  wininet;{$R *.res}function OnOrLine: Boolean;stdcall;
var
  ConnectState,StateSize: DWORD;
begin
  Result := False;
  if not InternetCheckConnection('http://www.163.com/',1,0) then Exit;
  ConnectState := 0;
  StateSize := SizeOf(ConnectState);
  if InternetQueryOption(nil,INTERNET_OPTION_CONNECTED_STATE,
      @connectstate,statesize) then begin
    if (ConnectState and INTERNET_STATE_DISCONNECTED)<>2 then
      Result := True;
  end;
end;exports
  OnOrLine;begin
end.

Answer 5

library中
function a(...):types;
begin
end;
...exports
a,
..
..;写完后Ctrl+F9,编译OK