Hallo!

Ich habe folgendes Problem:

Ich habe einen SvaeDialog, in dem der User einen Dateinamen angeben kann. Nun wird dementsprechend eine Verknüpfung zu meinem Programm erstellt...

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;

Das ist die Funktion und das ist der Aufruf:

if dialog_verknuepfung.Execute then CreateLink(Application.ExeName + ' parameter', dialog_verknuepfung.FileName, dialog_verknuepfung.FileName); Funktioniert auch, nur dass der Link dann auf folgendes Ziel verweist:

"Pfad+Exe parameter"

Somit findet Windoof des natürlich nicht...

Weiß jemand, wie ich die Verknüpfung samt Parameter korrekt erstellen kann? Ich hab nirgends was brauchbares dazu gefunden...

MCXSC

Hi!

So aus dem Hut würde ich folgendes vorschlagen:
CreateLink('"' + Application.ExeName + '" parameter',... Dadurch sollte Windows verstehen, was bei deiner Übergabe der Parameter und was das Programm ist.

Nee, dann sieht das Ziel der Verknüpfung wie folgt aus:

"C:\"Pfad+EXE" parameter"

Die Antwort ist so simpel, das man kaum drauf kommt.

Zitat von Die Delphi-Hilfe ©Borland:

IShellLink::SetArguments Method
Sets the command-line arguments for a Shell link object.

Syntax
HRESULT SetArguments(LPCTSTR pszArgs);

Parameters
pszArgs
Pointer to a buffer that contains the new command-line arguments.

Return Value
Returns S_OK if successful, or an error value otherwise.

Remarks
This method is useful when creating a link to an application that takes special flags as arguments, such as a compiler.

Auf deutsch:
Man erweitere den Funktionskopf so ...
function CreateLink(const AFilename, AArgs, ALNKFilename, ADescription: String) : Boolean; ... und füge folgende Zeile ein:
psl.SetArguments(PChar(AArgs));

Super danke...! So funktioniert es

Hatt mich zwar in der Hilfe wegen IShellLink umgeschaut, aber das Argumente Parameter sind... Dazu war ich wohl im Halbschlaf nicht in der Lage... Danke jedenfalls!