Bedingte Compilierung

[Michael II]

Hallo dalai

danke für deinen Hinweis. Nun das compilierte Programm funktioniert ja [also wahrscheinlich kein Scanner Problem], einfach beim Debuggen schmiert die Sache immer wieder ab (Delphi schmiert ab [Fehlermeldung einsenden], oder Delphi läuft zwar noch meldet aber, ich müsse meine Arbeit speichern und Delphi neu starten oder es wird angezeigt Assertion failure:"!"UNKNOWN evaluator type "" in ..\win32src\DBKIMPL.CPP at line 4017).


Ich habe nun dank ProcMon auch gesehen, an welcher Stelle im Code ab und zu alles stehen bleibt: Beim Setzen einer .lnk Datei auf dem Desktop. Wieso es passiert, weiss ich allerdings nicht.

Da mein eigener Code etwas "aufgeblasen" ist, habe ich nach einem anderen gesucht, bei welchem das Problem auch auftritt und bei about gefunden (Code unten).

Wenn ich den Code unten lade, das Programm erzeuge, einen Haltepunkt in der Zeile
IPFile.Save(PWChar(LinkName), false) ;
setze und dann starte(F9), dann sehe ich, dass bei der Ausführung der obigen Zeile ein Modul geladen und wieder entladen wird. Mal ist der Name des Moduls leer (zum Beispiel immer bei Seattle) und mal wird irgend ein String angezeigt. Und ab und zu schmiert es wie eingangs erwähnt ab.

Auf meinem Rechner (Win10 Anni Update) passiert dies nur mit Delphi Berlin Update. Vielleicht hat ja ein delphipraxis Mensch einen Tipp, wie man es so macht, dass es auch mit DBUp klappt.



(* uses ShlObj, ActiveX, ComObj; *)

procedure lnk_auf_desktop;
var IObject : IUnknown;
ISLink : IShellLink;
IPFile : IPersistFile;
PIDL : PItemIDList;
InFolder : array[0..MAX_PATH] of Char;
TargetName : String;
LinkName : WideString;
begin
TargetName := Application.ExeName; {
Use TargetName:=ParamStr(0) which returns the path and file name of the
executing program to create a link to your Application}
IObject := CreateComObject(CLSID_ShellLink) ;
ISLink := IObject as IShellLink;
IPFile := IObject as IPersistFile;
with ISLink do
begin
SetPath(pChar(TargetName)) ;
SetWorkingDirectory(pChar(ExtractFilePath(TargetNa me))) ;
end; // if we want to place a link on the Desktop
SHGetSpecialFolderLocation(0, CSIDL_DESKTOPDIRECTORY, PIDL) ;
SHGetPathFromIDList(PIDL, InFolder) ;
{ or if we want a link to appear in
some other, not-so-special, folder:
InFolder := 'c:\SomeFolder' }
LinkName := InFolder + '\Delphi Created Link.lnk';
IPFile.Save(PWChar(LinkName), false) ;
end;

Quelle: http://delphi.about.com/od/windowssh...create_lnk.htm

Gruss
Michael