diff options
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;
|