Web Browserda sayfayı resimleri ile beraber kaydetme

[ribozom]

Benim 2 sorum olacaktı.
1-Asagidaki kodlarla web sayfasını 1.htm olarak resimsiz istedigim partitiona kaydedebiliyorum. Sorum resimleri (explorerdaki gibi xxx_dosyalar seklinde) ile birlikte htm (.mht degil) formatında nasıl kaydedebilirim.
-------------
procedure TAnaForm.Kaydet1Click(Sender: TObject);
begin
WebBrowser1.Navigate (SaveDialog1.FileName);
WB_SaveAs_HTML(WebBrowser1,'1.htm');
end;

procedure TAnaForm.WB_SaveAs_HTML(WB:TWebBrowser; const FileName : string);
var
PersistStream: IPersistStreamInit;
Stream: IStream;
FileStream: TFileStream;
begin
if not Assigned(WB.Document) then
begin
ShowMessage('Document not loaded!');
Exit;
end;

PersistStream := WB.Document as IPersistStreamInit;
FileStream := TFileStream.Create(FileName, fmCreate);
try
Stream := TStreamAdapter.Create(FileStream, soReference)
as IStream;
if Failed(PersistStream.Save(Stream, True)) then
ShowMessage('SaveAs HTML fail!');
finally
FileStream.Free;
end;
end;
---------------
2 - Numlock off durumunda iken silik olmasını istiyorum. Vaya da on durumunda kırmızı renkte, off durumunda gri renkte nasıl yapabilirim. Uzman arkadasların yardımını bekliyorum.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if GetKeyState( VK_NUMLOCK ) = 1 then
StatusBar1.Panels[0].Text := 'NUMLOCK ON'
else
StatusBar1.Panels[0].Text := 'NUMLOCK OFF'; //'NUMLOCK OFF' yerine '' yazılabilir
end;

[vedatkaba]

Kod: Tümünü seç

procedure TForm1.Timer1Timer(Sender: TObject);
var
durum:Tkeyboardstate;
begin
GetKeyboardState(durum);
if durum[vk_numlock]=1 then
begin
label1.Font.Color:=clred;
end
else
label1.Font.Color:=clyellow;
end;

end.

Timerın intervalini 100 yap bu kodu uygula..ilk soruna bir şey diyemiyorum...kolay gelsin.

[ribozom]

tesekkur ederim ama, benim sorumun cevabı bu degil sanırım.