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]

Вы о чём?

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

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

Есть такая функция 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]

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