GetModuleName wirft Exception

[himitsu]

Delphi-Quellcode:

function BplPath(const BplName: String): AnsiString;
  var MHnd: Cardinal;
begin
   MHnd := GetModuleHandleW(PWideChar(BplName));

Wenn schon hart GetModuleHandleW und PWideChar verwendet wird, dann auch hart WideString/UnicodeString verwenden.


@Jelen:
Der Compiler hat nicht zufällig von unsicherem String-Zeugs gefaselt?


Ich sag's gerne nochmals (immer und immer wieder ) :

xxxW + WideChar + PWideChar + WideString/UnicodeString
xxxA + AnsiChar + PAnsiChar + AnsiString
xxx + Char + PChar + String

und niemals irgendwie gemischt