Verknüpfung erstellen?

**malo**

Wie kann mein Programm eine Verknüpfung eines Programmes in einem bestimmten Ordner erstellen? O_o

Passt jetzt fast zu dem anderen Thema hier, mit den Dateien kopieren, aber Verknüpfen ist ja etwas anders

**Daniel**

Verknüpfung erstellen

Die Suche hätte auch hier geholfen.

**malo**

Tja, da ich ein faules Schwein bin, hab ich die Suche wohl nicht genutzt

Naja, ich werd mich da mal schlau machen... ^^

**DelphiFreund**

Hi malo,
öffne mal einen Hexeditor und schaue dir eine Verknüfung an. Du könntest dann ja die Datei selber schreiben, dann müsstest du dir aber noch Streams ansehen.

Gruß DelphiFreund

**Daniel**

Zitat von malo:

Tja, da ich ein faules Schwein bin...

Das hat niemand gesagt. Du wärest nur schneller an Deine Informationen gekommen.

**malo**

Zitat von Daniel:

Zitat von malo:

Tja, da ich ein faules Schwein bin...

Das hat niemand gesagt. Du wärest nur schneller an Deine Informationen gekommen.

Doch, ich hab es gesagt. Ich weiß es doch selbst. Ich frag lieber immer im Forum nach, das geht schneller, als die Suche zu nutzen. Deshalb mag ich auch keine Antworten in denen steht "benutz mal die Suchfunktion" oder sowas

**malo**

Gut, ich hab dann doch mal Probleme gefunden, die möchte ich dann mal erläutern *g*

zusammenfalten · markieren

Delphi-Quellcode:

			function CreateLink(lpszPathObj,lpszPathLink,

  lpszDesc: string):Boolean;

var

  psl: IShellLink;

  ppf: IPersistFile;

const

  IID_IPersistFile: 

     TGUID = (D1:$0000010B;

              D2:$0000;

              D3:$0000;

              D4:($C0,$00,$00,$00,$00,$00,$00,$46));

begin

  result := False;

  if SUCCEEDED(CoCreateInstance(CLSID_ShellLink,

                                nil,

                                CLSCTX_INPROC_SERVER,

                                IID_IShellLinkA,

                                psl)) then

    begin

      psl.SetPath(PChar(lpszPathObj));

      psl.SetDescription(PChar(lpszDesc));

      if SUCCEEDED(psl.QueryInterface(IID_IPersistFile,

                   ppf)) then

        begin

          ppf.Save(StringToOLEStr(lpszPathLink),TRUE);

          Result := true;

          ppf._Release; //---> Runtime-Error wenn aktiv

        end;

    end;

  psl._Release; // ---> Runtime-Error wenn aktiv

end;

Mein Delphi akzeptiert diese Function (die ich in der Code-Library gefunden habe) nicht. Da kommen gaaaanz viele Fehlermeldungen. Und zwar 6mal "undefinierter Bezeichner", 5mal O"perator oder Semikolon fehlt" und einmal ") erwartet, aber QueryInterface gefunden" O_o

Wäre für Hilfestellung dankbar

**Luckie**

Tja, ob do es glaubst oder nicht, aber WAS für Fehlermeldungen wären jetzt unheimlich hilfreich für uns. Der Lionk zu dem Beitrag in die Code-Lib jkönnte eventuell auch helfen. Ich tippe jetzt mal so ins Blaue, dass du einfach nur vergessen hast eine Unit einzubinden.

**fkerber**

Hi!

Wenn du uns sagst, welche Bezeichner undefiniert sind, das wär super.

Ciao Frederic

**malo**

Der Link:

Aus der Code-Library

Fehlermeldungen:

