Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.26;
Скачать: CL | DM;

Вниз

Вызов диалога открытия файла   Найти похожие ветки 

 
ISergey ©   (2003-03-28 17:14) [0]

Господа, пишу прилажение на WinAPI, понадобилось вызвать диалог
открытия файла (GetOpenFileName). Подскажите, где можно взять материальчик на данную тему (исходник на Дельфе слишком навороченный, к тому же без комментариев).


 
Morfein ©   (2003-03-28 21:26) [1]

1. Win32 Programmer"s Reference, поставляемый с Delphi.
2. MSDN


 
BuildeRR ©   (2003-03-29 13:55) [2]

Этот вопрос меня тоже очень волнует!
Мастера, напишите пожалуйста пример простенькой программки с использованием диалога открытия файла!


 
Morfein ©   (2003-03-29 21:23) [3]


procedure TForm1.FormCreate(Sender: TObject);
var
ofn : OPENFILENAME;
begin
ZeroMemory(@ofn, sizeof(OPENFILENAME));
with ofn do
begin
lStructSize:=sizeof(OPENFILENAME);
lpstrInitialDir:="c:\windows";
lpstrTitle:="Choose Any File";
nMaxFile:=255;
lpstrFile:=VirtualAlloc(0, 255, MEM_COMMIT, PAGE_READWRITE);
lpstrFilter:="Win32 Executables"+#0+"*.exe"+#0+"All file types"#0+"*.*"+#0#0;
Flags:=OFN_FILEMUSTEXIST + OFN_HIDEREADONLY + OFN_PATHMUSTEXIST;
end;

if GetOpenFileName(ofn) then
MessageBox(0, ofn.lpstrFile, nil, MB_OK);
VirtualFree(ofn.lpstrFile, 0, MEM_RELEASE);
end;


что не понятно, пишите на мыло...


 
Morfein ©   (2003-03-30 20:28) [4]

забыл... тут нужно ещё кой-чего...

uses commdlg;



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

Текущий архив: 2003.05.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
14-83750
Kirill_S
2003-05-07 14:00
2003.05.26
отсылка на email


3-83419
AlexVitko
2003-05-06 18:25
2003.05.26
ПОИСК В БООЛЬШОЙ БД


3-83376
Belkova
2003-05-05 21:23
2003.05.26
Выделение в DBGrid


1-83598
MetalFan
2003-05-13 12:31
2003.05.26
Помогите найти ошибку плз!!!


3-83332
prof
2003-05-05 12:46
2003.05.26
ЗАПРОС SQL с ПЕРЕМЕННОЙ