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 :mrgreen:

[Daniel]

[dp]Verknüpfung erstellen[/dp]

Die Suche hätte auch hier geholfen. ;-)

[malo]

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

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:

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:

Zitat von Daniel

Zitat:

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 :roll:

[malo]

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

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 :(