CopyData

[s1s1s1]

почему добавляется абракадабра
E:\SOUND\12STON~1\12STON~1\12STON~2 .MP3
dpr

var
wnd: HWND;
  copyDataStruct: TCopyDataStruct;
  ParamString: string;
  WParam, LParam: integer;
  i: Integer;
 begin
 wnd:= FindWindow('Tfm',nil);
 Application.Initialize;
  Application.CreateForm(Tfm, fm);Application.Run;
ParamString := '';
    for i := 1 to ParamCount do begin
      if i > 0 then
      ParamString := ParamString + ' ' + ParamStr(i)
      else
      ParamString:= ParamStr(i);
CopyDataStruct.lpData := PChar(ParamString);
CopyDataStruct.cbData := Length(ParamString);
    CopyDataStruct.dwData := 0;
    WParam := Application.Handle;
    LParam := Integer(@CopyDataStruct);
    SendMessage(wnd, WM_CopyData, WParam, LParam);
    Application.Terminate;
  end;

unit

 procedure Tfm.CopyData(var Msg: TWMCopyData);
  var
  ParamStr: string;
  CopyDataStructure: TCopyDataStruct;
  sText: array[0..255] of Char;
begin
StrLCopy(sText, Msg.CopyDataStruct.lpData, Msg.CopyDataStruct.cbData);
listbox1.Items.Add(sText);

[p51x]

почему добавляется абракадабра
E:\SOUND\12STON~1\12STON~1\12STON~2 .MP3

Где вы увидели абракадабру? Это обычные короткие пути.

[s1s1s1]

подскажите пожалуйста как получать полные пути к файлам

[Serge_Bliznykov]

по поиску за 5 секунд найдено..

вот, например, из DelphiWorld пример

{==============================================} 
Function LongFileName(ShortName: String): String; 
{==============================================} 
Var 
  SR: TSearchRec; 

Begin 
  Result := ''; 
  If (pos ('\\', ShortName) + pos ('*', ShortName) + 
      pos ('?', ShortName) <> 0) Or Not FileExists(ShortName) Then 
  Begin 
    { ignore NetBIOS name, joker chars and invalid file names } 
    Exit; 
  End; 
  While FindFirst(ShortName, faAnyFile, SR) = 0 Do 
  Begin 
    { next part as prefix } 
    Result := '\' + SR.Name + Result; 
    SysUtils.FindClose(SR);  { the SysUtils, not the WinProcs procedure! } 
    { directory up (cut before '\') } 
    ShortName := ExtractFileDir (ShortName); 
    If length (ShortName) <= 2 Then 
    Begin 
      Break;  { ShortName contains drive letter followed by ':' } 
    End; 
  End; 
  Result := ExtractFileDrive (ShortName) + Result; 
end;

или вот примерно то же самое ТУТ, из FIDO конференции RU.DELPHI.CHAINIK...

[s1s1s1]

как пользоваться функцией?

[Serge_Bliznykov]

????

var
    sShortName, 
    SFullFileName : string;
  ....
begin
  ....
  // получение короткого имени
  sShortName := 'E:\SOUND\12STON~1\12STON~1\12STON~2 .MP3';
  ....
   // преобразование короткого имени файла в полное (длинное)
  SFullFileName := LongFileName(sShortName);
...

[p51x]

Изобретаем очередной велосипед или просто опять забиваем на документацию?

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

[Serge_Bliznykov]

Изобретаем очередной велосипед или просто опять забиваем на документацию?

1) ну, не без того...
а почему бы не изобрести велосипед, если надо "ехать", а на чём - не знаешь..

2) вариант с FindFirst будет работать корректно под любой Windows (в том числе и Windows 95/98). Не думаю, что сейчас это актуально, но предложенный выше выриант явно из тех времён, когда это было актуально и важно (предложенный Вами вариант через GetLongPathName требует Widows версии не ниже XP)

3) "Вам хочется песен? их есть у меня!"
вот вариант через использования функции KERNEL32 (ветка с работой на других версиях Windows безжалостно вырвана с корнем...)

  function ToLongPath(AFileName: PChar): String;
  var
    Handle : Integer;
    iSize  : Integer;
    GetLongPathName: function (ShortPathName: PChar; LongPathName: PChar;
      cchBuffer: Integer): Integer stdcall;
  begin
    Result := AFileName;
    Handle := GetModuleHandle('KERNEL32');
    if Handle <> 0 then
    begin
      @GetLongPathName := GetProcAddress(Handle, 'GetLongPathNameA');
      if Assigned(GetLongPathName) then begin
            SetLength(Result, MAX_PATH+1);
            iSize := GetLongPathName(AFileName, PChar(Result), MAX_PATH+1);
            if (iSize > 0) then
               SetLength(Result, iSize)
            else
               Result := '#error: not file found#'
            end;
      end
      else Result := '#Error: API function not loaded#';
    end;

procedure TForm1.Button1Click(Sender: TObject);
var pshort : pchar;
begin
//  pshort := PChar(Edit1.Text);
  pshort := 'C:\PROGRA~1\MI1933~1\OFFICE12\DOCUME~1\1049\buildi~1.dot';
  Edit2.Text :=  ToLongPath( pshort );
end;

[s1s1s1]

Function LongFileName(ShortName: String): String;

var
    sShortName,
    SFullFileName : string;
begin  
  sShortName := 'E:\SOUND\12STON~1\12STON~1\12STON~2 .MP3'; 
  SFullFileName := LongFileName(sShortName);
  listbox1.Items.Add(SFullFileName);

добавляется пустая строка

 function ToLongPath(AFileName: PChar): String;

любой файл выдает
#error: not file found#
в чем может быть дело?

[Serge_Bliznykov]

1-е.
пробелов в коротком имени БЫТЬ НЕ МОЖЕТ!!

откуда у Вас после 12STON~2 пробел ?!

'E:\SOUND\12STON~1\12STON~1\12STON~2 .MP3';

2-е.
короткое имя может быть развёрнуто ТОЛЬКО в том случае, если такой файл (с таким коротким именем существует).
Проверить существование очень просто.
наберите в командной строке

dir C:\PROGRA~1\COMMON~1\MICROS~1\OFFICE12\OFFICE~1\osetup.dll

если dir выдаст информацию о файле, значит файл есть и короткое имя верное.
если же выдаст "Файл не найден." - значит имя неверное (файла такого нет).


p.s. может Вам уже проще сделать маленький тестовый проект, выложить его исходинки и получить работающий вариант?!...