Thema: Delphi c code nach delphi

Einzelnen Beitrag anzeigen

Benutzerbild von sniper_w
sniper_w

Registriert seit: 12. Dez 2004
Ort: Wien, Österriech
893 Beiträge
 
Delphi 6 Enterprise
 
#6

Re: c code nach delphi

  Alt 5. Mär 2005, 13:04
Zitat:
COPYDATASTRUCT *cpData = (COPYDATASTRUCT *)lParam;

if (cpData->dwData == 1) {
iconData = (NOTIFYICONDATA *) (((BYTE *)cpData->lpData) + 8 );
trayCommand = *(INT *) (((BYTE *)cpData->lpData) + 4);
}
So ganz "straightforward" wäre es:
Delphi-Quellcode:
type PCOPYDATASTRUCT = ^COPYDATASTRUCT;

var cpData : PCOPYDATASTRUCT;

begin
 cpData := PCOPYDATASTRUCT(lParam);

 if (cpData^.dwData = 1) then
 begin
  iconData := ^NOTIFYICONDATA ( ( ( PBYTE(cpData->lpData) ) + 8 ) );
  trayCommand := ( pinteger( ( ( PBYTE(cpData^.lpData)) + 4) ))^;
 end;
Ob es funct ist eine andere Frage....
Katura Haris
Es (ein gutes Wort) ist wie ein guter Baum, dessen Wurzel fest ist und dessen Zweige in den Himmel reichen.
  Mit Zitat antworten Zitat