Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.58 MB
Время: 0.037 c
14-32018
Николай Быков
2002-09-17 18:23
2002.10.10
Про DiamondSoft


7-32035
Wazowski
2002-07-29 16:49
2002.10.10
Загадочная служба


7-32034
ValeX
2002-08-01 15:27
2002.10.10
write/read COM port в Win2000 :(


7-32033
YDV
2002-08-01 07:03
2002.10.10
Есть прога, которая может зависнуть, как можно узнать повисла ...


3-31608
Artur K
2002-09-18 21:23
2002.10.10
Paradox по сети как работать?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский