D2009 PChar является PWideChar, как правельно? [D2005, XP]
Андрей Смирнов © (2009-11-20 10:25:00)
Всем Привет,
Есть функция, на D2009 не могу преобразовать,
procedure StartNewBrowserWindow(const URL: String);
var
DDEConv: TDDEClientConv;
URLFired: bool;
App: String;
UpApp: String;
p: array[0..MAX_PATH] of PAnsiChar;
begin
UrlFired := False;
App := GetAssociatedProgram('HTM');
UpApp := Uppercase(App);
Delete(App, Pos('.EXE', UpAPP), Length(App));
if Pos('FIREFOX.EXE',
UpApp) > 0 then
begin
DDEConv := TDDEClientConv.Create(nil);
DDEConv.ServiceApplication := App;
if DDEConv.SetLink('FIREFOX', 'WWW_OpenURL')
then
if DDEConv.RequestData(URL + ',,0x0,0x0')
<> nil then
if DDEConv.SetLink('FIREFOX',
'WWW_Activate') then
URLFired :=
DDEConv.RequestData('0xFFFFFFFF,0x0') <> nil;
DDEConv.Free;
end
else if Pos('IEXPLORE.EXE',
UpApp) > 0 then
begin
DDEConv := TDDEClientConv.Create(nil);
DDEConv.ServiceApplication := App;
if DDEConv.SetLink('iexplore', 'WWW_OpenURL')
then
if DDEConv.RequestData(URL + ',,0')
<> nil then
if DDEConv.SetLink('iexplore',
'WWW_Activate') then
URLFired :=
DDEConv.RequestData('0,0') <> nil;
DDEConv.Free;
end;
if UrlFired = False then
// WinExec(StrPCopy(@p, URL), SW_SHOWNORMAL); // тут
баг *
end;
* - [DCC Error] ...E2010 Incompatible types: 'Char' and
'AnsiChar'
Подскажите что не так и как решить сие?
Игорь Шевченко (2009-11-20 10:27:00) [1]
http://ln.com.ua/~openxs/articles/smart-questions-ru.html
Наверх 
ЧАТ |
Орешник |
|
