Delphi-Quellcode:
procedure miep(i: LongInt);
begin
writeln(i);
readln;
end;
type
Tmiep = procedure(i: LongInt);
procedure test(m: Tmiep);
begin
m(1);
end;
begin
test(@miep);
end.
//edit
teste mal folgendes:
function Import(p: pointer): longint);
..
CreateThread(nil, 0, @Import, nil, 0, id)