Чтение файла

← →
Sh © (2005-01-31 16:57) [0]

Здравствуйте. Помогите пожалуйста решить одну небольшую проблемку.
Нужно чтобы программа открыла сама себя, затем, начиная с нуля, читает байт, ставит курсор мыши с коорднитами X=этому байту и Y=тоже этому байту, и так до конца файла.
Вот код:

program Project2;
uses
Windows, ShellAPI;
{$R *.res}
const fSize = 15100;//Здесь настоящий размер файла
var
ThisFile: tHandle;
FInfo: integer;
bw: cardinal;
buf: cardinal;
i: integer;
begin
ThisFile:=CreateFile(PChar(ParamStr(0)),GENERIC_READ, 0,nil,OPEN_EXISTING,0,0);
for i:=1 to fsize do
begin
ReadFile(ThisFile,buf,sizeof(buf),bw,nil);
setcursorpos(buf,buf);
sleep(10);
end;
CloseHandle(ThisFile);
end.

Но ничего не происходит.

← →
Fay © (2005-01-31 17:39) [1]

А Cardinal у нас теперь 1 байт весит? Занятно...

← →
Sh © (2005-01-31 17:53) [2]

> А Cardinal у нас теперь 1 байт весит? Занятно...

Объясни пожалуйста, что в коде не так.

← →
Anatoly Podgoretsky © (2005-01-31 17:59) [3]

Легче объяснить что так и также не понятно суть, зачем это делать. Вот с этого и начни.

← →
Sh © (2005-01-31 18:02) [4]

Ну не вирус же. А какая разница что за программа? Если можешь и хочешь помоги, если нет, то и ненадо.

← →
xShadow © (2005-01-31 18:03) [5]

Смысл сабжа видется туманным, а суть запутанной!

← →
Sh © (2005-01-31 18:13) [6]

> Смысл сабжа видется туманным, а суть запутанной!

Я задал вопрос: Если можешь и хочешь помоги, если нет, то и ненадо. Зачем всякую туфту писать,как ты? Хочешь умным показаться?

← →
Fay © (2005-01-31 20:58) [7]

>> Зачем всякую туфту писать,как ты?
Это только тебе можно писать туфту? Все хотят! 8)

program Project1; uses Windows; var sz, p, n, h : DWORD; b : Byte; begin h := CreateFile(PChar(ParamStr(0)), GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0); sz := GetFileSize(h, nil); p := 0; while p < sz do begin ReadFile(h, b, 1, n, nil); SetCursorPos(b, b); Sleep(10); Inc(p); end; CloseHandle(h); end.

← →
Anatoly Podgoretsky © (2005-01-31 21:13) [8]

Не будем даже обращать внимание на то, что это консольная программа, посмотрим на другое. Byte имеет значение от 0 до 255, что никак не совпадает с размерностью экрана и тут же видим как курсор пляшет со скоростью 10о раз в секунду.
И ты это называешь не вирус?
Чистое западлостроение. Юедный пользователь будет в панике вырубать компьютер кнопкой питания.

← →
Sh © (2005-01-31 22:04) [9]

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

← →
Sh © (2005-01-31 22:12) [10]

> Это только тебе можно писать туфту? Все хотят! 8)

Извини, а разве я туфту написал? Я написал участок кода и попросил помочь. Огромное тебе спасибо за код.

← →
Sh © (2005-01-31 22:13) [11]

> консольная программа

Я не спорю, но я всегда думал, что консольной называется программа, где есть AppType console...

> Ксли не писал, то считай что уже написал. Тебе просто не
> повещло что она не работает.

Не повезло... Вирус, по краткому определению, это "программа, которая что-то делает и не спрашивает на то разрешение пользователя". Т.е. если я удалю какие-нибудь файлы просто так, не спрашиваю пользователя, то уже напишу вирус. Получается вирус написать очень просто. Так что не надо ничего "считать". Я не задавался целью написать вирус. Вы прото на вирусах, по моему, помешаны...

Несовсем. Если Вы запустили программу и она очистила полдиска от файлов без Вашего на то соглашение, то разве это не вирус?
Плодиться-это свойство вируса, хотя и необязательное. Хотя..., все вирусы обычно плодятся...

> Вирус, по краткому определению, это "программа, которая
> что-то делает и не спрашивает на то разрешение пользователя".

в соответствии с этим "определением" добрая половина из состава NT-служб, автоматически стартуемых при старте системы, является вирусами

Чтение файла Найти похожие ветки