6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
\r
7 Dialogs, StdCtrls, GnokiiAPI;
\r
10 TWAPBookForm = class(TForm)
\r
17 procedure Button2Click(Sender: TObject);
\r
18 procedure Button1Click(Sender: TObject);
\r
20 { Private declarations }
\r
22 { Public declarations }
\r
26 WAPBookForm: TWAPBookForm;
\r
34 procedure TWAPBookForm.Button2Click(Sender: TObject);
\r
39 procedure TWAPBookForm.Button1Click(Sender: TObject);
\r
41 book:GSM_WAPBookmark;
\r
43 for i:=1 to 256 do book.adress[i]:=chr(0);
\r
44 for i:=1 to 51 do book.title[i]:=chr(0);
\r
46 for i:=1 to strlen(pchar(Edit1.text)) do
\r
47 book.title[i]:=Edit1.Text[i];
\r
48 for i:=1 to strlen(pchar(Edit2.text)) do
\r
49 book.adress[i]:=Edit2.Text[i];
\r
51 book.location:=bookmarknum2;
\r
53 MainForm.Timer2.enabled:=false;
\r
54 GSM_SetWAPBookmark(@book);
\r
55 MainForm.Timer2.enabled:=true;
\r
57 MainForm.WAPBookTabSheetShow(nil);
\r