Step by step

Nothing to say, only to code!

 Delphi | 
 copy code |
?
 
01
program
02
  out;
03
uses
04
  dialogs;
05
type
06
  virtual = int64;
07
const
08
  cdecl = integer(varempty);
09
  register = succ(cdecl);
10
  r : array (.cdecl..register.) of virtual = ($6F57206F6C6C6548, $45660800646C72);
11
type
12
  abstract = pchar;
13
  overload = procedure(const message: string);
14
  message = array (.cdecl..cdecl.) of string;
15
var
16
  dispid: ^overload = @showmessage;
17
  stdcall: message;
18
  platform: overload;
19
begin
20
  @platform := dispid;
21
  stdcall(.cdecl.) := abstract(@r);
22
  platform(stdcall(.cdecl.));
23
end.

damn, I’m good

Tags: Delphi, Freaking, nosense code

This entry was posted on Tuesday, August 11th, 2009 at 5:58 pm and is filed under news. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.