Hallo Leute!
ich benutze die untere function von Delphi-Treff.de um eine Verknüpfung anzulegen...

zusammenfalten · markieren

Delphi-Quellcode:

function CreateLink(const AFilename, ALNKFilename, ADescription: string) : Boolean;
var
  psl : IShellLink;
  ppf : IPersistFile;
  wsz : PWideChar;
begin
  result:=false;
  if SUCCEEDED(CoCreateInstance(CLSID_ShellLink, nil,
  CLSCTX_inPROC_SERVER, IID_IShellLinkA, psl)) then
  begin
    psl.SetPath(PChar(AFilename));
    psl.SetDescription(PChar(ADescription));
    psl.SetWorkingDirectory(PChar(ExtractFilePath(AFilename)) ;);
    if SUCCEEDED(psl.QueryInterface(IPersistFile, ppf)) then
    begin
      GetMem(wsz, MAX_PATH*2);
      try
        MultiByteToWideChar(CP_ACP, 0, PChar(ALNKFilename), -1, wsz, MAX_PATH);
        ppf.Save(wsz, true);
        result:=true;
      finally
        FreeMem(wsz, MAX_PATH*2);
      end;
    end;
  end;
end;

Nur hab ich jetzt das Problem dass ich in einer Zeile beim compilieren die Meldung erhalte "Inkompatible Datentypen 'Char' und 'AnsiChar'". Kann mir einer sagen obs dafür ne funktion wie z.b IntToStr() oder StrToDate... usw gibt?
MultiByteToWideChar(CP_ACP, 0, PChar(ALNKFilename), -1, wsz, MAX_PATH); Gruß
Sir K

Hallo,
Deine Funktion läßt sich mit meinem Delphi 7 problemlos kompilieren, deshalb muss ich mal die befragen:
Probiere es bitte mal mitMultiByteToWideChar(CP_ACP, 0, PAnsiChar(ALNKFilename), -1, wsz, MAX_PATH);

.. mal eine kleine Frage am Rande,

Ist die Konvertierung von MultiByte(Ansi?) nach WideChar durch MultiByteToWideChar
überhaupt noch notwendig?

Zitat von DelphiHilfe:

The MultiByteToWideChar function maps a character string to a wide-character (Unicode) string. The character string mapped by this function is not necessarily from a multibyte character set.

Bei Delphi2009 ist doch ein String schon ein UniCode String.
Grüße
Klaus

Zitat von nahpets:

Hallo,
Deine Funktion läßt sich mit meinem Delphi 7 problemlos kompilieren, deshalb muss ich mal die befragen:
Probiere es bitte mal mitMultiByteToWideChar(CP_ACP, 0, PAnsiChar(ALNKFilename), -1, wsz, MAX_PATH);

Also habs jetzt selber mal untder Delphi7 ausprobiert und du hast recht da funktionierts einwandfrei, nur unterm RAD Studio 2009 bleibt die fehlermeldung... hab dann mal im 2009er das PChar() durch PAnsiChar() ersetzt. Dann wirds zwar compiliert aber der link wird nicht mehr erstellt.

Gruß
Sir K

.. und wie schaut es so aus?

markieren

Delphi-Quellcode:

 begin
      //GetMem(wsz, MAX_PATH*2);
      try
        //MultiByteToWideChar(CP_ACP, 0, PChar(ALNKFilename), -1, wsz, MAX_PATH);
        ppf.Save(ALNKFileName, true);
        result:=true;
      finally
        //FreeMem(wsz, MAX_PATH*2);
      end;
    end;

Grüße
Klaus

Hallo,

dann befolge bitte mal den Rat von Klaus und lass die ZeileMultiByteToWideChar(CP_ACP, 0, PAnsiChar(ALNKFilename), -1, wsz, MAX_PATH); weg. Nach Aussage von Klaus ist dies für Deine Delphiversion nicht mehr erforderlich.

...dann gibts die meldung ink. datent. String und PWideChar ind der Zeile
ppf.Save(ALNKFileName, true)

Hallo,

Zitat von Sir K:

...dann gibts die meldung ink. datent. String und PWideChar ind der Zeile
ppf.Save(ALNKFileName, true)

dann mal mitppf.Save(PWideChar(ALNKFileName), true) versuchen.

Dann versuch es mal so:

zusammenfalten · markieren

Delphi-Quellcode:

    if SUCCEEDED(psl.QueryInterface(IPersistFile, ppf)) then
    begin
      {GetMem(wsz, MAX_PATH*2);
      try
        MultiByteToWideChar(CP_ACP, 0, PChar(ALNKFilename), -1, wsz, MAX_PATH);
        ppf.Save(wsz, true);
        result:=true;
      finally
        FreeMem(wsz, MAX_PATH*2);
      end;}
      ppf.Save(PWideChar(ALNKFilename), true);
      result:=true;
    end;

Edith sagt: zu langsam

Zitat von nahpets:

Hallo,

Zitat von Sir K:

...dann gibts die meldung ink. datent. String und PWideChar ind der Zeile
ppf.Save(ALNKFileName, true)

dann mal mitppf.Save(PWideChar(ALNKFileName), true) versuchen.

jo damit klappts nur seltsamerweise steht in dem erzeugten link kein ziehl...