İniden Veri Okuma

[korasoglu]

Arkadaşlar şu örnekteki resmi ve mp3 iniden nasıl alabiliriz.

Şu satırı = SoundPlay(".\Kurulum başladı.mp3", 0)

Birde Şu Satırı = Local $yImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\Logo.png")

 

 

[spoiler]#NoTrayIcon
#include
#include
#include
SoundPlay(".\Kurulum başladı.mp3", 0)
;----- Variables -----
Global $ResW, $ResH
Myname()
Sleep(3000)
Exit


Func SetBitmap($hGUI, $hImage, $iOpacity)
Local $hScrDC, $hMemDC, $hBitmap, $hOld, $pSize, $tSize, $pSource, $tSource, $pBlend, $tBlend
$hScrDC = _WinAPI_GetDC(0)
$hMemDC = _WinAPI_CreateCompatibleDC($hScrDC)
$hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
$hOld = _WinAPI_SelectObject($hMemDC, $hBitmap)
$tSize = DllStructCreate($tagSIZE)
$pSize = DllStructGetPtr($tSize)
$ResW = _GDIPlus_ImageGetWidth($hImage)
$ResH = _GDIPlus_ImageGetHeight($hImage)
DllStructSetData($tSize, "X", $ResW)
DllStructSetData($tSize, "Y", $ResH)
$tSource = DllStructCreate($tagPOINT)
$pSource = DllStructGetPtr($tSource)
$tBlend = DllStructCreate($tagBLENDFUNCTION)
$pBlend = DllStructGetPtr($tBlend)
DllStructSetData($tBlend, "Alpha", $iOpacity)
DllStructSetData($tBlend, "Format", 1)
_WinAPI_UpdateLayeredWindow($hGUI, $hScrDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA)
_WinAPI_ReleaseDC(0, $hScrDC)
_WinAPI_SelectObject($hMemDC, $hOld)
_WinAPI_DeleteObject($hBitmap)
_WinAPI_DeleteDC($hMemDC)
EndFunc ;==>SetBitmap

Func Myname()

Local $yGUI = GUICreate("", 1, 1, 0,0, $WS_POPUP, $WS_EX_LAYERED + $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)
_GDIPlus_Startup()
Local $yImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\Logo.png")
SetBitMap($yGUI, $yImage, 255)

Local $Gui_X = @DesktopWidth - ($ResW + 5)
Local $Gui_Y = @DesktopHeight - ($ResH + 5)

Local $Shell_Pos = WinGetHandle("[CLASS:Shell_TrayWnd]") ;CLASS:Progman
If $Shell_Pos <> "" Then
$Shell_Pos = WinGetPos($Shell_Pos)

If UBound($Shell_Pos) = 4 Then
If $Shell_Pos[1] < 1 Then
If $Shell_Pos[0] > 0 Then $Gui_X = @DesktopWidth - ($Shell_Pos[2] + ($ResW + 5))
Else
If $Shell_Pos[0] < 1 Then $Gui_Y = @DesktopHeight - ($Shell_Pos[3] + ($ResH + 5))
EndIf
EndIf
EndIf
WinMove($yGUI, "", $Gui_X, $Gui_Y, $ResW, $ResH)
GUISetState(@SW_SHOW)
EndFunc ;==>Myname[/spoiler]

 

Mesela ini şöyle olsa

[Olustur]

resim=8.png

muzik=9.mp3

[pairs]

Local $mp3 = IniRead(@ScriptDir & "\a.ini", "Olustur", "muzik", "NotFound")
Local $resim = IniRead(@ScriptDir & "\a.ini","Olustur","resim", "NotFound")

MsgBox(0,"a",$mp3 &@CRLF& $resim)

[korasoglu]

Sevgili Pairs Ben uygulayamadım olayı anladın zaten splashtaki resmi ve muziği iniden çekmek istiyorum hepsi bu ama yapamadım.

Edit : Hepsi şu imiş teşekkür ederim

Local $yImage = _GDIPlus_ImageLoadFromFile($resim)

Edited May 22, 2013 by korasoglu

[mustafakara]

arkadaşlar merhabalar
ini dosyasından veri sildiğimizde
yerlerindeki satırlar boş kalıyor bu satırlarıda veriyle birlikte nasıl sileriz?

[pairs]

IniDelete(@ScriptDir & "\a.ini","Olustur2","resim")

 

bu kod ile denedim herhangi boş kalma gibi bir durum olmuyor.

[mustafakara]

özür diliyorum haklısınız autoit komutlarıyla
sildiğimizde boş kalmıyor nedense aklımda öyle kalmış sanıyorum ben şununlakarıştırdım
manuel olarak sildiğimizde
boşluklar oluşuyordu veri eklediğimizde ise boşluklara değil en sona ekliyordu ben onunla
karıştırdım kusura bakmayın lütfen
herkese kolay gelsin

[korasoglu]

Arkadaşlar uygulamayı Sleeple değil Enter veya Esc ile nasıl kapatabiliriz.

[pairs]

Arkadaşlar uygulamayı Sleeple değil Enter veya Esc ile nasıl kapatabiliriz.

Proje açıkken esc yada enter a basınca kapatmasınımı diyorsun hocam.

[KintaRo]

abi autoit'e girmişsin :)

[blackman12]

hotkeyset ile kısayol oluşturabilirsin.

[reyiz]

HotKeySet("{ENTER}", "kapat")
HotKeySet("{ESC}", "kapat")

Func kapat()
	exit
EndFunc

[korasoglu]

 

abi autoit'e girmişsin  :)

 

Sevgili Kintaro seni bırakıp bir yere gitmem korkma

 

Sevgili Reyiz teşekkür ederim istediğim bu idi.