Как запустить мою прогу с ключём

← →
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]

Что я и делаю.
Всем пока.

Нет ты прикололся, а не ответил, ответили
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]

ПОКА!!!

А я вот за плюрализм. И за телепатию. И вообще подозреваю что вопрос бил такой "Как запустить мою прогу с ключём [из под Delphi]". Так что больше ответов а там пусть сам разбираеться.

Во блин !!!!! не форум а сплошная трепня!
Объясняю:
юзер может писать в строке что то типа -KEY
прога при запуске должна в зависимости от ключа работать по разному.
как консоль в кантре, играли? то он есть то его нет
всем спасибо а особенно:
Silver_ (24.03.03 15:20)
Palladin © (24.03.03 15:20)
Reindeer Moss Eater (24.03.03 15:29)

Чета вы тут закипели прямо... Мне так все стало понятно еще со второго ответа. Не ссорьтесь...:-)

ну дык поможет кто?

Тебе вроде все уже написали, ладно на разбирайся:
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.

хм, это мне анекдот напоминает:
Инженер долго долго объяснял женщине принцип работы телеграфа,
про кабели расположеные на дне океана, про то как электрические сигналы превращяются в символы, но в конце этого подробного объяснения, женшина ответила инженеру:
- Вы так хорошо все объясняете, что мне все понятно, кроме одного: какже телеграммы из воды сухими выходят?

Как запустить мою прогу с ключём Найти похожие ветки