! /N komutu

#Define WM_GETTEXTLENGTH 14

#Define WM_GETTEXT 13

#Define WM_GETFONT 49

#Define WM_SETTEXT 12

#Define WM_SETFONT 48

#Define WM_SETFOCUS 7

#Define SW_SHOWNORMAL  1

Clea

Declare Integer WinExec In kernel32 String lpCmdLine,Integer nCmdShow

Declare Integer FindWindowEx In user32 Integer,Integer,String,String

Declare Integer SetWindowText In user32 Integer HWnd,String lpString

Declare Integer SendMessage In user32 Integer HWnd,Integer wMsg,Integer wParam,String @Lparam

Declare Integer ShowWindowAsync In user32 Integer HWnd,Integer nCmdShow

Declare Integer SetForegroundWindow In Win32api Integer

If FindWindowEx(0,0,"Notepad",Null)=0

    =WinExec("Notepad.exe",SW_SHOWNORMAL)

Endif

HWnd=FindWindowEx(0,0,"Notepad",Null)

=ShowWindowAsync(HWnd,1)

=SetForegroundWindow(HWnd)

=SetWindowText(HWnd,"BAŞLIK")

HWnd=FindWindowEx(HWnd,0,"Edit",Null)

lnText=SendMessage(HWnd,WM_GETTEXTLENGTH,0,"")

lcTextBuffer=Space(lnText)

lnText=SendMessage(HWnd,WM_GETTEXT,lnText+1,@lcTextBuffer)

lnruns=Occu(Chr(13)+Chr(10),lcTextBuffer)+1

=SendMessage(HWnd,WM_SETFOCUS,0,"")

METIN="İÇERİK"

=SendMessage(HWnd,WM_SETFONT,Len(METIN)+1,METIN)

mytext=lcTextBuffer+METIN

=SendMessage(HWnd,WM_SETTEXT,Len(METIN)+1,METIN)

Return

PROGISMI="C:\Windows\system32\notepad.exe readme.txt"

! /N &PROGISMI

DECLARE INTEGER ShellExecute IN "Shell32.dll" ;

    INTEGER hwnd, ;

    STRING lpVerb, ;

    STRING lpFile, ;

    STRING lpParameters, ;

    STRING lpDirectory, ;

    LONG nShowCmd

 

Shellexecute(0,"Open","notepad.exe","C:\ABC.DAT",0,1)