Thema: Delphi Was sind Structures

Einzelnen Beitrag anzeigen

Benutzerbild von Flocke
Flocke

Registriert seit: 9. Jun 2005
Ort: Unna
1.172 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#27

Re: Was sind Structures

  Alt 16. Apr 2007, 22:30
Zitat von willnix:
Sorry aber das kan ICH nicht so stehen lasen .
In MEINER RichEdit.pas ist zumindest EM_GETEXTEX NICHT deklariert, aber wie gesagt vieleicht liegts an meiner seltsamen Delphi Version.
Nichts für ungut
Willnix
Hier zwei Passagen aus RichEdit.pas zu Delphi 7, war aber auch in Delphi 5 schon drin.
Zeile 154/155:
Delphi-Quellcode:
  {$EXTERNALSYM EM_GETTEXTEX}
  EM_GETTEXTEX = WM_USER + 94;
Zeile 1151 ff.
Delphi-Quellcode:
{ flags for the GETEXTEX data structure }

const
  {$EXTERNALSYM GT_DEFAULT}
  GT_DEFAULT = 0;
  {$EXTERNALSYM GT_USECRLF}
  GT_USECRLF = 1;

{ EM_GETTEXTEX info; this struct is passed in the wparam of the message }

type
  GETTEXTEX = record
    cb: DWORD; { count of bytes in the string  }
    flags: DWORD; { flags (see the GT_XXX defines }
    codepage: UINT; { code page for translation (CP_ACP for default,
                                 1200 for Unicode                 }

    lpDefaultChar: LPCSTR; { replacement for unmappable chars          }
    lpUsedDefChar: PBOOL; { pointer to flag set when def char used    }
  end;
  {$EXTERNALSYM GETTEXTEX}
  TGetTextEx = GETTEXTEX;
Zitat von willnix:
Ich habe schon versucht das Wordpad Rich Edit auszulesen, ICQ Fenster auszulesen, ein Rich Edit im eigenen Programm auszulesen, alles ohne Erfolg.
Immer ist die VAriable mit dem empfangen Text leer.
Schon mal daran gedacht, dass deine Zeiger (LPARAM) im Kontext eines anderen Prozesses ins Nirwana zeigen?
Volker
Besucht meine Garage
Aktuell: RtfLabel 1.3d, PrintToFile 1.4
  Mit Zitat antworten Zitat