Bedingte Compilierung

[Dalai]

Mmh, mein Code zum Speichern von Verknüpfungen sieht komplett anders aus. Ich arbeite mit CoCreateInstance, jeder wichtige Aufruf ist zusätzlich mit OleCheck abgesichert, so dass man sofort eine Exception bekommt, wenn etwas nicht passt. Leider habe ich momentan keine Zeit, meinen Code entsprechend aufzubereiten, um ihn zu posten. Insofern kann ich derzeit nur Hilfe zur Selbsthilfe geben und empfehlen, anderen Code zum Speichern von LNKs zu suchen.

Grüße
Dalai

[Michael II]

Hallo Dalai

danke für deine Antwort. Mein Code sieht auch abgesicherter aus [ich lasse mir bei Exceptions eine eMail senden mit Infos - das hilft sehr...], ich wollte hier halt nur den Kern des Problems posten, damit vielleicht jemand mit Berlin Up dies testen kann.

Der Code funktioniert ja [der Link wird korrekt erstellt], aber beim Debuggen taucht eben das beschriebene Problem auf.

Und ich frage mich wieso. Ist das ein Bug im Code (es wird keine Exception ausgelöst) oder ein Bug in Delphi?

Wegen Alternative: Ich bin immer etwas vorsichtig punkto Änderungen, wenn es draussen in der Welt ja eigentlich klappt. [Bis heute auf >40'000 Compis installiert und auf mehreren hundert Compis hunderte Updates eingespielt; und keine Exception-Meldung erhalten, weder vom Programm noch von Usern.] Wenn der Code aber problematisch ist, dann werde ich hier vielleicht doch was anpassen.

Viel Sonne wünsch :-D.

Gruss
M

[Michael II]

Hallo Dalai

nur noch kurz: Du findest auf der microsoft Seite den "genau gleichen" Code (halt nicht in Delphi :wink:).

Du schreibst, dass du es anders machst. Wenn du es in etwa so machst wie im Code unten: Es funktioniert auch so, der Link wird korrekt erstellt, aber es taucht das genau gleiche Problem beim Debuggen auf; natürlich an genau der gleichen Stelle.

Gruss
M

Delphi-Quellcode:

uses ShlObj, ActiveX, ComObj;

function CreateLinkFile(AFilename, ALinkfile, ADescription: string) : Boolean;
var
  pShellLinkW : IShellLinkW;
  pPersistFile : IPersistFile;
begin
  result:=false;
  if SUCCEEDED(CoCreateInstance(CLSID_ShellLink, nil, CLSCTX_inPROC_SERVER, IID_IShellLinkW, pShellLinkW)) then
  begin
    pShellLinkW.SetPath(PWideChar(AFilename));
    pShellLinkW.SetDescription(PWideChar(ADescription));
    pShellLinkW.SetWorkingDirectory(PWideChar(ExtractFilePath(AFilename)));
    if SUCCEEDED(pShellLinkW.QueryInterface(IPersistFile, pPersistFile)) then
    begin
      pPersistFile.Save(PWideChar(ALinkFile), true);
    end;
  end;
end;

[Dalai]

Ja, genau in die Richtung geht mein Code auch. Meine Funktionen habe ich aus der Klasse TShortcut von dieser Seite zusammengebastelt. Ich hatte vorher noch nichts mit IShellLink, IPersistFile etc. zu tun, daher brauchte ich etwas Anleitung.

Wenn das aber bei dir auch nichts hilft, sind mir leider derzeit die Ideen ausgegangen. Eine Sache noch: Geht es, wenn du in einem absoluten, hartkodierten Pfad speicherst? Ich weiß, macht man nicht, aber das umgeht das Ermitteln der Pfade mittels CSIDL oder KnownFolderID.

Grüße
Dalai

[hoika]

Hallo,
erstell mal ein neues leeres Projekt in einem eigenem neuen Verzeichnis.
Hast du dann auch das Problem mit FastMM4?