Форум: "Основная";
Текущий архив: 2003.04.07;
Скачать: [xml.tar.bz2];
Вниз
Как запустить мою прогу с ключём Найти похожие ветки
← →
Dimonich (2003-03-24 15:10) [0](что то типа "d:\my_proc.exe -key")
← →
Rad (2003-03-24 15:12) [1]ParamStr
← →
Silver_ (2003-03-24 15:20) [2]
> d:\my_proc.exe -key
так и запускаешь а
S:=ParamStr( 1)
S равен "-key"
← →
Palladin (2003-03-24 15:20) [3]Пуск(Start)/Выполнить(Run)
и пиши путь своей проги с ключем...
господи... уже не знаем как свои программы запускать...
← →
Ик сик (2003-03-24 15:25) [4]ParamCount - количество ключей
ParamStr(i) - функция, возвращающая конкретный ключ
CmdLine - полная строка параметров
← →
Reindeer Moss Eater (2003-03-24 15:29) [5]Что бы запустить прогу с ключем, что то типа "d:\my_proc.exe -key" надо набрать в командной строке
my_proc.exe -key и нажать Enter
← →
Palladin (2003-03-24 15:32) [6]народ, вы хоть вопрос то вдумчиво читаете?
к Silver_ (24.03.03 15:20) не относится
← →
Ик сик (2003-03-24 15:32) [7]Какие мы остроумные :))) Понятно ведь что человек спросить хочет :)
Вот если бы ты ответил, а потом прикольнулся, было бы другое дело :)))))))))
← →
Palladin (2003-03-24 15:34) [8]и еще к Reindeer Moss Eater (24.03.03 15:29) не относится
> Ик сик (24.03.03 15:32)
ты так разбираешься в людях?
может он программу написал, а запустить проверить не знает как...
и такое бывает...
а если и не так... то пусть не обижается, ибо надо правильно формулировать вопрос...
← →
Ик сик (2003-03-24 15:52) [9]Просто я знаю как это неприятно когда тебе нужно срочно что-то сделать и ты пытаешься найти помощь, а вместо этого получаешь неуместные шутки.
← →
Palladin (2003-03-24 15:57) [10]даждемся автора поста и узнаем что же он имел ввиду...
походу он уже сам разобрался...
← →
Anatoly Podgoretsky (2003-03-24 15:58) [11]Ик сик (24.03.03 15:32)
Если хочет получить ответ, то пусть задаст вопрос, а не загадку, ты сам часто страдаешь этим, а ответ твой не по существу, ему запустить, а не принять параметры.
← →
Ик сик (2003-03-24 16:07) [12]
> Anatoly Podgoretsky
Чтобы действительно четко сформулировать вопрос нужно знать половину ответа. А что если человек не знает этой половины? Вот и получаются вопросы-загадки.
Вряд ли человек занимающийся программированием не знает как запустить программу с ключом, скорее всего он имеет ввиду работу с ключами в Delphi.
← →
Anatoly Podgoretsky (2003-03-24 16:11) [13]Насчет врядли есть сомнения, а насчет другого телепатия
← →
Ик сик (2003-03-24 16:37) [14]Не телепатия - здравый смысл :)))
Ладно не парьтесь, я просто высказал свое мнение.
← →
Anatoly Podgoretsky (2003-03-24 16:39) [15]Нам то чего париться, это ты паришься давая неверные советы
← →
Ик сик (2003-03-24 16:47) [16]Анатолий, вы ведь взрослый человек... Может хватит?
С эстонским акцентом: Ну вы еще подеритесь горячие эстонские паарни
← →
Reindeer Moss Eater (2003-03-24 16:55) [17].....взрослый человек... Может хватит?
Стало, вдруг, интересно, кто начал:
Ик сик (24.03.03 15:32)
Какие мы остроумные :))) Понятно ведь что человек спросить хочет :)
Вот если бы ты ответил, а потом прикольнулся, было бы другое дело :)))))))))
← →
Ик сик (2003-03-24 16:57) [18]Главное вовремя остановиться :)))
← →
Ик сик (2003-03-24 16:57) [19]Что я и делаю.
Всем пока.
← →
Anatoly Podgoretsky (2003-03-24 16:59) [20]Нет ты прикололся, а не ответил, ответили
Silver_ (24.03.03 15:20)
Palladin © (24.03.03 15:20)
Reindeer Moss Eater (24.03.03 15:29)
← →
Ик сик (2003-03-24 17:04) [21]ПОКА!!!
← →
les (2003-03-24 17:45) [22]А я вот за плюрализм. И за телепатию. И вообще подозреваю что вопрос бил такой "Как запустить мою прогу с ключём [из под Delphi]". Так что больше ответов а там пусть сам разбираеться.
← →
Dimonich (2003-03-26 09:45) [23]Во блин !!!!! не форум а сплошная трепня!
Объясняю:
юзер может писать в строке что то типа -KEY
прога при запуске должна в зависимости от ключа работать по разному.
как консоль в кантре, играли? то он есть то его нет
всем спасибо а особенно:
Silver_ (24.03.03 15:20)
Palladin © (24.03.03 15:20)
Reindeer Moss Eater (24.03.03 15:29)
← →
grab3 (2003-03-26 09:54) [24]Чета вы тут закипели прямо... Мне так все стало понятно еще со второго ответа. Не ссорьтесь...:-)
← →
Dimonich (2003-03-27 09:52) [25]ну дык поможет кто?
← →
han_malign (2003-03-27 10:03) [26]Тебе вроде все уже написали, ладно на разбирайся:
program Cnv;
{$APPTYPE CONSOLE}
uses
SysUtils;
.....................
var
_ActionName : TFileName;
_Context : string;
i,j,k : integer;
_s : string;
_iBitDepth : integer;
_fSkipStartBit,_fInversed,__fInversed,_fAloneStartBit,
_fReversed,__fReversed,_fAscii,_fByteAlign : boolean;
_wPacketSize : word;_fHex : boolean;
_wSkip : word;
begin
_iBitDepth:=8;_wSkip:=0;
_Context:="";
_fSkipStartBit:=false; _fInversed:=false; __fInversed:=false;
_fAloneStartBit:=false; _fReversed:=false; __fReversed:=false;
_fAscii:=false;_fByteAlign:=false;
_wPacketSize:=0;_fHex:=false;
for i:=1 to ParamCount do begin
_s:=ParamStr(i);
if UpperCase(Copy(_s,1,2))="/D"
then _iBitDepth:=StrToIntDef(Copy(_s,3,Length(_s)),8)
else if UpperCase(_s)="/I" then _fInversed:=true
else if UpperCase(_s)="/II" then __fInversed:=true
else if UpperCase(_s)="/A" then _fAloneStartBit:=true
else if UpperCase(_s)="/ASCII" then _fAscii:=true
else if UpperCase(_s)="/S" then _fSkipStartBit:=true
else if UpperCase(Copy(_s,1,2))="/E"
then _wSkip:=StrToIntDef(Copy(_s,3,Length(_s)),0)
else if UpperCase(Copy(_s,1,2))="/P"
then _wPacketSize:=StrToIntDef(Copy(_s,3,Length(_s)),0)
else if UpperCase(_s)="/R" then _fReversed:=true
else if UpperCase(_s)="/H" then _fHex:=true
else if UpperCase(_s)="/B" then _fByteAlign:=true
else if UpperCase(_s)="/RR" then __fReversed:=true
else if UpperCase(Copy(_s,1,2))="/C" then _Context:=Copy(_s,3,Length(_s))
else _ActionName:=ParamStr(i);
end;
if _ActionName="" then exit;
..........................................................
end.
← →
Palladin (2003-03-27 10:04) [27]хм, это мне анекдот напоминает:
Инженер долго долго объяснял женщине принцип работы телеграфа,
про кабели расположеные на дне океана, про то как электрические сигналы превращяются в символы, но в конце этого подробного объяснения, женшина ответила инженеру:
- Вы так хорошо все объясняете, что мне все понятно, кроме одного: какже телеграммы из воды сухими выходят?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.04.07;
Скачать: [xml.tar.bz2];
Память: 0.5 MB
Время: 0.009 c
