Tipps für Header-Übersetzungen

**Luckie**

So, ich habe das erstemal eine einfache Header-Übersetzung gemacht. Und zwar gibt es ab Windows 2000 sogenannte TimerQueues. Damit kann man Threads erzeugen, die in bestimmten Intervallen immer wieder aufgerufen werden. Man braucht also keine Endlosschleife in einem Thread oder so. Da es dies erst ab Windows2000 gibt, sind die entsprechenden Funktionen nicht in der windows.pas deklariert, so dass ich es selber gemacht habe. Und das ist bei rausgekommen:

zusammenfalten · markieren

Delphi-Quellcode:

			{************************************************************}

{                                                            }

{                          TimerQueue                        }

{                                                            }

{               Copyright (c) 2004 Michael Puff              }

{                                                            }

{  When I die I want 'Hello, world' carved on my headstone.  }

{                                                            }

{************************************************************}

unit TimerQueue;

interface

type

  THandle = Cardinal;

  DWORD = Cardinal;

  ULONG = Cardinal;

  BOOL = Boolean;

const

  WT_EXECUTEDEFAULT = $00000000;

  WT_EXECUTEINIOTHREAD = $00000001;

  WT_EXECUTEINUITHREAD = $00000002;

  WT_EXECUTEINWAITTHREAD = $00000004;

  WT_EXECUTEONLYONCE = $00000008;

  WT_EXECUTEINTIMERTHREAD = $00000020;

  WT_EXECUTELONGFUNCTION = $00000010;

  WT_EXECUTEINPERSISTENTIOTHREAD = $00000040;

  WT_EXECUTEINPERSISTENTTHREAD = $00000080;

  WT_TRANSFER_IMPERSONATION = $00000100;

type

  WAITORTIMERCALLBACKFUNC = procedure(P: Pointer; B: ByteBool); stdcall;

  WAITORTIMERCALLBACK = WAITORTIMERCALLBACKFUNC;

function CreateTimerQueue: THandle; stdcall;

function CreateTimerQueueTimer(var phNewTimer: THandle; TimerQueue: THandle;

  Callback: WAITORTIMERCALLBACK; Parameter: Pointer; DueTime, Period: DWORD;

  Flags: ULONG): BOOL; stdcall;

function ChangeTimerQueueTimer(TimerQueue: THandle; Timer: THandle; DueTime:

  ULONG; Period: ULONG): Boolean; stdcall;

function DeleteTimerQueueTimer(TimerQueue, Timer, CompletionEvent: THandle):

  BOOL; stdcall;

function DeleteTimerQueueEx(TimerQueue: THandle; CompletionEvent: THandle):

  Boolean;

implementation

function CreateTimerQueue; external 'kernel32.dll' name 'CreateTimerQueue';

function CreateTimerQueueTimer; external 'kernel32.dll' name

'CreateTimerQueueTimer';

function ChangeTimerQueueTimer; external 'kernel32.dll' name

'ChangeTimerQueueTimer';

function DeleteTimerQueueTimer; external 'kernel32.dll' name

'DeleteTimerQueueTimer';

function DeleteTimerQueueEx; external 'kernel32.dll' name 'DeleteTimerQueueEx';

end.

In einem Demo-Projekt hab eich sie getestet und es funktioniert. Was mich jetzt interessieren würde, was gibt es bei Header-Übersetzungen zu beachten:
- Datentypen
- Stil. Ist das soweit bei mir in Ordnung? Was sollte man naders / besser machen? Benennung der Parameter? ...?
- Was sollte im Unit-Header-Kommentar stehen?
- ...
- ...

Und fällt einem ein sinnvoller Name für die Unit ein? Im Original sind die Funktionen in der Windows.h drinne und die Konstanten in WinNT.h.

Tipps für Header-Übersetzungen

Tipps für Header-Übersetzungen

Forumregeln