!

← →
diks (2003-01-20 20:41) [0]

Делаю так:
Файл - создать - приложение
Проект - удалить из проекта - удаляю форму
Проект - исходный текст

Там
program Project1;
begin
end.

Далее пишу (между бегином и ендом)
var lst: TStrings;
begin
lst := TStringList.Create;
lst.LoadFromFile ("C:\Hook.log");
if lst[0] <> "Текст" then
begin
lst[0] := "Текст";
lst.SaveToFile ("C:\Windows\Hook.log");
end;
lst.Free;
end;

Не работает выдает ошибку
Statement expected but "var" found
Help помогите!!!!!!!!!!!!!!!!!!!

← →
gsu (2003-01-20 20:47) [1]

это ты где пишешь в dpr ?

← →
gsu (2003-01-20 20:48) [2]

end.

← →
Моджахед (2003-01-20 21:34) [3]

2 gsu ©
Браво :)

← →
gsu (2003-01-20 21:35) [4]

спасибо, ничего особенного (-:|~

← →
Юрий Зотов (2003-01-20 21:36) [5]

Потрясающе. Не знаем даже азов Паскаля, книги читать не хотим, английский учить не желаем, перевести сообщение со словарем нам тоже лень, но за хуки смело беремся. Чтобы потом закричать: "Help, помогите!!!!!!!!!!!!!!!!!!!".

Как хорошо, что самолеты строят не программисты.

Кстати, не сомневаюсь, что файл Hook.log - это лог клавиатурного шпиона в новейшем супер-пупер-трояне.

← →
Моджахед (2003-01-20 21:45) [6]

2 Кстати, не сомневаюсь, что файл Hook.log - это лог клавиатурного шпиона в новейшем супер-пупер-трояне.

Ну дык это вроде давно на форумах тут всякие вертятся ;)
Учатся.

← →
Моджахед (2003-01-20 21:47) [7]

Я так понимаю, --> "Потрепаться"

?

← →
Юрий Зотов (2003-01-20 21:53) [8]

> Моджахед (20.01.03 21:45)
> Учатся.

Лучше бы ПРОГРАММИРОВАТЬ учились, а не фигней, извините, страдать. Правда, это посложнее будет, чем трояны ваять.

← →
Моджахед (2003-01-20 22:21) [9]

2 Юрий Зотов

А ведь хочется всё сразу: и над хаkep.ru помечтать и остальное.

Возрастное, наверное.

Загнал я ветку в потрепаться, как пить дать, загнал.
Или себя выкинул из ветки. Там виднее.

2 diks
Дай-то Бог, что бы я был не прав.

← →
diks (2003-01-20 22:35) [10]

Извращенцы!
А подсказать так и не могут!

*gsu* end там нормальный ему "var lst: TStrings;" не нравится!

← →
vuk (2003-01-20 22:38) [11]

Блин! Книжки в зубы и марш язык учить!

← →
Моджахед (2003-01-20 22:47) [12]

А ты код подай, троянописец. Может и помогут тебе. А то уж больно примитивную ошибку выдает компилятор.

А знаешь, что случится, когда ты код приведешь? Выругаются все, плюнут на него (код), и скажут, ласково: "А нечего тут трояны выдумывать, почитай книжку". И я скажу тебе, ласково: "Почитай книжку".

← →
vuk (2003-01-20 22:50) [13]

to Моджахед:
>А то уж больно примитивную ошибку выдает компилятор.
В вопросе ключевые слова вот эти:
>Далее пишу (между бегином и ендом)

Из чего следует, что человек языка не знает совсем, так что книжки читать - единственный правильный выход. А что-то писать - это уже потом.

← →
Юрий Зотов (2003-01-20 22:55) [14]

> diks © (20.01.03 22:35)

ОК, подсказываю. Структура Паскаль-программы имеет следующий вид:

[program Name;]
[раздел описаний]
begin
[исполняемый раздел]
end.

Запомните это НАВСЕГДА. В этом и причина ошибки. Кстати, она у Вас не единственная. Следующая будет такая - компилятор не распознает TStrings и TStringList.

Все остальное - см. vuk © (20.01.03 22:38)

← →
gsu (2003-01-21 00:21) [15]

uses Classes;

...
var
lst: TStringList;

← →
diks (2003-01-21 00:45) [16]

И gsu можно последний вопрос! Команда winexec что сделать чтобы и она её нравилась!?

← →
Юрий Зотов (2003-01-21 00:52) [17]

