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

Вниз

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

 
BIG BROTHER ©   (2002-09-23 20:34) [0]

Не могли бы вы подсказать мне решение к такой проблеме:
Создал кнопку, хотелось бы чтобы при нажатии на нее открылась опеделенная папка(напр.WINDOWS). Что мне прописать на событие кнопки OnClick ????


 
AL2002 ©   (2002-09-23 20:39) [1]

запустить explorer с параметром диск:\имя_папки\..ит.д.


 
BIG BROTHER ©   (2002-09-28 00:33) [2]

Звучит легко но не для меня нельзя ли по подробнее про explrer?? PLZ


 
AL2002 ©   (2002-09-28 00:57) [3]

StrExec:="explorer ";
FolderName:="Edit1.Text";

ShellExecute(0, nil, PChar(StrExec+FolderName) ,nil,nil,1);


 
Chlavik ©   (2002-09-28 00:59) [4]

Меня тоже волнует такой вопросик в принципе я понял что тот юзер посоветовал

используй такой оператор
WinExec(Pchar(GetWindowsDirectory + "\explorer.exe"+" "+path), SW_RESTORE);
Где Path:string;- папка которую нужно открыть

Я сам Учюсь програмить но коечто знаю
Есть еще процедуры напимер

CreateProcess её синтаксис (параметры) глянь в Helpe
Если что тебе покруче и попроще посоветуют мыльни мне Ok ?
Всё давай......




 
AL2002 ©   (2002-09-28 01:03) [5]

>Chlavik © (28.09.02 00:59)
Сами вы...


 
Chlavik ©   (2002-09-28 01:16) [6]

Ну извините просто GetWindowsDirectory я никогда не юзал но знал про неё а в хелпе прочитал чито на возвращает путь к папке Windows.............
Да и вообще её там не надо просто explore и всё!


 
AL2002 ©   (2002-09-28 01:33) [7]

Удалено модератором


 
Chlavik ©   (2002-09-28 01:34) [8]

Короче
WinExec(Pchar(explorer.exe "+ path), SW_maximize);
реально пашет......


 
AL2002 ©   (2002-09-28 01:36) [9]

>GetWindowsDirectory я никогда не юзал но знал про неё а в хелпе
>прочитал чито на возвращает путь к папке Windows
SSize: array[0..1023] of Char;
SetString(Result, SSize, GetWindowsDirectory(Sizeof(SSize)-1,SSize));


 
alena.svt ©   (2002-09-28 08:28) [10]

Вы о чём?


 
Guerrillero ©   (2002-09-28 09:53) [11]

ShellExecute(Handle,"Explore","C:\",nil,nil,SW_NORMAL);


 
Dot ©   (2002-09-28 10:14) [12]

Remarks

Win32-based applications should use the CreateProcess function rather than this function. The WinExec function exists in Win32 to provide compatibility with earlier versions of Windows. For more information about how the WinExec function is implemented, see the Remarks section of the LoadModule function.
In Win32, the WinExec function returns when the started process calls the GetMessage function or a time-out limit is reached. To avoid waiting for the time out delay, call the GetMessage function as soon as possible in any process started by a call to WinExec.

люди не опускайтесь до уровня micro$oft


 
Севостьянов Игорь ©   (2002-09-30 13:10) [13]

Есть такая функция function SelectDirectory(const Caption: string; const Root: WideString;
out Directory: string): Boolean;

возьми и поставь ей Root := FolderName

...

uses FileCtrl;
...

procedure TfrmMain.Button1Click(Sender: TObject);
var
Directory: string;
begin
if SelectDirectory("Caption", "C:\WinNT", Directory) then
ShowMessage(Directory)
end;


 
France   (2002-09-30 13:54) [14]

> AL2002 © (28.09.02 01:33)

Удалено модератором


хе-хе! Правильно, АЛ. Так ему и надо!



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

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

Наверх




Память: 0.49 MB
Время: 0.014 c
3-31588
Vint
2002-09-18 14:37
2002.10.10
Помогите новичку в InterBase


3-31591
BCPP_Builder_Dev
2002-09-18 16:27
2002.10.10
Как обновить вычисляемые поля главной таблицы???


14-32016
Oleg_Gashev
2002-09-14 03:29
2002.10.10
Ну очень просто :)


1-31818
DDDeN
2002-09-27 12:22
2002.10.10
Список файлов в папке


14-31977
VID
2002-09-14 12:18
2002.10.10
Ищу славную статью