diff options
| author | Vadim Dashevskiy <watcherhd@gmail.com> | 2013-07-04 10:09:35 +0000 |
|---|---|---|
| committer | Vadim Dashevskiy <watcherhd@gmail.com> | 2013-07-04 10:09:35 +0000 |
| commit | 173c419faeb1c726f84127627dc8860f7538f5cf (patch) | |
| tree | d33f1e1bf6833d2846fb00b0c09df687557753b7 /tools/langpackmgr/Unit1.pas | |
| parent | 1678ecb7484cc41352f69abcdbf574d79586d875 (diff) | |
- langpackmgr tool update (Google Translate added) (by Jebifor)
git-svn-id: http://svn.miranda-ng.org/main/trunk@5230 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'tools/langpackmgr/Unit1.pas')
| -rw-r--r-- | tools/langpackmgr/Unit1.pas | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/tools/langpackmgr/Unit1.pas b/tools/langpackmgr/Unit1.pas index 14423f3bae..0d077710b6 100644 --- a/tools/langpackmgr/Unit1.pas +++ b/tools/langpackmgr/Unit1.pas @@ -136,8 +136,16 @@ begin end;
procedure TForm1.GClick(Sender: TObject);
+var str:string;
begin
- ShellExecute( Handle, 'open', 'http://translate.google.ru/#auto/', nil, nil, SW_NORMAL );
+ str:='http://translate.google.com/?hl=&ie=&langpair=auto&text=';
+for I := 0 to memo1.Lines.Count-1 do
+begin
+str:=str+memo1.Lines[i];
+if i<memo1.Lines.Count-1 then
+str:=str+'+%0A+';
+end;
+ ShellExecute(0, 'open',PChar(str), nil, nil, SW_SHOW);
end;
procedure tform1.refresh;
|