Для запуска сейчас использую: WinExec(PChar(programm),SW_SHOW);
lnk запустить не смог =(
Вот про пароль я уже думал. Надумал что-то типо:
Function Crypt (Text, Key: String; Encode: Boolean): String;
Var
I, KeyLength: integer;
Sign: ShortInt;
Begin
KeyLength:=Length (Key);
If Encode then Sign:=-1 else Sign:=1;
For I:=1 to Length (Text) do
Text[i]:=Chr (ord (Text[i]) +Sign*ord (Key[I mod KeyLength+1]));
Result:=Text;
End;
...........
кодировать: куда_кодировать:=Crypt(что_кодировать, ключ, false);
если true - вернет обратно.
|