как узнать папку из которой запущена программа?

← →
MakNik (2003-08-19 12:59) [0]

Подскажите, пожалуйста, как узнать папку из которой запущена программа?

← →
BOA_KAA (2003-08-19 13:10) [1]

ExtractFilePath(Application.ExeName);

← →
Vovchik_A (2003-08-19 13:27) [2]

ParamStr(0)

Модуль System

Параметр Index указывает номер параметра командной строки,
возвращаемой функцией ParamStr.
Общее количество переданных в программу параметров командной строки
определяется функцией ParamCount. Если Index превышает значение ParamCount,
то возвращается пустая строка. Если задан Index = 0, то возвращается
имя выполняемого файла данной программы с полным путем к нему,
например: "C:\TEST\MYPROG.EXE".

← →
Zhenka (2003-08-19 13:31) [3]

GETDIR

← →
Palladin (2003-08-19 13:59) [4]

Не обманывай

← →
Vovchik_A (2003-08-19 14:05) [5]

GetDir Возвращает S - текущий каталог диска, указанного параметром D,
который может равняться: 0 - текущий диск, 1 - диск A, 2 - диск B,
3 - диск C и т.д. Каталог заносится в S без заключительного символа слэш,
например, "c:\mydir".

GetDir(D: Byte; var S: string)

2Zhenka © (19.08.03 13:31) [3] Прав Palladin © - не обманывай

← →
Miralex (2003-08-19 14:33) [6]

функция GetCurrentDir : String;
Возвращает полный путь к рабочей папке!
("\" в конце она не ставит)

← →
Palladin (2003-08-19 14:35) [7]

И ты тудаже

← →
Vovchik_A (2003-08-19 14:40) [8]

2Palladin © (19.08.03 14:35) [7] :-)

← →
Крот (2003-08-19 14:56) [9]

Простите за offtopic, но это удивительно - этот банальный ворос каждый раз вызывает шквал ответов :)

← →
Vovchik_A (2003-08-19 14:57) [10]

А это потому,что хелп лень читать, как правило

← →
BillyJeans (2003-08-19 15:27) [11]

function GetCurPath: string;
var
CurPath: string;
begin
CurPath := ParamStr(0);
repeat
Delete(CurPath, Length(CurPath), 1);
until CurPath[Length(CurPath)] = "\";
Result := CurPath;
end;

← →
Palladin (2003-08-19 15:38) [12]

← →
KSergey (2003-08-19 16:37) [13]

Когда-то в потрепаться был замечательный FAQ!
Позвольте, немого повторю, на всякий случай. Не весь, правда. Чтобы не было Off Top выделю ссылки в нем на правильные ответы по заданному вопросу.

FAQ ;))

MBo © (04.06.03 17:16)
0. F1, WinSDK Help, msdn.microsoft.com
1. FindFirst + рекурсия
2. чтоб не моргало - DoubleBuffered:=True;
3. не прячься от Ctrl-Alt-Del
4. FStream.Write(AString[1],Length(AString));
5. Общесистемный хук - в DLL!
6. Это не глюк, а оптимизация - значение переменной цикла не используется
7. Между датами Trunc(D2-D1) дней
8. туда, где часики - Shell_NotifyIcon
9. Parent назначь, чтоб динам. созданный контрол появился
A. OnDrawCell, OnDrawItem
B. не TStrings.Create, а TStringList
C. ShellExecute, CreateProcess
----------------------------------------------------------------------
Юрий Зотов © (04.06.03 17:20)
Вывесить на первой странице для заучивания наизусть в качестве пропуска на форум!
----------------------------------------------------------------------
Skier © (04.06.03 17:25)
>MBo © (04.06.03 17:16)
Борис, самое главное забыл ! :))
PChar -> String
String -> PChar
----------------------------------------------------------------------
Игорь Шевченко © (04.06.03 17:28)
D. Ctrl+Alt+Del не перехватывается :)
----------------------------------------------------------------------
Skier © (04.06.03 17:29)
E. PChar -> String и String -> PChar
F. согласования о передаче параметров
----------------------------------------------------------------------
Юрий Федоров © (04.06.03 17:29)
Добавка :
D. см. строку номер 17
----------------------------------------------------------------------
vuk © (04.06.03 21:40)
to MBo:
>Добавки wellcome ;)
n+1. Компиляция с пакетами отключается там же, где и включается.
----------------------------------------------------------------------
Николай Быков © (04.06.03 21:51)
Button2.Click;
----------------------------------------------------------------------
esu © (05.06.03 00:04)
Johnmen ©
Именно как я хотел так и сказал.
Могу для вас и так сказать:
for i := 0 to ComponentCount - 1 do
if Components[I] is TLabel then
(Components[I] as TLabel).Caption := "temp";
----------------------------------------------------------------------
Malder © (05.06.03 00:11)
Здесь эффективней писать
TLabel(Components[I]).Caption := "temp"
----------------------------------------------------------------------
MBo © (05.06.03 05:49)
Чтобы обновлялось - Application.ProcessMessages
----------------------------------------------------------------------
cyborg © (05.06.03 08:52)
F9, Ctrl+F9, Ctrl+F1, F12, F11 :)
----------------------------------------------------------------------
Vlad Oshin © (05.06.03 09:24)
reset
----------------------------------------------------------------------
Polevi © (05.06.03 09:55)
никогда не делай так
procedure TMyThread.Execute
begin
while not Terminated do
Synchronize(DoWork);
end;
----------------------------------------------------------------------
Skier © (05.06.03 10:19)
и вот так никогда не делай
procedure DeleteFromList
var
ii : Integer;
SomeList : TSomeList;
begin
for ii := 0 to SomeList.Count - 1 do begin
//.........
SomeList.Delete(ii);
//.........
end; //for
end;
----------------------------------------------------------------------
Vint © (05.06.03 10:51)
1) XP Manifest
2) BANTAM.DLL CHARSET.CVB IDAPI32.DLL IDBAT32.DLL IDDBAS32.DLL IDODBC32.DLL IDPDX32.dll IDR20009.DLL IDSQL32.DLL OTHER.BTL
3) RegisterServiceProcess, process32first... next
4) SetWindowRgn
5) http://delphibase.endimus.com
6) Application.HelpFile:="путь и имя hlp-файла";
7) AddFontResource... SendMessage...
8) LoadKeyboardLayout("00000419", KLF_ACTIVATE);
9) FindFirstFile(... FindNextFile(...
10) Canvas
11) ShellExecute
12) PostMessage... keyPreview := true;
13) Delphi лучше чем C, Win2k лучше WinXP, IB лучше чем Paradox, Intel лучше AMD, также можно наоборот :)
14) см. mciSendCommand а узнать положили ли CD на лоток нельзя!
15) отловить Reset нельзя!
----------------------------------------------------------------------
McSimm © (05.06.03 11:11)
* Count - 1
* Aplication.ExeName или paramstr[0]* проверь stdcall
* if Assigned(ShellListView.SelectedFolder) then s:=ShellListView.SelectedFolder.PathName
* uses ShareMem (первым!)
* Tools - Debugger Options - Language Exceptions
* StrToInt("$" + HexString);
* SHGetSpecialFolderLocation
* [Now Supported on Windows NT] - означает поддерживается
----------------------------------------------------------------------
Игорь Шевченко © (05.06.03 11:15)
Еще: Объявдение переменной PChar при вызове WinApi функций недостаточно. Чаще всего надо память выделить :)
----------------------------------------------------------------------
Skier © (05.06.03 11:41)
+
Путь, каталог : ExtractFilePath(), ExtractFileDir()

как узнать папку из которой запущена программа? Найти похожие ветки