[Fehler] Unit2.pas(34): Undefinierter Bezeichner: 'IShellLink'
[Fehler] Unit2.pas(35): Undefinierter Bezeichner: 'IPersistFile'
[Fehler] Unit2.pas(45): Undefinierter Bezeichner: 'CoCreateInstance'
[Fehler] Unit2.pas(45): Undefinierter Bezeichner: 'CLSID_ShellLink'
[Fehler] Unit2.pas(47): Undefinierter Bezeichner: 'CLSCTX_INPROC_SERVER'
[Fehler] Unit2.pas(48): Undefinierter Bezeichner: 'IID_IShellLinkA'
[Fehler] Unit2.pas(51): Operator oder Semikolon fehlt
[Fehler] Unit2.pas(52): Operator oder Semikolon fehlt
[Fehler] Unit2.pas(53): ')' erwartet, aber Bezeichner 'QueryInterface' gefunden
[Fehler] Unit2.pas(56): Operator oder Semikolon fehlt
[Fehler] Unit2.pas(58): Operator oder Semikolon fehlt
[Fehler] Unit2.pas(61): Operator oder Semikolon fehlt
[Fataler Fehler] Project2.dpr(5): Verwendete Unit 'Unit2.pas' kann nicht compiliert werden

@Luckie: Unit einbinden? Was für 'ne Unit und wo genau? Sry, ich kenn mich da einfach nich aus

Verknüpfung erstellen?

Verknüpfung erstellen?

Re: Verknüpfung erstellen?

Re: Verknüpfung erstellen?

Re: Verknüpfung erstellen?

Re: Verknüpfung erstellen?

Re: Verknüpfung erstellen?

Re: Verknüpfung erstellen ?

Re: Verknüpfung erstellen?

Re: Verknüpfung erstellen?

Re: Verknüpfung erstellen?

Forumregeln

malo Registriert seit: 19. Sep 2004 2.115 Beiträge	#1 Verknüpfung erstellen? 23. Okt 2004, 18:48 Wie kann mein Programm eine Verknüpfung eines Programmes in einem bestimmten Ordner erstellen? O_o Passt jetzt fast zu dem anderen Thema hier, mit den Dateien kopieren, aber Verknüpfen ist ja etwas anders
	Zitat

Daniel (Co-Admin) Registriert seit: 30. Mai 2002 Ort: Hamburg 13.919 Beiträge Delphi 10.4 Sydney	#2 Re: Verknüpfung erstellen? 23. Okt 2004, 18:49 Verknüpfung erstellen Die Suche hätte auch hier geholfen. Daniel R. Wolf mit Grüßen aus Hamburg
	Zitat

malo Registriert seit: 19. Sep 2004 2.115 Beiträge	#3 Re: Verknüpfung erstellen? 23. Okt 2004, 19:00 Tja, da ich ein faules Schwein bin, hab ich die Suche wohl nicht genutzt Naja, ich werd mich da mal schlau machen... ^^
	Zitat

DelphiFreund Registriert seit: 29. Jul 2004 Ort: München 127 Beiträge Delphi 7 Enterprise	#4 Re: Verknüpfung erstellen? 23. Okt 2004, 19:03 Hi malo, öffne mal einen Hexeditor und schaue dir eine Verknüfung an. Du könntest dann ja die Datei selber schreiben, dann müsstest du dir aber noch Streams ansehen. Gruß DelphiFreund Sandro Irren ist menschlich...
	Zitat

Daniel (Co-Admin) Registriert seit: 30. Mai 2002 Ort: Hamburg 13.919 Beiträge Delphi 10.4 Sydney	#5 Re: Verknüpfung erstellen? 23. Okt 2004, 19:10 Zitat von malo: Tja, da ich ein faules Schwein bin... Das hat niemand gesagt. Du wärest nur schneller an Deine Informationen gekommen. Daniel R. Wolf mit Grüßen aus Hamburg
	Zitat

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#8 Re: Verknüpfung erstellen? 24. Okt 2004, 11:57 Tja, ob do es glaubst oder nicht, aber WAS für Fehlermeldungen wären jetzt unheimlich hilfreich für uns. Der Lionk zu dem Beitrag in die Code-Lib jkönnte eventuell auch helfen. Ich tippe jetzt mal so ins Blaue, dass du einfach nur vergessen hast eine Unit einzubinden. Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat

fkerber (CodeLib-Manager) Registriert seit: 9. Jul 2003 Ort: Ensdorf 6.723 Beiträge Delphi XE Professional	#9 Re: Verknüpfung erstellen? 24. Okt 2004, 12:04 Hi! Wenn du uns sagst, welche Bezeichner undefiniert sind, das wär super. Ciao Frederic Frederic Kerber
	Zitat