PalTool Final release [Download] Mass add, New toolz

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 https://www.imfiles.com/get-all-handl…gement-t43907/

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

[url]http://www.youtube.com/watch?v=oFXPFj4usWM[/url]

you can download it form this page (v3)
[URL=”http://jiiix.org”]http://Jiiix.org[/URL]

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,

3 thoughts on “PalTool Final release [Download] Mass add, New toolz

  1. 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

Leave a Reply

You must Register or Login to comment on PalTool Final release [Download] Mass add, New toolz