Source file: /~heha/BETA/matdde32.zip/SRC/CLIPFORM.PAS

library clipform;
uses PasMex32,Windows,DDEML,dde_init;
{jede dieser DLLs auf andere Basisadressen relozieren}
{$IMAGEBASE $10070000}

procedure mexFunction(nlhs:LongInt; var plhs:TMatArr;
  nrhs:LongInt; const prhs:TMatArr); stdcall;
 var
  s: array[0..255] of Char;
 begin
  TestInputArgs(nrhs,prhs,1,1,1,0);	{genau ein String-Argument}
  mxGetString(prhs[0],s,sizeof(s));	{String sollte kurz sein}
  plhs[0]:=mxCreateDoubleMatrix(1,1,mxReal);
  mxGetPr(plhs[0])^:=MyRegisterClipboardFormat(s);
 end;

exports
 mexFunction;
begin
 DisableThreadLibraryCalls(HInstance);
end.