Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  Re: Procedure umbiegen

   
    by himitsu, 28. Jan 2009
  siehe #4
• Forum: Programmieren allgemein

  Re: Procedure umbiegen

   
    by himitsu, 25. Jan 2009
  aso, na dann
  
  Ansonsten - Dein Code funzt ... mysteriöserweise :S
  joar ... hast was anderes erwartet? :roll:
  
  
  
  mir war halt der die Definition nich eingefallen, aber Hauptsache es läuft :stupid:
  
  ich mach aber dennoch einen FarJump, nur halt über die Adresse in EAX
• Forum: Programmieren allgemein

  Re: Procedure umbiegen

   
    by himitsu, 25. Jan 2009
  Var OldMSG: Function(hWnd: HWND; lpText, lpCaption: PAnsiChar; uType: UINT): Integer; StdCall;
  
  Function NewMSG(hWnd: HWND; lpText, lpCaption: PAnsiChar; uType: UINT): Integer; StdCall;
  Var S: AnsiString;
  
  Begin
  S := 'Test: ' + lpCaption;
  Result := OldMSG(hWnd, lpText, PAnsiChar(S), uType);
  End;