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;