Показ полного пути к файлу!

← →
St74 (2005-12-27 09:09) [0]

Привет Всем! С Новым Годом Вас!

Почему при OnShow формы в таком коде, вылазиет не полный путь к файлу а
C:/DOCUME~1/...
...
var
Str: string;
i: Integer;
begin
if (ParamCount > 0) then
begin
Str := ParamStr(1);
for i := 2 to ParamCount do
begin
Str := Str + " " + ParamStr(i);
end;
RxRichEdit2.Lines.LoadFromFile(Str);
EnDeCrupt.Caption := "На данный момент открыт фаил - " + Str;
end;
...

Заранее Благодарю! St74!

← →
begin...end © (2005-12-27 09:17) [1]

GetLongPathName

← →
Desdechado © (2005-12-27 11:04) [2]

Application.ExeName

← →
begin...end © (2005-12-27 11:24) [3]

> Desdechado © (27.12.05 11:04) [2]

А это здесь причём?

← →
Reindeer Moss Eater © (2005-12-27 11:33) [4]

Почему при OnShow формы в таком коде, вылазиет не полный путь к файлу а
C:/DOCUME~1/...

Потому что exe модуль запускается с помощью ярлыка.
А в свойствах этого ярлыка рабочий каталог программы указан как короткий путь.

← →
St74 (2005-12-27 15:01) [5]

Но мне и надо чтоб при клике по файлу созданному моей программой
запустить последнюю на выполнение и загрузить в RxRichEdit фаил!

St74! ;)

← →
Германн © (2005-12-27 16:42) [6]

Поставь в HCR/MyFile/Shell/Open/Command - MyProgramma "%1"

← →
St74 (2005-12-27 19:37) [7]

Германн © (27.12.05 16:42) [6]

А у меня типо что стоит...
...
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.OpenKey(".asw", True);
Reg.WriteString("", "MyFile");
Reg.CloseKey;
Reg.CreateKey("asw" + "MyFile");
Reg.OpenKey("MyFile\DefaultIcon", True);
Reg.WriteString("", Application.ExeName + ",0");
Reg.CloseKey;
Reg.OpenKey("MyFile\shell\open\command", True);
Reg.WriteString("", Application.ExeName + " "%1"");
Reg.CloseKey;
Reg.Free;
...

St74! 8)

← →
St74 (2005-12-27 20:59) [8]

ИМХО! Что ещё мона сделать!

← →
аматор © (2005-12-27 22:09) [9]

Привет..

if ParamStr(1)<> "" then begin
RxRichEdit2.Lines.LoadFromFile(ParamStr(1));
end;

← →
St74 (2005-12-28 19:11) [10]

аматор © (27.12.05 22:09) [9]

Та же хэя, путь не полный :(

Reindeer Moss Eater © (27.12.05 11:33) [4]

Так что же енто короче ДЫК!!! Али Кердык! 87)

Что Парни у кого ещё что есть, по данной Мессаге! ;)

← →
St74 (2005-12-28 19:12) [11]

← →
begin...end © (2005-12-28 19:43) [12]

Во народ пошёл, а... :-(

В первом же посте -- функция, превращающая путь из "короткого" в "длинный".

Казалось бы -- возьми да пользуйся! Если непонятно что-то -- возьми да спроси!

Ан нет... Лучше упорно флудить... а вдруг чего полегче будет? а вдруг готовый код дадут?

Во народ пошёл, а... :-(

← →
St74 (2005-12-28 20:00) [13]

Ну что тут Шуметь, да не понял ху есть ху!
Что за функция такая GetLongPathName и где об ней посмотреть мона?

А то сразу что за народ, ... да молод ещё народ в Программировании вот и
флудит не по детски!

St74! ;)

> St74 (28.12.05 20:00) [13]

> Что за функция такая GetLongPathName и где об ней посмотреть мона?

Посмотреть "об ней мона" в MSDN: http://msdn.com

Но нервы нужно беречь (и Вам, и мне). Поэтому сразу дам готовый код:

function GetLongPathName(lpszShortPath: PChar; lpszLongPath: PChar; cchBuffer: DWORD): DWORD; stdcall; external "kernel32.dll" name "GetLongPathNameA"; var LP: array [0..MAX_PATH] of Char; R: Cardinal; begin R := GetLongPathName(PChar(ParamStr(1)), LP, sizeof(LP)); if (R <> 0) and (R < sizeof(LP)) then ShowMessage(LP) end.

>St74

А еще желательно матюгальник свой не использовать для писанины.

← →
St74 (2005-12-28 22:11) [16]

← →
St74 (2005-12-28 22:17) [17]

> Та же хэя

Это "Та же хэромантия а не херомантия" :)))

← →
St74 (2005-12-29 00:39) [18]

> begin...end © (28.12.05 21:23) [14]

СпасиБО ОГромное! Прочитал, посмотрел на ваш код, и вот ШО у менЭ получилось
...
var
GetLongPathName: function(lpszShortPath: PChar; lpszLongPath: PChar;
cchBuffer: DWORD): DWORD; stdcall;
h: THandle;
i: Integer;
begin
Result := ShortName;
if Result = "" then
Exit;
h := GetModuleHandle(kernel32);
if h = 0 then
Exit;
@GetLongPathName := GetProcAddress(h, "GetLongPathNameA");
if not Assigned(GetLongPathName) then
Exit;
SetLength(Result, MAX_PATH);
i := GetLongPathName(PChar(ShortName), PChar(Result), Length(Result));
if i = 0 then
Exit;
SetLength(Result, i);
end;
...

Показ полного пути к файлу! Найти похожие ветки