Tworzenie skrótu do programu z parametrem

T-kOrreD

2005-01-26 11:27

T-kOrreD2005-01-26 11:27

Rejestracja:około 21 lat
Ostatnio:prawie 19 lat
Postów:35

Tworzę skrót do programu z parametrem. Korzystam z kodu działającego na takiej samej zasadzie jak w FAQ: http://4programmers.net/faq.php?id=44. Ale po utworzeniu tego sktrótu, parametr jest wpisany razem w linii poleceń, tzn. "Dysk:\Ścieżka\Program.exe Parametr" zamiast "Dysk:\Ścieżka\Program.exe" Parametr. Windows szuka wtedy programu o nazwie "Program Parametr". Co zrobić, żeby to działało tak, jak trzeba?

Snowak

2005-01-26 12:09

Snowak2005-01-26 12:09

Rejestracja:około 21 lat
Ostatnio:prawie 16 lat
Postów:109

Podaj kod, ktory uzywasz

T-kOrreD

2005-01-26 12:16

T-kOrreD2005-01-26 12:16

Rejestracja:około 21 lat
Ostatnio:prawie 19 lat
Postów:35

Kopiuj

var
  MyObject: IUnknown;
  ShellLink: IShellLink;
  PersistFile: IPersistFile;
  FileName: String;
...
CoInitialize(nil); //Nie wiem, czy dobrze robię, ale jak tego tak nie wpiszę, to wywala mi błąd "Nie wywołano procedury CoInitialize".
MyObject := CreateComObject(CLSID_ShellLink);
ShellLink := MyObject as IShellLink;
PersistFile := MyObject as IPersistFile;
FileName := Application.ExeName;
with ShellLink do
begin
  SetWorkingDirectory(PChar(ExtractFilePath(FileName)));
  SetPath(PChar(FileName));
  SetArguments('AS'); //O ile się nie mylę, tak się ustala parametry
end;
PersistFile.Save(PWChar('JakaśŚcieżka'),True);