Функция SHGetSpecialFolderPath дубль 2

[Sambon_]

Я полный нуб в Pascal и функциях, так что...

У меня есть вот такая вот такой код для BAT'ника:

java -Xms1024m -Xmx1024m -cp "%APPDATA%\.minecraft\bin\*" 
-Djava.library.path="%APPDATA%\.minecraft\bin\natives" net.minecraft.client.Minecraft "Player" 78.46.135.94:25565

Я выразил эту команду на Pascal так:

ShellExecute(Form2.Handle, nil, 'java', 
'-Xms1024m -Xmx1024m -cp .\.minecraft\bin\* -Djava.library.path=.\.minecraft\bin\natives 
net.minecraft.client.Minecraft "Player"',
 PChar(SHGetSpecialFolderLocation(0, CSIDL_APPDATA, pidl)), SW_RESTORE);

Java открывается, а потом сразу же закрывается. Вопрос: что не так и почему не работает?

[astecenko]

Может так

ShellExecute(Form2.Handle, nil, 
'java -Xms1024m -Xmx1024m -cp .\.minecraft\bin\* -Djava.library.path=.\.minecraft\bin\natives net.minecraft.client.Minecraft 
"Player"', nil, 
PChar(SHGetSpecialFolderLocation(0, CSIDL_APPDATA, pidl)), SW_RESTORE);

Какая у Вас ОС? Про получение стандартных путей в различных версиях Windows GunSmoker писал у себя в блоге

[Sambon_]

Windows 7. Код который дали не заработал

[astecenko]

Посмотрите статью от GunSmoker-а, и возьмите оттуда ф-цию получения путей к специальным папкам GetSpecialFolderLocation (ссылку я дал выше). Ф-ция SHGetSpecialFolderLocation в Win7 работать не будет, соответственно в качестве рабочего каталога у Вас что-то некорректное, как в этом случае ведет себя Ваша java-программа мне не ведомо, но может быть по-этому и не работает.

[Человек_Борща]

SHGetSpecialFolderLocation

она и не нужна. ENVIROMENT VARIABLES для этого придуманы.

function ExpandEnvironmentVar(AStr: string): string;
var
  Buff: array[0..MAX_PATH] of Char;
  rSize: DWORD;
begin
  rSize := ExpandEnvironmentStrings(PChar(aStr), Buff, SizeOf(Buff));
  Result := Copy(Buff, 1, rSize);
end;

пример:

var sAppDataPath:string;
begin
 sAppDataPath:= ExpandEnvironmentVar('%APPDATA%');
 
end;

[GunSmoker]

А куда 78.46.135.94:25565 пропало?

[GunSmoker]

"PChar(SHGetSpecialFolderLocati on" - о, да это ж вообще ультра-код :D (подсказка: SHGetSpecialFolderLocation возвращает HRESULT)

Надо вот так:

uses
  ShlObj;

function GetSpecialFolderLocation(const AFolder: Integer): String;
var
  FolderPath: PChar;
begin
  FolderPath := AllocMem((MAX_PATH + 1) * SizeOf(Char));
  try
    SetLastError(Cardinal(SHGetFolderPath(0, AFolder, 0, 0, FolderPath)));
    Win32Check(GetLastError = ERROR_SUCCESS);
    Result := FolderPath;
  finally
    FreeMem(FolderPath);
  end;

  if Result <> '' then
    Result := IncludeTrailingPathDelimiter(Result);
end;

...

ShellExecute(..., PChar(GetSpecialFolderLocation(CSIDL_APPDATA)), ...);

Ф-ция SHGetSpecialFolderLocation в Win7 работать не будет

Неправда, будет.