Thema: Delphi c code nach delphi

Einzelnen Beitrag anzeigen

MatthiasW

Registriert seit: 29. Jan 2003
Ort: Reichenbach
253 Beiträge
 
Delphi 2009 Professional
 
#9

Re: c code nach delphi

  Alt 5. Mär 2005, 13:49
Zitat von sniper_w:
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....
ich werds mal versuchen, danke
Hilfe wir stürzen ab!!!
  Mit Zitat antworten Zitat