Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

! [D6, Win95/98]


Страницы:   1 2

diks ©   (2003-01-20 20:41:00) 

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

Там
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 помогите!!!!!!!!!!!!!!!!!!!


Marik   (2003-01-22 00:04:00) [1]

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


vuk   (2003-01-21 16:18:00) [2]

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


diks   (2003-01-21 16:16:00) [3]

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


vuk   (2003-01-21 16:02:00) [4]

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


diks   (2003-01-21 16:00:00) [5]

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


Smithson   (2003-01-21 15:47:00) [6]

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


diks   (2003-01-21 15:30:00) [7]

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


gsu   (2003-01-21 11:49:00) [8]

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


Chubais   (2003-01-21 10:21:00) [9]

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


Delirium^.Tremens   (2003-01-21 09:35:00) [10]

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


Anatoly Podgoretsky   (2003-01-21 09:20:00) [11]

gsu © (21.01.03 02:00)
ты чаго эта тама ваабче штраная языка, ее твоя ни понимате


Kair   (2003-01-21 09:09:00) [12]

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


Юрий Зотов   (2003-01-21 08:59:00) [13]

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

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

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


diks   (2003-01-21 03:05:00) [14]

!


diks   (2003-01-21 02:15:00) [15]

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


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

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

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

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

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


gsu   (2003-01-21 01:41:00) [17]

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


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

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

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


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

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

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

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


diks   (2003-01-21 00:58:00) [19]

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 00:52:00) [20]

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

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

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


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо