[SOLVED] Is there a common way of declaring FPC and Delphi procedural variables?

[440bx]

Hello,

I cannot find a common way of declaring and using procedural variables that both FPC and Delphi find acceptable.  Everything I've tried, if it's acceptable to one compiler it isn't to the other.

Attached is a sample program that I'd like to be able to compile (and run of course) without having to use {$ifdef FPC}.... {$else}.... {$endif}

In the attached sample, there doesn't seem to be a way to make the following statement (its intent) acceptable to both compilers

Code: Pascal  [Select][+][-]

1.     // Delphi doesn't like the statement below.  It likes it without the
2.     // typecast but then FPC doesn't like it if its not there.
3.  
4.     pointer(NtQueryInformationProcessPtr)
5.            := GetProcAddress(NtdllHandle, 'NtQueryInformationProcess');
6.  

Is there some way of declaring NtQueryInformationProcessPtr that would make both compilers happy (without using {$ifdef}s ?

Thank you for your help.

[Thaddy]

:= is not =. That should be enough.

[440bx]

:= is not =. That should be enough.

yeah... := is definitely not =.  Now that's out of the way, do you happen to have one way of declaring procedural variables that both compilers would accept ?

[marcov]

If I leave the pointer() hack out, it works fine with $Mode delphi

[440bx]

If I leave the pointer() hack out, it works fine with $Mode delphi

Is there a way that would not require {$MODE DELPHI} ?

FPC requires the pointer typecast because GetProcAddress returns a pointer.  Without it, there is type mismatch.

[440bx]

found the solution... simple too...

Code: Pascal  [Select][+][-]

1.     NtQueryInformationProcessPtr := TNtQueryInformationProcess(
2.                GetProcAddress(NtdllHandle, 'NtQueryInformationProcess'));
3.  

That's acceptable to both compilers.   No directives and no modes needed either. 

ETA:

Marco, thank you.  Your comment made me think about typecasting the output of GetProcAddress instead of typecasting the l-value.

[ASBzone]

found the solution... simple too...

Code: Pascal  [Select][+][-]

1.     NtQueryInformationProcessPtr := TNtQueryInformationProcess(
2.                GetProcAddress(NtdllHandle, 'NtQueryInformationProcess'));
3.  

That's acceptable to both compilers.   No directives and no modes needed either. 

ETA:

Marco, thank you.  Your comment made me think about typecasting the output of GetProcAddress instead of typecasting the l-value.

Inquisitive question, @440bx -- why the need to avoid any directives or mode?   What about them complicates the solution for you?[/size]