Einzelnen Beitrag anzeigen

Jerry

Registriert seit: 24. Feb 2005
Ort: Schweiz/Thurgau
138 Beiträge
 
Delphi 2010 Professional
 
#1

Projekt von Delphi 2007 auf Delphi 2010 umstellen

  Alt 18. Jan 2011, 09:23
Hallo zusammen

Ich brauche die Unit JwaWinType.
Beim Kompilieren erhalte ich folgende Meldung: Inkompatible Typen Char und AnsiChar.
Wie muss ich den Code anpassen, dass es für Delphi 2010 stimmt? (ist im unteren code entsprechend markiert)

Vielen Dank für Eure Info!
Grüsse Jerry

Delphi-Quellcode:
procedure GetProcedureAddress(var P: Pointer; const ModuleName, ProcName: string);
var
  ModuleHandle: HMODULE;
begin
  if not Assigned(P) then
  begin
    ModuleHandle := GetModuleHandle(PChar(ModuleName));
    if ModuleHandle = 0 then
    begin
      ModuleHandle := LoadLibrary(PChar(ModuleName));
      if ModuleHandle = 0 then
        raise EJwaLoadLibraryError.CreateFmt(RsELibraryNotFound, [ModuleName]);
    end;
    P := Pointer(GetProcAddress(ModuleHandle, PChar(ProcName))); // hier ist die Fehlermeldung !!!!
    if not Assigned(P) then
      raise EJwaGetProcAddressError.CreateFmt(RsEFunctionNotFound, [ModuleName, ProcName]);
  end;
end;
  Mit Zitat antworten Zitat