 | annisa di PUSING CI Neh ! |
 | Lambret di KOHANA ! |
 | erwin di KOHANA ! |
 | ademaulana di KOHANA ! |
 | XYFloyd di Tips and Tricks for the Visual… |
FREE DOWNLOADDitulis oleh arifw di/pada Kamis, 24 April 2008
uses comobj;
procedure OpenIE(aURL: string);
var
IE: Variant;
WinHanlde: HWnd;
begin
if (VarIsEmpty(IE)) then
begin
IE := CreateOleObject(‘InternetExplorer.Application’);
IE.Visible := True;
IE.Navigate(aURL);
end
else
begin
WinHanlde := FindWindow(‘IEFrame’, nil);
if (0 <> WinHanlde) then
begin
IE.Navigate(aURL);
SetForegroundWindow(WinHanlde);
end
else
ShowMessage(‘Can”t open IE !’);
end;
end;
Ditulis dalam ActiveX, Delphi, Programming | Bertanda: ActiveX | Leave a Comment »
Ditulis oleh arifw di/pada Kamis, 24 April 2008
uses
DdeMan;procedure mIRCDDE(Service, Topic, Cmd: string);
var
DDE: TDDEClientConv;
begin
try
DDE := TDDEClientConv.Create(nil);
DDE.SetLink(Service, Topic);
DDE.OpenLink;
DDE.PokeData(Topic, PChar(Cmd));
finally
DDE.Free;
end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
mIRCDDE(‘mIRC’, ‘COMMAND’, ‘/msg #DelphiTricks Hello programmers!’);
end;
Ditulis dalam ActiveX, Delphi, Programming | Bertanda: ActiveX | Leave a Comment »
Ditulis oleh arifw di/pada Jumat, 1 Februari 2008
Dewasa ini perkembangan dunia animasi begitu hebat dengan hadirnya Macromedia Flash… Bagaimana memadukan program Delphi dengan memainkan file flash (*.swf). Untuk mengoptimalkan program yang kita buat, akan sangat bagus jika program kita dilengkapi dengan animasi hidup ala flash. Bagaimana cara membuat program untuk menjalankan file flash?… Baca entri selengkapnya »
Ditulis dalam Programming | Bertanda: ActiveX, Delphi, flash, form, IDE, ocx, pallet, Plug-in, swf, swflash | 3 Komentar »
