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.
Vorgefundene Kodierung: UTF-8 | 0
|