Форум: "Основная";
Текущий архив: 2002.05.20;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Timon   (2002-05-06 16:54) [0]

Пытаюсь прочитать программой саму себя (т.е. EXEшник). Использую для этого TFileStream, и при открытии файла выдается ошибка. Может кто подскажет какой-нибудь другой способ организации той же задачи?

---

← →
hoaxer   (2002-05-06 16:56) [1]

Видать пытаешся сделать что-то SFX ;-)))))))
используй вместо fmOpenRead fmShareDenyNone

---

← →
Timon   (2002-05-07 11:24) [2]

hoaxer , спасибо большое за совет, а действительно пишу нечто типа SFX. Точнее инсталяционную программу.

---

← →
Timon   (2002-05-07 12:39) [3]

Нет, все равно ничерта не работает. Ну файл открывается, а чтение из него либо выдает ошибку, либо ничего не возвращает.

---

← →
Alx2   (2002-05-07 13:04) [4]

Это работает - только что проверил.
(Ф-я sayIt = messagebox)

procedure TForm1.Button14Click(Sender: TObject);
Var F : THandle;
tmp : ShortString;
readed : cardinal;
begin
F := CreateFile(PChar(ParamStr(0)),GENERIC_READ,FILE_SHARE_READ,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
SayIt(SysErrorMessage(GetLastError));
if F=invalid_handle_value then
exit;
tmp[0]:=#255;
if not ReadFile(F,tmp[1],255,readed,Nil) then
SayIt(SysErrorMessage(GetLastError));
CloseHandle(F);
end;


---

← →
Song   (2002-05-07 13:16) [5]

Или читайте в TMemoryStream

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.05.20;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.007 c