Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: WinAPI
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
virtuhay266
12 / 11 / 7
Регистрация: 28.05.2009
Сообщений: 56
1

Открытие файла функциями WinApi

27.11.2010, 20:20. Просмотров 1208. Ответов 2
Метки нет (Все метки)

Всем привет! В чем ошибка, ни одна функция не хочет открывать файл.
Delphi
1
2
3
if opendialog1.Execute then
          handlefile2:=_lopen(pansichar(opendialog1.FileName),of_Read);
  //        handlefile2:=OpenFile(pansichar(opendialog1.FileName),reopenbuffer,of_Read);
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.11.2010, 20:20
Ответы с готовыми решениями:

Создать файл функциями winapi
Нужно создать файл с помощью функций winapi . И сделать запись в стрингрид и...

Открытие директории файла
Мне тут было нечего делать, и я решил написать на Delphi диспетчер задач, ну...

Открытие файла *.dbf
Помогите начинающему... Есть простенькая прога для просмотра/редактирования...

Сделать ссылку на открытие файла. doc
Как сделать ссылку на открытие файла .doc??? Добавлено через 35 минут CLOSED

Как отловить открытие папки/файла в Проводнике?
Как отловить открытие папки/файла в Проводнике? Уже обчитался про NativeAPI и...

2
Zombi_sib
365 / 319 / 88
Регистрация: 26.05.2010
Сообщений: 744
Завершенные тесты: 1
27.11.2010, 20:54 2
У меня работает нормально! Вот мой код!

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var F: HFile;
begin
  if OpenDialog1.Execute then
     begin
      F := _lopen(Pansichar(OpenDialog1.FileName), of_Read);
      if F > -1 then caption := 'ok' else caption := 'no';
      _lClose(F);
     end;
end;
 
end.
1
virtuhay266
12 / 11 / 7
Регистрация: 28.05.2009
Сообщений: 56
27.11.2010, 21:10  [ТС] 3
HFile беззнаковый по этому условие выполняется.
А у меня сработал вот такой бред
Delphi
1
          handlefile2:=OpenFile(@(ansistring(opendialog1.FileName)[1]),reopenbuffer,of_Read);
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.11.2010, 21:10

Открытие файла, для просмотра его содержания
Мне нужно сделать так, чтобы в программе была кнопка, которая откывает...

Открытие файла MS Word в Delphi 7 - показывает иероглифы.
Здравствуйте уважаемые програмисты!!! У меня к вам один вопросик. При открытии...

Поиск файла по дате создания + открытие его блокнотом
Подскажите что делаю неправильно. Есть программа, в которой клавишей F5 я...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru