Skip to content

PalTool Final release [Download] Mass add, New toolz

Viewing 4 posts - 1 through 4 (of 4 total)
  • Author
    Posts
  • March 16, 2014 at 3:55 pm #174770
    Jiiix
    Member

    i have programmed new tool for the new Pal 11+ using delphi XE5

    Thanks to Mr. Departure about this Subject: [Delphi] Get All handles & Management

    also thanks to Mr.ChiNa-Man he try to help me a lot  but i think he hate the delphi

    i developed new method to do the mass add function.

    and i have collect the top of i’mfiles software and put it in one place (my App. PalTool)

    V4 i will add (mass remove for MyPal List, mass bounce and a lot of things 😉 )

    also there is new feature it’s called (user notification) in the below video, anyone can guess what is it ? ❓

    check the video

    you can download it form this page (v3)

    you can change the background or you can make it blank in this version

    please give me your feedback and if there is any bug (i hop not ) just let me know

    if you have an idea about new feature just let me know about it, i will try my best to added it

    Thanks,

    March 16, 2014 at 8:56 pm #174773
    Admin
    Administrator

    Looking Nice 🙂 keep the great work up

    March 16, 2014 at 9:04 pm #174772
    Chike
    Member

    And what exactly it needs to connect to the internet for?

    March 17, 2014 at 5:41 am #174771
    Jiiix
    Member

    to searching for new updates

    see the code below

    	//checking for new updates ulpaded on my website
        try
    RandomFile := RandomString(10);
    IdHTTP1.OnWork:= HttpWork;
    m := TMemoryStream.Create;
    IdHTTP1.Request.Pragma := 'no-cache';
    IdHTTP1.Request.UserAgent := 'Mozilla/4.0 (compatible; MyApp)';
    IdHTTP1.Get(Pchar(WebDownloadDir + 'Work.html'), m);
    m.SaveToFile(Pchar(GetEnvironmentVariable('TEMP')+''+RandomFile+'.txt'));
     sl := TStringList.Create;
            try
            //ShowMessage(GetEnvironmentVariable('TEMP')+''+RandomFile+'.txt');  //for testing purposes
            sl.LoadFromFile(Pchar(GetEnvironmentVariable('TEMP')+''+RandomFile+'.txt'));
            AppWork := sl[0]; // line 1
            CurrentVer := sl[1]; // line 2
            finally
            sl.Free;
            end;
       if  FileExists(Pchar(GetEnvironmentVariable('TEMP')+''+RandomFile+'.txt')) then
        begin
            DeleteFile(Pchar(GetEnvironmentVariable('TEMP')+''+RandomFile+'.txt'));
        end;
    except
     on E: EIdHTTPProtocolException do
             Begin
            AppWork := 'NoInternNet';
            ShowMessage(ErrConMsgLbl.Caption);
            MainForm.Caption :=  ErrConMsgLbl.Caption;
            for i := 0 to ComponentCount-1 do
            if (Components[i] is TButton) then
            (Components[i] as Tbutton).Enabled := false;
            Exit;

             End;
    end;
    m.Free;

    //ShowMessage(AppWork+' + '+CurrentVer+' '+NextAppVer); //for testing purposes
  • Author
    Posts

Related

Viewing 4 posts - 1 through 4 (of 4 total)
  • You must be logged in to reply to this topic.