> Команда winexec что сделать чтобы и она её нравилась!?

Попробую ответить за gsu: выучить русская языка.

Чтобы вопрос можно было хотя бы понять. А то очень трудно отвечать на вопросы, которые даже понять нельзя.

← →
diks (2003-01-21 00:58) [18]

gsu бы понял!
Почитай что повыше тоже поймешь!
А вообще при написании вот этого

uses
Classes;

{$R *.res}
var
lst: TStringList;
begin
lst := TStringList.Create;
lst.LoadFromFile ("C:\Windows\Hook.log");
if lst[0] <> "Text" then
begin
lst[0] := "Text";
lst.SaveToFile ("C:\Windows\Hook.log");
winexec ("c:\windows\system\hook.exe", SW_SHOW);
end;
lst.Free;
end.

winexec её и не нравится вот я и спрашиваю ЧТО Сделать!

← →
Юрий Зотов (2003-01-21 01:19) [19]

> Почитай что повыше тоже поймешь!

Да ну? А где почитать-то? Я читал-читал, ну нигде там WinExec нетути. Так и не понял.

> winexec её и не нравится вот я и спрашиваю ЧТО Сделать!

Как это что сделать? Тебе же сказали. Во-первых, учить русская языка. Чтобы знать мужской, женский и даже средний род. А также склонение местоимений. Во-вторых, учить Паскаль. Иначе каждое слово будешь спрашивать.

Ты уже написал uses Classes? Молодец. Теперь поставь запятую и добавь: Windows.

Всего одно слово. Вот поэтому я и говорю - КАЖДОЕ слово будешь спрашивать. Покак не поймешь то, о чем тут тебе говорили и не возьмешься за книжку. И за ум заодно.

← →
gsu (2003-01-21 01:41) [20]

Ну что вы как дети

← →
gsu (2003-01-21 02:00) [21]

>> diks ©
Слушай старших, бывает, ..., бывает, что они говорят дело, однако иногда уже бывает поздно, чтобы это понять.

И используй справку, достаточно нажать F1 на слове winexec и откроется раздел, посвященный этой функции. А там написано, что она находится в модуле winbase.h, т.е. надо дописать uses Windows и еще, что лучше использовать функцию CreateProcess.

>> Юрий Зотов ©
Не надо так строго

Усе, у мя дела и сон мне только снится. Всем удачи.

← →
diks (2003-01-21 02:15) [22]

Спасибо gsu!
Есть консольное приложение.
Как поставить иконку?

← →
diks (2003-01-21 03:05) [23]

← →
Юрий Зотов (2003-01-21 08:59) [24]

> gsu © (21.01.03 02:00)
> Не надо так строго

И через 15 минут после этого идет новый вопрос. В стиле предыдущих.

Будем плодить лентяев?

← →
Kair (2003-01-21 09:09) [25]

>Юрий Зотов ©
Я люблю книжки читать.

← →
Anatoly Podgoretsky (2003-01-21 09:20) [26]

← →
Delirium^.Tremens (2003-01-21 09:35) [27]

ALL>>
Вы не устали столько раз ловить "!" мышью в теме?
:-)

← →
Chubais (2003-01-21 10:21) [28]

АААААААААААААААААААААААА!!!!!!!!!!!!!!!!!!!

← →
gsu (2003-01-21 11:49) [29]

>> Будем плодить лентяев?
Не ту ж, я от своей то лени избавиться не могу.

← →
diks (2003-01-21 15:30) [30]

И все же подскажите как поставить иконку на консольное приложение!

← →
Smithson (2003-01-21 15:47) [31]

Да никак! Только через pif-файл. Спросишь что это такое - тебя тут вообще убьют.

← →
diks (2003-01-21 16:00) [32]

Smithson зачем так? Тогда ответь как сделать приложение без формы с иконкой? Я знаю это фозможно!

← →
vuk (2003-01-21 16:02) [33]

to Smithson:
>Да никак!
О! И Вам тоже книжки читать! :o) Про ресурсы слышали?

← →
diks (2003-01-21 16:16) [34]

>vuk
Ты имеешь ввиду всякие там restorator"ы?

← →
vuk (2003-01-21 16:18) [35]

За книги, юноша, за книги! :o)

← →
Marik (2003-01-22 00:04) [36]

Люди! А что тако як Delphy ??? Что-то читаю форум и никак не поймуууу... :о))))

! Найти похожие ветки