Лаунчер для игры World of Warcraft

[Next]

Здравствуйте,
Помогите создать лаунчер для игры World of Warcraft , чтобы в при клике в форме на Play запускался wow.exe (ярлык) , еше нужно сделать проверку версии игры и автоапдейт, если нужно. спасибо

[BOBAH13]

о5 25 Помогите или сделайте и скиньте мне ?
В чем собственно проблема ? Пока видно только "запрос".

[Next]

BOBAH13, я же написал помогите создать я вообще нуб, вот и прошу )) а если бы дали код готовый, то разобрался.

[Terran]

Можете сделать так:

Uses
  ShellApi,...//Подключаем модуль
...
Const
TypeInfo: Array[0..9] Of String = ('CompanyName','FileDescription','FileVersion',    //Объявляем строковый масив
'InternalName','LegalCopyright','LegalTrademarks','OriginalFilename','ProductName',
'ProductVersion','Comments');
Function FileVersion(AFileName,Info: String): String; //Объявляем функцию
Var
SzName: Array[0..255] Of Char; //Объявляем переменные
P: Pointer;
Value: Pointer;
Len: UINT;
GetTranslationString: String;
FFileName: PChar;
FValid: boolean;
FSize: DWORD;
FHandle: DWORD;
FBuffer: PChar;
Begin
Try //Оператор исключений
FFileName:=StrPCopy(StrAlloc(Length(AFileName) + 1),AFileName); //Присваиваем имя файла 
FValid:=False; 
FSize:=GetFileVersionInfoSize(FFileName,FHandle); //Определяем размер структуры с информации о файле 
If FSize > 0 Then
Try
GetMem(FBuffer,FSize); //читаем память
FValid:=GetFileVersionInfo(FFileName,FHandle,FSize,FBuffer);//Загружаем в память эту структуру
Except
FValid:=False;
Raise;
End;
Result:='';
If FValid Then
VerQueryValue(FBuffer,'\VarFileInfo\Translation',P,Len) //Извлекаем отдельные поля 
//и дальше идут различные преобразования и проверки
Else
P:=Nil;
If P <> Nil Then
GetTranslationString:=IntToHex(MakeLong(HiWord(Longint(P^)),LoWord(Longint(P^))),8);
If FValid Then
Begin
StrPCopy(SzName,'\StringFileInfo\' + GetTranslationString + '\' + Info);
If VerQueryValue(FBuffer,SzName,Value,Len) Then
Result:=StrPas(PChar(Value));
End;
Finally
If FBuffer <> Nil Then
FreeMem(FBuffer,FSize);
StrDispose(FFileName);
End;
End;

//Версия файла т.е. игры
Procedure TForm1.Button1Click(Sender: TObject);
Begin
Label1.Caption:=(FileVersion(Edit1.Text,TypeInfo[2]));
End;
//Запуск игры. Путь к игре должен быть прописан в Edit
Procedure TForm1.Button2Click(Sender: TObject);
Begin
ShellExecute(Application.Handle,'Open',PChar(Edit1.Text),Nil,Nil,SW_SHOWDEFAULT);
End;

[Next]

Terran, объясни, если можешь или есть возможность, что и за что отвечает, тоесть мне интересна вот эта часть

Uses
ShellApi,...
...
Const
TypeInfo: Array[0..9] Of String = ('CompanyName','FileDescription','F ileVersion',
'InternalName','LegalCopyright','Le galTrademarks','OriginalFilename',' ProductName',
'ProductVersion','Comments');
Function FileVersion(AFileName,Info: String): String;
Var
SzName: Array[0..255] Of Char;
P: Pointer;
Value: Pointer;
Len: UINT;
GetTranslationString: String;
FFileName: PChar;
FValid: boolean;
FSize: DWORD;
FHandle: DWORD;
FBuffer: PChar;
Begin
Try
FFileName:=StrPCopy(StrAlloc(Length (AFileName) + 1),AFileName);
FValid:=False;
FSize:=GetFileVersionInfoSize(FFile Name,FHandle);
If FSize > 0 Then
Try
GetMem(FBuffer,FSize);
FValid:=GetFileVersionInfo(FFileNam e,FHandle,FSize,FBuffer);
Except
FValid:=False;
Raise;
End;
Result:='';
If FValid Then
VerQueryValue(FBuffer,'\VarFileInfo \Translation',P,Len)
Else
P:=Nil;
If P <> Nil Then
GetTranslationString:=IntToHex(Make Long(HiWord(Longint(P^)),LoWord(Lon gint(P^))),8);
If FValid Then
Begin
StrPCopy(SzName,'\StringFileInfo\' + GetTranslationString + '\' + Info);
If VerQueryValue(FBuffer,SzName,Value, Len) Then
Result:=StrPas(PChar(Value));
End;
Finally
If FBuffer <> Nil Then
FreeMem(FBuffer,FSize);
StrDispose(FFileName);
End;
End;

[Terran]

Чтобы не засорять форум я изменил пост № 4 . Смотрите выше. Пояснил вкратце. А то много писать надо...

[Next]

а где именно должна быть ссылка на файл, извини пожалуйста. я тупенький

[Terran]

Там не ссылка должна быть, а путь. Ставите на форму компонент Edit и потом в него пишете полный путь к файлу.

[Next]

как называется это свойство?) где прописывать

[Terran]

Вот написал по быстрому исходничёк: Launcher.rar Если что, то подправьте.